【2026年7月最新】VBAのエラー処理完全ガイド｜On Error・Resume・GoToの使い方とErrオブジェクト活用法

この記事の内容

1. 01VBAエラー処理の基本概念と種類
2. 02On Error GoTo：エラー発生時にラベルへジャンプ
3. 03On Error Resume Next：エラーを無視して次の行へ
4. 04Resume・Resume Next・Resume ラベルの使い分け
5. 05Errオブジェクト：Number・Description・Sourceの活用
6. 06エラー番号によるSelect Case分岐
7. 07On Error GoTo 0：エラー処理の無効化
8. 08業務マクロでの実践エラー処理パターン
9. 09よくある失敗とデバッグのコツ
10. 10Claude CodeでVBAエラー処理コードを自動生成
11. 11まとめ
12. FAQよくある質問

📚 用語解説

実行時エラー（ランタイムエラー）：VBAコードが実行中に発生するエラー。構文は正しいが「ファイルが見つからない」「データ型が不一致」「ゼロ除算」「シートが存在しない」など、実行してみないと分からない異常状態によって発生します。On Error文でキャッチして対処できます。発生するとエラーメッセージが表示され、マクロが停止します。

📚 用語解説

On Error GoTo（オン・エラー・ゴートゥ）：VBAのエラー処理有効化構文。「On Error GoTo ラベル名」と書くと、以降のコードで実行時エラーが発生したとき自動的に指定ラベルへジャンプします。エラー処理ルーティンをプロシージャ末尾にラベルで配置し、通常処理の末尾にはExit Subを置くのが標準パターン。On Error GoTo 0で無効化できます。

' On Error GoToの基本パターン
Sub SampleErrorHandling()
    ' ← ここでエラー処理を有効化
    On Error GoTo ErrorHandler

    ' === 通常の処理 ===
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\Data\report.xlsx")  ' ← ここでエラーが起きる可能性

    Cells(1, 1).Value = wb.Sheets(1).Cells(1, 1).Value
    wb.Close False

    MsgBox "処理が正常に完了しました"
    Exit Sub  ' ← エラーがない場合ここで終了（ErrorHandlerをスキップ）

' === エラー処理ルーティン ===
ErrorHandler:
    MsgBox "エラーが発生しました。" & vbCrLf & _
           "エラー番号: " & Err.Number & vbCrLf & _
           "内容: " & Err.Description, vbCritical, "エラー"
    ' 開いたファイルを閉じるなどのクリーンアップ処理
    If Not wb Is Nothing Then
        If wb.ReadOnly = False Then wb.Close False
    End If
End Sub

📚 用語解説

GoToステートメント：指定したラベルの位置に処理をジャンプさせるVBAの構文。通常はコードの可読性を下げるため多用を避けますが、エラー処理（On Error GoTo）での使用は慣用的に認められています。ラベルは「ラベル名:（コロン）」の形式で行頭に配置します。

' Exit Subがないと問題になる例
Sub BadExample()
    On Error GoTo ErrorHandler

    MsgBox "正常処理"
    ' ← Exit Subがない！
    ' 正常に終わっても次の行に進んでしまう

ErrorHandler:
    MsgBox "エラー"  ' ← 正常時もここが実行されてしまう！
End Sub

' ===
Sub GoodExample()
    On Error GoTo ErrorHandler

    MsgBox "正常処理"
    Exit Sub  ' ← 必ずExit SubでErrorHandlerをスキップ

ErrorHandler:
    MsgBox "エラー"  ' ← エラー時だけ実行される
End Sub

📚 用語解説

On Error Resume Next：エラーが発生しても処理を停止せず次の行から実行を続ける構文。ループ処理での行スキップ・オブジェクト存在確認・任意処理など、特定の行のエラーを意図的に無視したい場合に使います。使い終わったら必ずOn Error GoTo 0で無効化することが鉄則です。On Error Resume Nextをプロシージャ全体に適用すると、意図しないエラーが全て無視されます。

' On Error Resume Nextの使い方
Sub LoopWithErrorResumeNext()
    On Error Resume Next  ' エラー無視モード開始

    Dim i As Integer
    For i = 1 To 10
        ' 一部の行でエラーが出ても処理を継続したい
        Cells(i, 2).Value = Cells(i, 1).Value / Cells(i, 3).Value

        ' エラーが起きたかどうかをErrで確認
        If Err.Number <> 0 Then
            Cells(i, 4).Value = "計算エラー: " & Err.Description
            Err.Clear  ' エラー情報をリセット（重要！）
        End If
    Next i

    On Error GoTo 0  ' エラー無視モード終了（必須）

    MsgBox "全行処理完了"
End Sub

「On Error Resume Nextを書いてエラーが出なくなった」というのは、エラーを無視しているだけで問題が解決しているわけではありません。処理が途中でスキップされたり、意図しない値が設定されたりします。特に「データを保存する処理」の前にOn Error Resume Nextを書くと、エラーで失敗したデータが保存される可能性があります。On Error Resume Nextの直後は必ずErr.Numberをチェックするか、On Error GoTo 0で無効化してください。

' シートの存在確認にOn Error Resume Nextを使う例
Function SheetExists(wsName As String) As Boolean
    On Error Resume Next
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(wsName)  ' 存在しない名前を指定するとエラー
    On Error GoTo 0  ' すぐに無効化

    SheetExists = Not ws Is Nothing
End Function

' 使い方
Sub TestSheetExists()
    If SheetExists("データ") Then
        MsgBox "「データ」シートが存在します"
    Else
        MsgBox "「データ」シートが見つかりません"
    End If
End Sub

' Resumeで同じ行を再試行する例（ファイルロック対応）
Sub OpenWithRetry()
    Dim filePath As String
    Dim retryCount As Integer
    filePath = "C:\Data\shared_report.xlsx"
    retryCount = 0

    On Error GoTo ErrorHandler

    Dim wb As Workbook
    Set wb = Workbooks.Open(filePath)

    ' ... データ処理 ...
    wb.Close False
    Exit Sub

ErrorHandler:
    If Err.Number = 1004 And retryCount < 3 Then
        ' ファイルがロックされている可能性 → 3秒待って再試行
        retryCount = retryCount + 1
        MsgBox "ファイルが開けません。" & retryCount & "秒後に再試行します..."
        Application.Wait Now + TimeValue("00:00:03")
        Err.Clear
        Resume  ' ← エラーが発生した行（Set wb = ...）を再実行
    Else
        MsgBox "ファイルを開けませんでした: " & Err.Description, vbCritical
    End If
End Sub

' Resume Nextでエラー行をスキップして続きを処理
Sub ProcessAllSheets()
    On Error GoTo ErrorHandler

    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        ' 各シートにヘッダーを設定（保護シートでエラーが出る可能性）
        ws.Cells(1, 1).Value = "処理日時"
        ws.Cells(1, 2).Value = Now()
    Next ws
    Exit Sub

ErrorHandler:
    ' 保護シートは無視して次のシートへ
    If Err.Number = 1004 Then  ' 保護エラー
        Err.Clear
        Resume Next  ' ← エラーが起きた次の行（Next ws）から再開 → 次のシートへ
    Else
        MsgBox "予期せぬエラー: " & Err.Description, vbCritical
    End If
End Sub

📚 用語解説

Errオブジェクト：VBAに組み込まれたエラー情報格納オブジェクト。エラーが発生するとNumber・Description・Sourceプロパティに情報が設定されます。Err.Clear()でエラー情報をリセットできます。エラーが発生していないときはErr.Number = 0です。On Error Resume Next使用時は処理の直後にErr.Numberをチェックしてエラーを検知します。

' Errオブジェクトで詳細なエラーログを記録する例
Sub LoggingErrorHandler()
    On Error GoTo ErrorHandler

    ' === 処理 ===
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("データ")  ' シートが存在しない場合エラー

    Dim total As Double
    total = ws.Cells(1, 1).Value / ws.Cells(1, 2).Value  ' ゼロ除算のリスク

    MsgBox "結果: " & total
    Exit Sub

ErrorHandler:
    ' エラーログをシートに記録
    Dim logWs As Worksheet
    On Error Resume Next  ' ログシート取得に失敗しても止めない
    Set logWs = ThisWorkbook.Sheets("エラーログ")
    On Error GoTo 0

    If Not logWs Is Nothing Then
        Dim nextRow As Long
        nextRow = logWs.Cells(logWs.Rows.Count, 1).End(xlUp).Row + 1
        logWs.Cells(nextRow, 1).Value = Now()           ' 日時
        logWs.Cells(nextRow, 2).Value = Err.Number      ' エラー番号
        logWs.Cells(nextRow, 3).Value = Err.Description ' エラー内容
        logWs.Cells(nextRow, 4).Value = Err.Source      ' 発生元
    End If

    ' ユーザーへのメッセージ
    MsgBox "エラーが発生しました（No." & Err.Number & "）" & vbCrLf & _
           Err.Description, vbCritical, "エラー"
End Sub

' エラー番号でSelect Case分岐する例
Sub SmartErrorHandler()
    On Error GoTo ErrorHandler

    ' === 処理 ===
    Dim filePath As String
    filePath = "C:\Data\report.xlsx"
    Workbooks.Open filePath

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("集計")

    Dim result As Double
    result = ws.Cells(5, 3).Value / ws.Cells(5, 4).Value
    ws.Cells(5, 5).Value = result
    Exit Sub

ErrorHandler:
    Select Case Err.Number
        Case 53  ' ファイルが見つからない
            MsgBox "ファイルが見つかりません: " & filePath & vbCrLf & _
                   "ファイルが正しいフォルダにあるか確認してください", vbCritical
        Case 9   ' シートが存在しない
            MsgBox "「集計」シートが見つかりません。" & vbCrLf & _
                   "シート名を確認してください", vbExclamation
        Case 11  ' ゼロ除算
            ws.Cells(5, 5).Value = 0  ' ゼロで上書き
            MsgBox "ゼロ除算のため結果を0にしました", vbInformation
            Resume Next  ' 次の行から続ける
        Case 70  ' アクセス拒否
            MsgBox "ファイルが他のアプリで開かれています。閉じてから再実行してください", vbExclamation
        Case Else
            MsgBox "予期せぬエラー（No." & Err.Number & "）: " & Err.Description, vbCritical
    End Select
End Sub

' On Error GoTo 0で適用範囲を限定する
Sub ScopedErrorHandling()
    ' ===== フェーズ1: ファイル存在確認（エラーを無視して確認のみ） =====
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks.Open("C:\Data\optional.xlsx")
    On Error GoTo 0  ' ← ここで無効化（これ以降は通常のエラー検知に戻る）

    If wb Is Nothing Then
        MsgBox "optionalファイルなし - スキップします"
    Else
        ' ===== フェーズ2: ファイルが存在する場合の処理（エラーはしっかり検知） =====
        On Error GoTo ProcessError
        Dim ws As Worksheet
        Set ws = wb.Sheets("レポート")  ' ここでエラーが出たらProcessErrorへ
        ' ... 処理 ...
        wb.Close False
        On Error GoTo 0  ' 処理完了後に無効化
    End If
    Exit Sub

ProcessError:
    MsgBox "ファイル処理中にエラー: " & Err.Description, vbCritical
    If Not wb Is Nothing Then wb.Close False
End Sub

On Error Resume Nextを書いたら必ずOn Error GoTo 0でリセットする——これが鉄則です。On Error Resume Nextを書いたまま処理が進むと、意図しない箇所のエラーが全て無視されます。使い終わったらすぐにOn Error GoTo 0でリセットする習慣をつけてください。

' ファイル操作の標準的なエラー処理テンプレート
Sub FileOperationTemplate()
    Dim filePath As String
    Dim wb As Workbook

    filePath = "C:\Data\monthly_report.xlsx"

    On Error GoTo ErrorHandler

    ' ===== 前処理 =====
    Application.ScreenUpdating = False  ' 画面更新停止（後処理で必ず戻す）

    ' ===== メイン処理 =====
    Set wb = Workbooks.Open(filePath, ReadOnly:=False)

    ' データ処理
    wb.Sheets(1).Cells(1, 1).Value = "処理済"
    wb.Save
    wb.Close

    ' ===== 後処理（正常完了） =====
    Application.ScreenUpdating = True
    MsgBox "処理完了: " & filePath, vbInformation
    Exit Sub

' ===== エラー処理 =====
ErrorHandler:
    Dim errNum As Long
    Dim errDesc As String
    errNum = Err.Number
    errDesc = Err.Description

    ' 後処理（エラーでも必ず実行）
    Application.ScreenUpdating = True
    On Error Resume Next  ' クリーンアップ中のエラーは無視
    If Not wb Is Nothing Then wb.Close False  ' 開いたファイルを閉じる
    On Error GoTo 0

    ' ユーザーへの通知
    Select Case errNum
        Case 53
            MsgBox "ファイルが見つかりません: " & filePath, vbCritical
        Case 70
            MsgBox "ファイルが他で開かれています。閉じてから再実行してください", vbExclamation
        Case 1004
            MsgBox "ファイル操作エラー（" & errNum & "）: " & errDesc, vbCritical
        Case Else
            MsgBox "エラーが発生しました（" & errNum & "）: " & errDesc, vbCritical
    End Select
End Sub

' ループ内でエラーが起きた行だけをスキップして継続
Sub BulkProcessWithErrorHandling()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim errorCount As Long
    errorCount = 0

    Dim r As Long
    For r = 2 To lastRow
        On Error GoTo RowError  ' ← ループの中でOn Errorを設定し直す

        ' 処理（エラーが起きる可能性がある）
        Dim divisor As Double
        divisor = ws.Cells(r, 3).Value
        ws.Cells(r, 4).Value = ws.Cells(r, 2).Value / divisor
        ws.Cells(r, 5).Value = "OK"

        GoTo NextRow  ' ← エラーなし → ErrorHandlerをスキップ
RowError:
        ws.Cells(r, 5).Value = "ERROR: " & Err.Description
        errorCount = errorCount + 1
        Err.Clear
NextRow:
    Next r

    On Error GoTo 0  ' ループ終了後に無効化

    If errorCount > 0 Then
        MsgBox lastRow - 1 & "行中" & errorCount & "行でエラーが発生しました。" & vbCrLf & _
               "E列でエラー内容を確認してください", vbExclamation
    Else
        MsgBox "全" & lastRow - 1 & "行の処理が完了しました", vbInformation
    End If
End Sub

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？