Excel VBA アプリケーション定義またはオブジェクト定義のエラー対処

以下のような原因があります。

1. 存在しないシートやセルを参照している。

2. 正しいデータ型やオブジェクトを使っていない。

3. 関数やメソッドの引数が正しくない。

4. シートやブックが閉じられている、または存在しない。

Option Explicit

Sub Example()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 存在しないシートを参照しようとしてエラーが発生
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名が正しいか確認
    
    ' 存在しないセル範囲を参照しようとしてエラーが発生
    Set rng = ws.Range("A1:B2") ' セル範囲が正しいか確認
    
    ' 正しい使用例
    If Not ws Is Nothing Then
        If Not rng Is Nothing Then
            rng.Value = "Hello"
        Else
            MsgBox "指定されたセル範囲が見つかりません。"
        End If
    Else
        MsgBox "指定されたシートが見つかりません。"
    End If
End Sub