エラーのトラップ

「エラーのトラップ」とは、発生したエラーに対し適切に対処することです。

on Error Resume Nextステートメント

「on Error Resume Nextステートメント」は、エラーが発生しても実行を中断せずに次のステートメントを実行します。

Sub ErrTrapSample1()
    Dim res As Integer
    
    'エラートラップ有効
    On Error Resume Next
    
    'ユーザが数値以外を入力した場合などエラー発生
    res = CInt(InputBox("数値を入力してください"))
    
    MsgBox res
    
End Sub

上記のように簡単にエラーを回避できますが、プログラムでは防げないエラーをトラップするためのものであることを忘れてはいけません。

On Error GoTo ステートメント

「On Error GoToステートメント」は、エラーが発生した場合、エラー処理ルーチンに分岐するステートメントです。

Sub ErrTrapSample2()
    'エラートラップ有効（行ラベルを指定）
    On Error GoTo HandleErr
    
    'わざと存在しないシートを指定してエラーを発生
    ActiveWorkbook.Worksheets("aaa").Activate
    
    'エラーが発生しなかった場合の処理
    MsgBox "正常に処理実行"
    
    'エラーが発生しなかった場合は、必ず処理終了
    Exit Sub
    
    
HandleErr:
    MsgBox "シート「aaa」は存在しません"
    
End Sub

「On Error GoTo ステートメント」の引数には、行ラベル（又は行番号）を指定します。

行ラベルの名前は任意です。

行ラベルは、「HandleErr:」のように「：」（コロン）つけ、基本的にマクロの最後に記述します。

また、エラーが発生しなかった場合にエラー処理ルーチンを処理しないように、エラー処理ルーチンの直前に「Exit Sub」などを記述してマクロを抜ける処理をしましょう。

On Error GoTo 0 ステートメント

「On Errorステート」は、マクロ終了時に自動的に無効になるが、「On Error GoTo 0 ステートメント」は、マクロの中でトラップ機能を無効にする場合に使用する

エラー番号の例