概要
Excel VBA開発において、予期せぬエラーはつきものです。プログラムの実行中に発生するエラーは、コードの動作を停止させ、ユーザーに不快感を与え、場合によってはデータの破損にもつながりかねません。このような事態を防ぎ、より信頼性の高いアプリケーションを構築するためには、適切なエラー処理が不可欠です。本記事では、VBAにおける最も基本的かつ強力なエラー処理メカニズムである`On Error`ステートメントに焦点を当て、その使い方から応用、そして実践的なアドバイスまで、徹底的に解説します。VBA初心者の方から、より堅牢なコードを目指したい中級者の方まで、必見の内容となるでしょう。
詳細解説：On Errorステートメントの基本と種類
`On Error`ステートメントは、VBAコードの実行中にエラーが発生した場合に、プログラムの動作をどのように制御するかを定義するために使用されます。このステートメントには、主に以下の3つの形式があります。
1. On Error GoTo [ラベル名]
これが最も一般的で強力なエラー処理方法です。エラーが発生した場合、指定したラベル（コード内の特定の場所を示す目印）に処理をジャンプさせます。このラベル以降に、エラー発生時の対応コードを記述します。
**構文:**
On Error GoTo ErrorHandler
‘ 通常の処理コード
…
Exit Sub ‘ 正常終了時にエラーハンドラをスキップ
ErrorHandler:
‘ エラー発生時の処理コード
…
Resume Next ‘ エラーが発生したステートメントの次のステートメントから実行を再開
‘ または
Resume ‘ エラーが発生したステートメントから再実行
‘ または
Exit Sub ‘ エラーハンドラを終了
* **`GoTo [ラベル名]`**: エラー発生時に、指定したラベルに処理を移します。
* **`ErrorHandler`**: これはラベル名の例です。任意の名前を付けることができます。
* **`Exit Sub`**: 正常に処理が完了した場合、エラーハンドラ部分に処理が移るのを防ぐために、エラーハンドラの前でプロシージャを終了させます。
* **`Resume Next`**: エラーが発生した行の「次」の行から処理を続行します。エラーを無視して先に進む場合に便利ですが、意図しない結果を招く可能性もあるため注意が必要です。
* **`Resume`**: エラーが発生した行から処理を再開します。エラーの原因を修正してから再開する場合などに使用します。
* **`Resume LabelName`**: 指定したラベルから処理を再開します。
* **`Resume 0`**: `Resume`と同じです。
2. On Error Resume Next
この形式は、エラーが発生しても処理を中断せず、エラーが発生した行の次の行から実行を続行します。これは、一時的なエラーや、発生しても問題ないと判断できる場合に便利ですが、エラーを見逃してしまうリスクも高いため、慎重に使用する必要があります。
**構文:**
On Error Resume Next
‘ エラーが発生する可能性のあるコード
…
‘ エラーが発生したか確認し、必要に応じて処理
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description
‘ エラー処理
Err.Clear ‘ エラーオブジェクトをクリア
End If
On Error GoTo 0 ‘ エラーハンドリングをデフォルトに戻す
* **`On Error Resume Next`**: エラーが発生しても、次の行から実行を続けます。
* **`Err` オブジェクト**: エラーが発生すると、VBAは`Err`オブジェクトにエラー情報を格納します。`Err.Number`でエラーコード、`Err.Description`でエラーメッセージを取得できます。
* **`Err.Clear`**: エラー情報をクリアします。これを実行しないと、次のエラーが発生した際にも前のエラー情報が残ってしまい、混乱を招く可能性があります。
* **`On Error GoTo 0`**: このステートメントで、それ以降のエラー処理をデフォルト（エラー発生時に実行を停止する）に戻します。
3. On Error GoTo 0
この形式は、それ以降のエラー処理を無効にし、デフォルトの状態に戻します。つまり、エラーが発生するとプログラムの実行は停止し、デバッグウィンドウが表示されます。これは、エラー処理を一時的に無効にしたい場合や、特定のブロックでエラー処理を行った後に、通常の動作に戻したい場合に使用します。
**構文:**
On Error GoTo 0
‘ この行以降、エラーが発生すると実行が停止します。
サンプルコード：実践的なエラー処理の例
ここでは、具体的なシナリオを想定したサンプルコードをいくつか紹介します。
例1：ファイルが存在しない場合のエラー処理
ユーザーが指定したファイルを開こうとした際に、ファイルが存在しないというエラーはよく発生します。これを`On Error GoTo`で処理してみましょう。
Sub OpenFileSafely()
Dim filePath As String
Dim workbook As Workbook
filePath = Application.GetOpenFilename(“Excel Files (*.xls*),*.xls*”)
If filePath = False Then
MsgBox “ファイル選択がキャンセルされました。”, vbInformation
Exit Sub
End If
On Error GoTo FileErrorHandler
‘ ファイルを開く処理
Set workbook = Workbooks.Open(filePath)
MsgBox “‘” & workbook.Name & “‘ を正常に開きました。”, vbInformation
‘ 正常終了時の処理
On Error GoTo 0 ‘ エラーハンドリングをデフォルトに戻す
Set workbook = Nothing
Exit Sub
‘ エラーハンドラ
FileErrorHandler:
If Err.Number = 1004 Then ‘ File Not Found エラーコード
MsgBox “エラー: 指定されたファイルが見つかりません。” & vbCrLf & _
“ファイルパス: ” & filePath, vbCritical
Else
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical
End If
‘ エラー処理後、クリーンアップ
Err.Clear
On Error GoTo 0 ‘ エラーハンドリングをデフォルトに戻す
Set workbook = Nothing
End Sub
このコードでは、`Workbooks.Open`でエラーが発生した場合、`FileErrorHandler`ラベルにジャンプします。`Err.Number`で特定のエラー（この場合はファイルが見つからないエラー）を判別し、それに応じたメッセージを表示しています。それ以外の予期せぬエラーも捕捉できるように、汎用的なエラーメッセージも用意しています。
例2：セルへの値設定時に型が一致しない場合のエラー処理 (On Error Resume Next の使用例)
数値を入れるべきセルに文字列を設定しようとした場合などにエラーが発生します。`On Error Resume Next`を使って、エラーが発生しても処理を続行し、後でエラーをチェックする例です。
Sub SetCellValueWithCheck()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“Sheet1”) ‘ 対象シートを指定
On Error Resume Next ‘ エラーが発生しても続行
‘ 正常な値設定
ws.Range(“A1”).Value = 123
‘ エラーが発生する可能性のある値設定 (文字列を数値セルに設定)
ws.Range(“B1”).Value = “abc”
‘ エラーチェック
If Err.Number <> 0 Then
MsgBox “セルB1への値設定中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbExclamation
‘ エラーが発生した場合の処理 (例: エラーセルに印をつける)
ws.Range(“B1”).Interior.Color = RGB(255, 0, 0) ‘ 赤色で塗りつぶし
Err.Clear ‘ エラーをクリア
Else
MsgBox “セルB1への値設定は正常に完了しました。”, vbInformation
End If
‘ 別のエラーが発生する可能性のある処理
‘ 例: 存在しないシートにアクセス
ThisWorkbook.Sheets(“NonExistentSheet”).Range(“A1”).Value = 999
If Err.Number <> 0 Then
MsgBox “存在しないシートへのアクセス中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbExclamation
Err.Clear ‘ エラーをクリア
End If
On Error GoTo 0 ‘ エラーハンドリングをデフォルトに戻す
Set ws = Nothing
End Sub
この例では、`On Error Resume Next`でエラーを無視し、処理の最後に`Err.Number`をチェックしています。エラーが発生していれば、ユーザーに通知し、エラーセルを特定の色で塗りつぶすなどの後処理を行っています。`Err.Clear`でエラー情報をクリアすることを忘れないようにしましょう。
実務アドバイス：エラー処理をより効果的に行うために
1. **エラーハンドラはプロシージャの最後（または適切と思われる場所）にまとめる:**
`On Error GoTo [ラベル名]` を使用する場合、エラーハンドラ部分はプロシージャの最後の方にまとめて記述するのが一般的です。これにより、コードの可読性が向上します。また、複数のエラーハンドラが必要な場合は、それぞれのブロックにラベルを付けて管理します。
2. **`Err`オブジェクトを最大限に活用する:**
`Err.Number`と`Err.Description`は、エラーの原因を特定するために非常に役立ちます。可能であれば、これらの情報をログファイルに記録したり、ユーザーに分かりやすいメッセージで伝えたりするようにしましょう。`Err.Source`プロパティでエラーが発生したオブジェクトやプロシージャ名を知ることもできます。
3. **`On Error Resume Next`は限定的に使用する:**
このステートメントは便利ですが、エラーを見逃すリスクが非常に高いため、本当にエラーが発生しても問題ない、あるいはエラー発生後に自分で明確にチェックできる場合にのみ使用してください。多用すると、コードのデバッグが非常に困難になります。
4. **`On Error GoTo 0`でエラーハンドリングをリセットする:**
エラーハンドラを抜けた後や、特定のブロックでエラー処理を終えた後は、必ず`On Error GoTo 0`でデフォルトの状態に戻してください。これを忘れると、意図しない場所でエラーが発生した際に、プログラムが予期せず続行してしまう可能性があります。
5. **ユーザーフレンドリーなメッセージを心がける:**
エラーメッセージは、技術者でなくても理解できるように、具体的で分かりやすい言葉で記述しましょう。エラー番号や技術的な詳細情報も併記すると、サポート担当者などが原因を特定しやすくなります。
6. **ログ機能の実装を検討する:**
大規模なアプリケーションや、多数のユーザーが利用するアプリケーションでは、エラー情報をファイルに記録するログ機能は非常に重要です。これにより、問題発生時の原因究明や、バグの修正に役立ちます。
7. **「Exit Sub」を適切に配置する:**
`On Error GoTo [ラベル名]` を使用する際は、正常終了時にエラーハンドラに処理が流れてしまわないように、`Exit Sub`ステートメントをエラーハンドラの前（通常は通常処理のブロックの最後）に配置することを忘れないでください。
8. **エラーハンドラ内での`Resume`の使い分け:**
* `Resume Next`: エラー行の次から実行。エラーを無視したい場合に。
* `Resume`: エラー行から再実行。エラー原因が修正された場合に。
* `Resume LabelName`: 指定ラベルから実行。
特に`Resume`を使用する場合は、エラー原因を解決するコードがエラーハンドラ内に存在するか、またはユーザーに解決を促す必要があるかを慎重に判断してください。
まとめ
`On Error`ステートメントは、Excel VBAで robust（堅牢）なコードを書くための基礎となる機能です。`On Error GoTo [ラベル名]` を使った明示的なエラーハンドリングは、エラー発生時の挙動を制御し、ユーザーエクスペリエンスを向上させるための最も効果的な方法です。`On Error Resume Next`は、特定の場合に有用ですが、そのリスクを十分に理解した上で慎重に使用する必要があります。
本記事で解説した内容を参考に、あなたのVBAコードに適切なエラー処理を実装し、より信頼性の高い、プロフェッショナルなアプリケーション開発を目指してください。エラー処理は、単にエラーを防ぐだけでなく、コードの品質と保守性を高めるための重要なステップなのです。
