VBA: переменная не определена

Question

Я пытаюсь использовать функцию IIF в приведенном ниже коде, но она дает мне ошибку компиляции, которая гласит, что «Variable [is] не определен». Это выдвигает на первый план «Ноль» в пятой строке коды:

Option Explicit 

Sub macro() 

Dim ws As Worksheet 
With ThisWorkbook.Worksheets("Sheet1") 
    MsgBox IIf(ws.Range("A1") = 0, “Zero”, “Nonzero”) 
End With 

End Sub 

Я не знаю, почему он тянет эту ошибку, как я думал, что диапазон ячейки не должен быть определен. Я также попытался определить Range как переменную, но это тоже не решило.

В чем проблема?

Answer 1

потому, что вам не хватает, чтобы установить ws

так как он должен быть ThisWorkbook.Worksheets("Sheet1") себя и так идти, как этот:

Option Explicit 

Sub macro() 

With ThisWorkbook.Worksheets("Sheet1") 
    MsgBox IIf(.Range("A1") = 0, "Zero", "Nonzero") '<~~ '.Range("A1")' implies that the object following the 'With' keyword is assumed to be just before the dot 
End With 

или он должен быть другой лист, а затем, как это:

Option Explicit 

Sub macro() 

Dim ws As Worksheet 
set ws =ThisWorkbook.Worksheets("Sheet2") '<~~ set the "new" worksheet 
With ThisWorkbook.Worksheets("Sheet1") 
    MsgBox IIf(ws.Range("A1") = 0, "Zero", "Nonzero") 
End With 

End Sub