VBA実行時エラー一覧｜1004・9・13・91の原因と対処

VBAの実行時エラーとは、マクロを実行している途中で処理を続けられなくなったときに、番号とメッセージつきで表示されるエラーです。 番号ごとに原因の型が決まっているので、番号から原因と直し方を引けるようにしておくと、調べる時間をぐっと短くできます。

この記事は、エラー番号から引くためのリファレンスです。前半で頻出23番号の早見表と、特によく出る10番号の「発生するコード」と「修正後のコード」を対で示します。後半では、On Error と Resume の各形式の違い、Err オブジェクトを使ったエラー処理の定型とログ出力をまとめます。

確認環境：エラー番号とメッセージ、原因と解決策、On Error・Resume・Err オブジェクトの仕様、コードで使っているステートメント・関数・メソッドの構文は、2026年10月5日に Microsoft Learn の VBA リファレンス（日本語版）の各ページを開いて確認した内容です。コードはその構文に沿って書いたもので、Excel の画面出力は掲載していません。

VBA実行時エラーの番号別早見表（頻出23番号）

メッセージは Microsoft Learn「トラップできるエラー」の一覧にある日本語の表記です。

番号がわかったら、まず「どの行で止まったか」を確かめます。 エラーのダイアログで「デバッグ」を押すと、止まった行が黄色で示されます。その行に出てくる変数とオブジェクトを、上の表の原因と照らし合わせるのが近道です。

よく出る10番号：発生するコードと修正後のコード

以降のコードは、標準モジュールに貼る前提です。シート名「注文」は架空の例です。

実行時エラー 1004：アプリケーション定義またはオブジェクト定義のエラー

Microsoft Learn では、このメッセージについて「ほかのアプリケーション（Microsoft Excel など）のオブジェクトにアクセスしたときに、VBA のエラーに対応づけられないエラーがプログラムに伝わることがある」と説明されています。つまり、Excel のオブジェクトに対する指定そのものを見直す番号です。代表例が、存在しないセル番地です。

発生するコード：

Sub Sample1004_Before()
    Dim r As Long
    r = 0
    ' 行番号 0 のセルは存在しないので、ここで 1004 になる
    Worksheets("注文").Range("A" & r).Value = "見出し"
End Sub

修正後のコード：

Sub Sample1004_After()
    Dim r As Long
    r = 0
    If r < 1 Then
        MsgBox "行番号が 1 未満です: " & r
        Exit Sub
    End If
    Worksheets("注文").Range("A" & r).Value = "見出し"
End Sub

1004 が出たときに確かめる点です。

実行時エラー 9：インデックスが有効範囲にありません

配列の範囲外の要素や、コレクションに無い名前を指定したときの番号です。Excel では、存在しないシート名の指定が典型です。

発生するコード：

Sub Sample9_Before()
    Dim items(1 To 3) As String
    ' 「集計」という名前のシートが無いと、ここで 9 になる
    Worksheets("集計").Range("A1").Value = "合計"
    ' 要素は 1〜3 なので、4 を指定すると 9 になる
    items(4) = "ノート"
End Sub

修正後のコード：

Sub Sample9_After()
    Dim items(1 To 3) As String
    Dim ws As Object
    Dim found As Boolean
    Dim i As Long

    ' コレクションは For Each でたどって有無を確かめる
    For Each ws In Worksheets
        If ws.Name = "集計" Then found = True
    Next ws
    If found Then
        Worksheets("集計").Range("A1").Value = "合計"
    Else
        MsgBox "「集計」シートがありません。"
    End If

    ' 配列は LBound と UBound の間だけを使う
    For i = LBound(items) To UBound(items)
        items(i) = "品名" & i
    Next i
End Sub

Microsoft Learn には、Dim MyArray() As Integer のように要素数を指定せずに宣言した配列へ、そのまま MyArray(8) = 234 と代入した場合もこの番号になる、と書かれています。Dim か ReDim で要素数を決めてから使います。

実行時エラー 13：型が一致しません

数値型の変数に、数値として読めない文字列を入れようとしたときの番号です。セルに「未定」のような文字が入っている表で起きやすくなります。

発生するコード：

Sub Sample13_Before()
    Dim amount As Long
    ' A2 に「未定」のような文字が入っていると、ここで 13 になる
    amount = Worksheets("注文").Range("A2").Value
    MsgBox amount * 2
End Sub

修正後のコード：

Sub Sample13_After()
    Dim amount As Long
    Dim v As Variant
    v = Worksheets("注文").Range("A2").Value
    If IsNumeric(v) Then
        amount = CLng(v)
        MsgBox amount * 2
    Else
        MsgBox "A2 が数値ではありません: " & v
    End If
End Sub

IsNumeric は、式が数値として評価できるときに True を返す関数です。セルの値はいったん Variant で受け、確かめてから型を変換すると、この番号を避けられます。

実行時エラー 91：オブジェクト変数または With ブロック変数が設定されていません

オブジェクト変数に有効なオブジェクトが入っていない（Nothing の）状態で、プロパティやメソッドを使ったときの番号です。Range.Find は、一致するデータが見つからなかった場合に Nothing を返すので、検索結果をそのまま使うコードでよく起きます。

発生するコード：

Sub Sample91_Before()
    Dim hit As Range
    Set hit = Worksheets("注文").Range("A:A").Find(What:="モニター")
    ' 見つからないと hit は Nothing なので、ここで 91 になる
    MsgBox hit.Row
End Sub

修正後のコード：

Sub Sample91_After()
    Dim hit As Range
    Set hit = Worksheets("注文").Range("A:A").Find(What:="モニター")
    If hit Is Nothing Then
        MsgBox "「モニター」は見つかりませんでした。"
    Else
        MsgBox hit.Row
    End If
End Sub

Dim で宣言しただけで Set していないオブジェクト変数も Nothing です。オブジェクト変数は「Set したか」「Nothing ではないか」の2点を確かめます。

実行時エラー 424：オブジェクトが必要です

オブジェクトではないものに対して、プロパティやメソッドを使おうとしたときの番号です。変数名のつづり違いと、Set の付け忘れが代表的な原因です。

発生するコード：

' モジュールの先頭に Option Explicit が無い場合
Sub Sample424_Before()
    Dim ws As Worksheet
    Set ws = Worksheets("注文")
    ' wss はつづり違い。宣言のない別の変数として扱われ、ここで 424 になる
    wss.Range("A1").Value = "見出し"
End Sub

修正後のコード：

Option Explicit

Sub Sample424_After()
    Dim ws As Worksheet
    Set ws = Worksheets("注文")
    ws.Range("A1").Value = "見出し"
End Sub

モジュールの先頭に Option Explicit を書いておくと、宣言していない変数名は実行前のコンパイルの段階で知らせてもらえます。

Set の付け忘れについては、Microsoft Learn に次の対の例が載っています。

' 発生するコード
Dim RetVal ' Implicitly a Variant.
RetVal = CreateObject("Excel.Application")
RetVal.Visible = True ' Error occurs here.

' 修正後のコード
Dim RetVal As Object
Set RetVal = CreateObject("Excel.Application")
RetVal.Visible = True

実行時エラー 438：オブジェクトは、このプロパティまたはメソッドをサポートしていません

オブジェクト自体は有効でも、そのオブジェクトに無いプロパティやメソッドを指定したときの番号です。

発生するコード：

Sub Sample438_Before()
    ' ワークシートに Value プロパティは無いので、ここで 438 になる
    Worksheets("注文").Value = "見出し"
End Sub

修正後のコード：

Sub Sample438_After()
    ' 値を持つのはセル範囲（Range）
    Worksheets("注文").Range("A1").Value = "見出し"
End Sub

424 との違いは次のとおりです。

実行時エラー 6：オーバーフローしました

計算や代入の結果が、型の扱える範囲を超えたときの番号です。Microsoft Learn には、代入先が Long でも、計算に使う数値が整数として扱われて途中の結果があふれる例が載っています。

発生するコード（Microsoft Learn の例）：

Dim x As Long
x = 2000 * 365   ' Error: Overflow

修正後のコード（Microsoft Learn の例）：

Dim x As Long
x = CLng(2000) * 365

行番号や件数を入れる変数は、最初から Long で宣言しておくと安心です。

Sub Sample6_After()
    Dim rowCount As Long   ' Integer ではなく Long にする
    rowCount = 40000
    MsgBox rowCount
End Sub

実行時エラー 11：0 で除算しました

割る数がゼロのときの番号です。Microsoft Learn では、変数名のつづり違いによってゼロで初期化された別の変数が使われていないか、も確認点に挙げられています。

発生するコード：

Sub Sample11_Before()
    Dim total As Double
    Dim cnt As Long
    total = 12000
    cnt = 0
    ' cnt が 0 なので、ここで 11 になる
    MsgBox total / cnt
End Sub

修正後のコード：

Sub Sample11_After()
    Dim total As Double
    Dim cnt As Long
    total = 12000
    cnt = 0
    If cnt = 0 Then
        MsgBox "件数が 0 のため、平均は計算しません。"
    Else
        MsgBox total / cnt
    End If
End Sub

実行時エラー 53：ファイルが見つかりません

Kill・Name・Open などが、存在しないファイルを指しているときの番号です。

発生するコード：

Sub Sample53_Before()
    ' ファイルが無いと、ここで 53 になる
    Kill "C:\work\temp.csv"
End Sub

修正後のコード：

Sub Sample53_After()
    Dim filePath As String
    filePath = "C:\work\temp.csv"
    ' Dir は、見つからないとき長さ 0 の文字列を返す
    If Dir(filePath) <> "" Then
        Kill filePath
    Else
        MsgBox "ファイルがありません: " & filePath
    End If
End Sub

フォルダーごと見つからない場合は、76（パスが見つかりません）になります。

実行時エラー 70：アクセス許可が拒否されました

書き込み禁止のファイルを Output や Append で開こうとしたとき、または別のプロセスがロックしているファイルに書こうとしたときの番号です。事前の判定だけでは避けにくいので、エラー処理で受けて案内する形にします。

発生するコード：

Sub Sample70_Before()
    Dim fileNo As Integer
    fileNo = FreeFile
    ' 書き込み禁止のファイルや、ほかで開かれているファイルだと、ここで 70 になる
    Open "C:\work\report.txt" For Append As #fileNo
    Print #fileNo, "完了"
    Close #fileNo
End Sub

修正後のコード：

Sub Sample70_After()
    Dim fileNo As Integer
    On Error GoTo ErrHandler
    fileNo = FreeFile
    Open "C:\work\report.txt" For Append As #fileNo
    Print #fileNo, "完了"
    Close #fileNo
    Exit Sub
ErrHandler:
    Select Case Err.Number
        Case 70
            MsgBox "ファイルに書き込めません。読み取り専用になっていないか、ほかで開かれていないかを確かめてください。"
        Case Else
            MsgBox "番号: " & Err.Number & " " & Err.Description
    End Select
End Sub

読むだけでよい場合は、For Input で開けばこの番号を避けられます（Microsoft Learn の解決策）。

On Errorの3形式の違い

On Error は、エラーが起きたときの進み先を決めるステートメントです。Microsoft Learn には、On Error を使わない場合、発生する実行時エラーはすべて致命的となり、エラーメッセージが表示されて実行が停止する、と書かれています。

On Error GoTo ラベルの基本形

Sub BasicHandler()
    On Error GoTo ErrHandler

    ' ここに本体の処理を書く
    Worksheets("注文").Range("A1").Value = "見出し"

    Exit Sub   ' 正常に終わったときは、ここで抜ける
ErrHandler:
    MsgBox "番号: " & Err.Number & " " & Err.Description
End Sub

ラベルの直前に Exit Sub（関数なら Exit Function）を置くのが決まりです。置かないと、エラーが起きていないときにもエラー処理ルーチンの行が実行されます。

On Error Resume Next は短い区間だけで使う

Function SheetExists(ByVal sheetName As String) As Boolean
    Dim ws As Object
    On Error Resume Next          ' ここから「試す」区間
    Set ws = ThisWorkbook.Worksheets(sheetName)
    On Error GoTo 0               ' 区間を終える
    SheetExists = Not ws Is Nothing
End Function

On Error Resume Next を書いたままにすると、そのあとのエラーもすべて素通りして、どこで問題が起きたかを追いにくくなります。試したい1〜2行を挟んで、すぐ On Error GoTo 0 で閉じる形にします。

知っておきたい On Error の決まり

Microsoft Learn の On Error ステートメントのページに書かれている内容です。

Resumeの3形式の違い

Resume は、エラー処理ルーチンの中から本体の処理へ戻るためのステートメントです。On Error Resume Next と名前が似ていますが、役割が違います。

呼び出し先のプロシージャで起きたエラーを呼び出し元で受けた場合、Resume は「呼び出しを行ったステートメント」から、Resume Next は「その直後のステートメント」から再開します。

エラー処理ルーチン以外の場所で Resume を実行するとエラーになります（番号 20）。また、Resume は原因を取り除かないまま使うと同じ行でまたエラーになり、処理が繰り返されます。 再試行の回数に上限を付けておくと安心です。

Sub ResumeWithRetry()
    Dim fileNo As Integer
    Dim retryCount As Long
    On Error GoTo ErrHandler

    fileNo = FreeFile
    Open "C:\work\report.txt" For Append As #fileNo
    Print #fileNo, "完了"
    Close #fileNo
    Exit Sub

ErrHandler:
    If Err.Number = 70 And retryCount < 3 Then
        retryCount = retryCount + 1
        MsgBox "ファイルを閉じてから OK を押してください。（" & retryCount & " 回目）"
        Resume            ' Open の行をもう一度実行する
    End If
    MsgBox "番号: " & Err.Number & " " & Err.Description
End Sub

On Error と Resume の対応

Errオブジェクトの使い方（Number・Description・Raise）

Err は、実行時エラーの情報を持つ組み込みのオブジェクトです。宣言や生成をせずにそのまま使えます。

Err の内容がリセットされるタイミング

Microsoft Learn によると、Err のプロパティは、Exit Sub・Exit Function・Exit Property・Resume Next・エラー処理ルーチン内の Resume のあとで、ゼロまたは長さ 0 の文字列にリセットされます。

そのため、エラー処理ルーチンに入ったら、最初に番号と説明を変数へ写しておくと、あとの処理で値が変わる心配がなくなります。次の定型でもこの形にしています。

Err.Raise で独自のエラーを発生させる

構文は次のとおりです。number 以外は省略できます。

Err.Raise number, [source], [description], [helpfile], [helpcontext]

Microsoft Learn には、番号の範囲について次の説明があります。

入力の確認で、独自のエラーを発生させる例です。

Option Explicit

Public Const ERR_NO_DATA As Long = vbObjectError + 513

Sub CheckInput()
    If Worksheets("注文").Range("A2").Value = "" Then
        Err.Raise Number:=ERR_NO_DATA, _
                  Source:="CheckInput", _
                  Description:="A2 が空です。データを貼り付けてから実行してください。"
    End If
End Sub

呼び出し元では、Err.Number で独自の番号かどうかを見分けられます。

Sub RunCheck()
    On Error GoTo ErrHandler
    CheckInput
    MsgBox "入力の確認が終わりました。"
    Exit Sub
ErrHandler:
    Select Case Err.Number
        Case ERR_NO_DATA
            MsgBox Err.Description
        Case Else
            MsgBox "番号: " & Err.Number & " " & Err.Description
    End Select
End Sub

エラー処理の定型とログ出力

ここまでの要素を1つにまとめた、コピーして使える形です。「後始末を必ず通す」「Err の内容を先に変数へ写す」「ログに残す」の3点を入れています。

本体側の定型

Option Explicit

Public Sub RunMonthlyReport()
    Const PROC_NAME As String = "RunMonthlyReport"
    Dim errNo As Long
    Dim errMsg As String
    Dim errSrc As String

    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    ' ここに本体の処理を書く
    Worksheets("注文").Range("A1").Value = "見出し"

CleanUp:
    ' 正常時もエラー時も必ず通る後始末
    Application.ScreenUpdating = True
    Exit Sub

ErrHandler:
    ' 1. Err の内容を先に変数へ写す
    errNo = Err.Number
    errMsg = Err.Description
    errSrc = Err.Source
    ' 2. ログに残す
    WriteErrorLog PROC_NAME, errNo, errMsg, errSrc
    ' 3. 利用者に知らせる
    MsgBox "処理を中断しました。" & vbCrLf & _
           "番号: " & errNo & vbCrLf & errMsg
    ' 4. 後始末へ進む
    Resume CleanUp
End Sub

Application.ScreenUpdating を False にしたマクロは、終わるときに True へ戻すよう Microsoft Learn に書かれています。エラーで途中終了した場合も戻るように、設定を戻す行は CleanUp ラベルの下に集め、Resume CleanUp で必ず通す形にしています。

ログ出力のプロシージャ

マクロのブックと同じフォルダーの error.log に、1件を1行で追記します。

Public Sub WriteErrorLog(ByVal procName As String, ByVal errNo As Long, _
                         ByVal errMsg As String, ByVal errSrc As String)
    Dim fileNo As Integer
    Dim logPath As String

    ' ログ出力そのものでマクロが止まらないようにする
    On Error Resume Next

    logPath = ThisWorkbook.Path & "\error.log"
    fileNo = FreeFile
    Open logPath For Append As #fileNo
    Print #fileNo, Format(Now, "yyyy-mm-dd hh:nn:ss") & vbTab & _
                   procName & vbTab & errNo & vbTab & errSrc & vbTab & errMsg
    Close #fileNo

    On Error GoTo 0
End Sub

使っている要素は次のとおりです。

ログの1行は、日時・プロシージャ名・番号・発生元・説明の5項目をタブで区切った形になります。表計算ソフトにそのまま貼り付けて、番号ごとに並べ替えられます。

呼び出し元へエラーを伝え直す

下位のプロシージャではログだけ残し、利用者への表示は最上位のプロシージャに任せたい場合は、変数に写した内容で Err.Raise を実行して、呼び出し元へ伝え直します。

ErrHandler:
    errNo = Err.Number
    errMsg = Err.Description
    errSrc = Err.Source
    WriteErrorLog PROC_NAME, errNo, errMsg, errSrc
    Application.ScreenUpdating = True
    Err.Raise errNo, errSrc, errMsg

エラー処理ルーチンの中で起きたエラーは呼び出し元へ制御が渡る、という On Error の決まりを利用した書き方です。

エラー処理を書くときのチェックリスト

よくある質問

Q. 実行時エラーとコンパイルエラーは何が違いますか？ A. コンパイルエラーは、実行を始める前に文法や宣言の問題として知らされるものです。実行時エラーは、文法は正しくても、実行した時点の値や状態（シートが無い、セルが文字列、ファイルが無いなど）によって起きます。この記事の番号はすべて実行時エラーです。

Q. On Error Resume Next をマクロの先頭に書いておけば安心ですか？ A. エラーのダイアログは出なくなりますが、問題が起きた行も素通りして先へ進むため、結果が途中から意図と違っていても気づきにくくなります。試したい行だけを挟み、直後に Err.Number を確かめて On Error GoTo 0 で閉じる使い方が向いています。

Q. 1004 はメッセージが漠然としていて原因がわかりません。 A. VBA の外側（Excel など）から伝わってきたエラーに付く番号なので、止まった行で操作しているセル範囲・シート・ブックの指定を順に見直します。Err.Description と Err.Source をログに残しておくと、発生元の切り分けに役立ちます。

Q. 自分で決めたエラー番号は何番を使えばよいですか？ A. Microsoft Learn では、0〜512 はシステムエラー用に予約され、513〜65535 がユーザー定義に使える範囲とされています。クラスモジュールでは vbObjectError に番号を足した値を使います。定数に名前を付けておくと、Select Case で見分けやすくなります。

まとめ

• 実行時エラーは番号で原因の型が決まる。まず止まった行を確かめ、早見表の原因と照らし合わせる
• 1004 は Excel 側のオブジェクトの指定、9 は範囲外や存在しない名前、13 は型、91 は Nothing を見直す
• 424 はドットの左側（オブジェクトではない）、438 はドットの右側（そのメンバーが無い） と覚える
• On Error は GoTo ラベル・Resume Next・GoTo 0 の3形式。ラベルの前に Exit Sub を置き、Resume Next は短い区間で閉じる
• Resume は「同じ行」「次の行」「ラベル」の3つの戻り方。後始末は Resume ラベル で必ず通す
• エラー処理ルーチンでは、Err.Number と Err.Description を先に変数へ写す
• 独自のエラーは Err.Raise で 513 以降の番号を使い、ログには日時・プロシージャ名・番号・発生元・説明を残す

参考・出典

• Microsoft Learn「トラップできるエラー」 https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/trappable-errors
• Microsoft Learn「On Error ステートメント」 https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/on-error-statement
• Microsoft Learn「Resume ステートメント」 https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/resume-statement
• Microsoft Learn「Err オブジェクト」 https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/err-object
• Microsoft Learn「Raise メソッド」 https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/raise-method
• Microsoft Learn「アプリケーション定義またはオブジェクト定義のエラー」 https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/application-defined-or-object-defined-error
• Microsoft Learn エラー 9 の解説ページ https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/subscript-out-of-range-error-9
• Microsoft Learn エラー 13 の解説ページ https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/type-mismatch-error-13
• Microsoft Learn エラー 91 の解説ページ https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/object-variable-not-set-error-91
• Microsoft Learn「Range.Find メソッド (Excel)」 https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.find

株式会社RJC ― SI事業・SES事業・AI駆動開発。RJCは一緒に成長を楽しめる会社です。