형식 불일치 런타임 오류 '13'

Question

이 문제점에 대한 답변을 어디에서나 검색했으며 VBA에 대한 새로운 지식을 갖추고 있으므로 도움을 받으시기 바랍니다. 아래는 코드입니다.

If [e19].Value + [g19].Value = [c19].Value Then 
[l19].Value = "Yes" 
ElseIf [e19].Value = "N/A" Then 
[l19].Value = "N/A" 
**ElseIf Range("i18:i21, l18").Value = "{a}" Then** 
l19.Value = "{b}" 

**에 싸여있는 코드는 내 문제가있는 곳입니다. 어떤 아이디어?

는

Answer 1

당신은 특정 값으로 .. 당신은 내부의 각 셀을 할 수있는 범위를 비교할 수 없습니다 감사는 'Range.Cells에서 각 xxx는 들어 ... 다음'문에 대한 비교로 진행합니다 각 값은 범위 내에 있지만 각 셀은 차례대로 개별적으로 비교됩니다. 이 코드는 다음과 같이 작동해야합니다.

Sub zo() 
If [e19].Value + [g19].Value = [c19].Value Then 
    [l19].Value = "Yes" 
ElseIf [e19].Value = "N/A" Then 
    [l19].Value = "N/A" 
Else 
    For Each cell In Range("i18:i21, l18") 
     If cell.Value = "{a}" Then 
      [l19].Value = "{b}" 
     End If 
    Next 
End If 
End Sub