我的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为双重时） 此外，如果您要检查Sheets（1）中的1个或多个单元格是否包含错误，则无法在一系列单元格上使用IsError来检测是否有任何范围包含错误。