Excel VBA On Errorステートメントでエラー処理を実装する

Excel VBA On Error ステートメントは、VBAコードでエラーが発生したときにどのように処理するかを指定します。エラー処理を実装することで、コードがエラーで中断するのを防ぎ、エラーに対する適切な対応を取ることができます。具体的な使い方や、注意点やサンプルコードを紹介します。

Option Explicit

Sub ExampleResumeNext()
    Dim result As Double
    On Error Resume Next ' エラーを無視し次の行に進む
    
    result = 1 / 0 ' ここでエラーが発生するが無視される
    
    If Err.Number <> 0 Then
        MsgBox "エラーが発生しました: " & Err.Description
        Err.Clear ' エラー情報をクリア
    Else
        MsgBox "結果: " & result
    End If
    
    On Error GoTo 0 ' エラー処理を標準に戻す
End Sub

Option Explicit

Sub ExampleGoTo()
    Dim result As Double
    On Error GoTo ErrorHandler ' エラーが発生したらErrorHandlerにジャンプ
    
    result = 1 / 0 ' ここでエラーが発生する
    
    MsgBox "結果: " & result
    Exit Sub ' エラーがなければ正常終了
    
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
    ' 必要に応じてクリーンアップ処理
    Err.Clear ' エラー情報をクリア
End Sub

これらの例を使って、エラーが発生した際の挙動を制御し、プログラムの安定性を向上させることができます。

On Error ステートメントを適切に使用することで、ユーザーにとってより使いやすいエラーハンドリングを実現できます。