我的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的工作表对象,而不是一个范围对象.(并且当Webb指出你有DIM MyRange为double时
如果你试图检查Sheets(1)上的1个或多个单元格是否包含错误你也不能在一系列单元格上使用IsError来检测是否有任何范围包含错误.