VBA: undefined variable

Question

我正在尝试在下面的代码中使用 IIF 函数，但它给了我一个编译错误，指出“变量 [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

结束子