類型不匹配運行時錯誤“ 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

您不能將范圍與特定值進行比較。您可以將“ For Range中的每個xxx中的每個單元格帶入Range.Cells ... Next”語句繼續進行范圍內每個值的比較，但請注意，每個依次逐個比較該單元格。 該代碼應以這種方式工作：

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