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 と呼ばれるワークシート オブジェクトを作成しようとします (そして Webb が指摘するように、DIM MyRange は double
です。また、Sheets(1) の 1 つ以上のセルにエラーが含まれているかどうかを確認しようとしている場合は、セルの範囲で IsError を使用して、範囲のいずれかにエラーが含まれているかどうかを検出します。