ExcelVBA プログラム中のエラーで止まらず安全に処理を続ける方法

Excel VBAで、例外処理はプログラム中にエラーが起きたとき、そのまま止まらず、安全に処理を続けたり、エラーメッセージを表示したりするために使います。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA エラーで止まらず安全に処理する｜シーン

以下のシーンで利用します。

・ファイル操作
ファイルが見つからない、開けないなどの対処

・ユーザー入力
数値でない値が入力された場合の処理

・数式のエラー
0で割るなど計算エラーの回避

・外部接続
データベースやネットワーク接続での不具合処理

Excel VBA エラーで止まらず安全に処理する｜サンプルコード

基本の使い方

Option Explicit

Sub SampleErrorHandling()
    On Error GoTo ErrHandler  ' エラー発生時はErrHandlerへジャンプ

    Dim x As Integer
    x = 10 / 0  ' 故意に0で割るエラー

    MsgBox "計算成功：" & x
    Exit Sub  ' エラーがなければ終了

ErrHandler:
    MsgBox "エラーが発生しました：" & Err.Description, vbExclamation
End Sub

入力チェック＋例外処理（フォームモジュール）

Option Explicit

Private Sub CommandButton1_Click()
    On Error GoTo ErrorHandler

    Dim userInput As Double
    userInput = CDbl(TextBox1.Value)  ' 数値でないとエラー

    MsgBox "入力された数値：" & userInput
    Exit Sub

ErrorHandler:
    MsgBox "数値を入力してください！", vbCritical
End Sub

Excel VBA エラーで止まらず安全に処理する｜まとめ