Excel VBA マクロ無限ループの強制終了する方法｜エラー防止テクニック

Excel VBA マクロが誤って無限ループに入ったり、期待通りに動作しないときのマクロ動作を強制終了する操作方法や、エラー防止テクニックコードについて、具体的に解説します。

Excel VBA マクロの無限ループ状態

以下のようなシーンで利用されます。

・マクロが無限ループに入ったとき

・マクロの実行が遅すぎると感じたとき

・実行中のマクロを中断して修正したいとき

ExcelVBAマスターへの第一歩！初心者向けエクセルマクロの作り方

ExcelVBA

【初心者向け】Excelマクロの作り方入門｜VBAの基礎から実行・修正・デバッグ

Excelマクロの作り方を初心者向けにやさしく解説。記録・実行・修正・デバッグまでをステップごとに紹介し、VBAコードの基本も理解できます。これからマクロを学びたい方に最適な入門記事です。...

ExcelVBA

Excel VBA マクロを含むExcelファイルを適切に保存する操作

Excel VBA マクロを含むExcelファイルを適切に保存することで、作成したマクロを次回以降も利用できるようにします。具体的な操作方法を紹介します。...

Excel VBA マクロを強制終了する操作内容

Option Explicit

Sub SampleMacro()
    Dim i As Long
    For i = 1 To 1000000
        Debug.Print i
    Next i
End Sub

上記コードでテストしてください。（処理が非常に重い場合、反応しないことがあります）

Excel VBA 無限ループやエラーを防ぐためのテクニック

エラーが発生しても次の行に進むように設定

Option Explicit

Sub ErrorHandlingExample()
    On Error Resume Next ' エラーが発生しても次の行に進む

    Dim result As Double
    result = 10 / 0 ' ゼロ除算エラーが発生

    If Err.Number <> 0 Then
        MsgBox "エラーが発生しました: " & Err.Description
        Err.Clear ' エラー情報をクリア
    End If
End Sub

特定のエラーが発生した際に、指定のエラー処理を行う方法

Option Explicit

Sub ErrorGotoExample()
    On Error GoTo ErrorHandler ' エラー発生時にエラーハンドラーにジャンプ

    Dim result As Double
    result = 10 / 0 ' ゼロ除算エラーが発生

    Exit Sub ' 正常終了時にエラーハンドラーをスキップ

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
    Err.Clear
End Sub

ループに終了条件を設けることで、無限ループを防ぐ

Option Explicit

Sub LoopExample()
    Dim i As Long
    i = 0

    Do While i < 100000
        Debug.Print i
        i = i + 1
        If i > 5000 Then Exit Do ' 終了条件を設定
    Loop
End Sub