vba - 我的 VBA 代码有什么问题？

Question

请帮助我了解我的代码错误的来源：

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Dim MyRange as double
    Dim ErrorCheck as Boolean
    Set MyRange = Sheets(1)
    ErrorCheck = WorksheetFunction.IsError(MyRange)
    If ErrorCheck = True Then MsgBox "ERROR on the Sheet"
End Sub

Answer 1

Set MyRange = Sheets(1)

这会尝试创建一个名为 MyRange 的工作表对象，而不是范围对象。（正如 A Webb 指出的那样，您将 DIM MyRange 设为 double
如果您尝试检查 Sheets(1) 上的 1 个或多个单元格是否包含您不能在一系列单元格上使用 IsError 来检测该范围​​是否包含错误。