Excel VBAでのエラーメッセージ処理入門

皆さん、こんにちは！今日は、Excel VBAでプログラムを作成する際に避けて通れない「エラーメッセージ」についてお話しします。プログラムを実行していて、突然エラーメッセージが表示されて驚いた経験はありませんか？そんな時、適切なエラー処理を行うことで、プログラムの信頼性と使いやすさが格段に向上します。今回は、初心者の方にもわかりやすく、エラー処理の基本から実践的な方法までを解説します。

エラー処理の基本On Errorステートメント
1. On Error GoToによるエラー処理
2. On Error Resume Nextによるエラー無視
Errオブジェクトで詳細なエラー情報を取得
エラー処理のベストプラクティス
よくある質問や疑問
1. エラー処理を入れるとプログラムが遅くなりますか？
2. エラーを無視しても大丈夫な場合はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

エラー処理の基本On Errorステートメント

Excelのイメージ

プログラム中でエラーが発生した際、そのままにしておくとプログラムが停止してしまいます。これを防ぐために、VBAではOn Errorステートメントを使用してエラー処理を行います。

On Error GoToによるエラー処理

まず、エラーが発生した際に特定の処理を行う方法を見てみましょう。

vba

Sub SampleProcedure()

    On Error GoTo ErrorHandler

    ' ここに通常の処理を記述

    Exit Sub

ErrorHandler:

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

End Sub

このコードでは、エラーが発生するとErrorHandlerというラベルにジャンプし、メッセージボックスでエラーメッセージを表示します。
この方法により、エラー発生時に適切な対応を行うことができます。

On Error Resume Nextによるエラー無視

場合によっては、エラーを無視して処理を続行したいこともあります。その際には、On Error Resume Nextを使用します。

vba

Sub IgnoreErrorExample()

    On Error Resume Next

    ' エラーが発生する可能性のある処理

    If Err.Number <> 0 Then

        MsgBox "エラーが発生しましたが、処理を続行します。"

        Err.Clear ' エラー情報をクリア

    End If

    ' 続きの処理

End Sub

このコードでは、エラーが発生してもプログラムは停止せず、エラーメッセージを表示した後に処理を続行します。ただし、エラーを無視することで予期しない結果を招く可能性があるため、使用には注意が必要です。

Errオブジェクトで詳細なエラー情報を取得

エラーが発生した際、Errオブジェクトを使用することで、エラー番号やエラーメッセージなどの詳細な情報を取得できます。

vba

Sub DetailedErrorInfo()

    On Error GoTo ErrorHandler

    Dim result As Integer

    result = 10 / 0 ' ゼロでの除算でエラー発生

    Exit Sub

ErrorHandler:

    MsgBox "エラー番号: " & Err.Number & vbCrLf & _

           "エラー内容: " & Err.Description

End Sub

この例では、ゼロでの除算によりエラーが発生し、Errオブジェクトを使ってエラー番号と内容を表示しています。
エラー番号を知ることで、具体的な問題点を特定しやすくなります。