Excel VBAのエラー処理を初心者でもわかりやすく解説！

ExcelでVBAを使っていると、突然「エラーが発生しました」と表示されて、作業が止まってしまうことがありますよね。特に、パソコンやスマホの操作に不安がある方にとっては、エラーの原因や対処法がわからず、困ってしまうことも多いのではないでしょうか。

でも安心してください。今回は、そんな初心者の方でも理解しやすいように、Excel VBAのエラー処理について、実際の例を交えながら丁寧に解説します。これを読めば、エラーが発生しても慌てずに対処できるようになりますよ。

エラー処理とは？
Excel VBAでのエラー処理の基本
実際のエラー処理の例
1. 例1ファイルを開く処理でのエラー処理
2. 例2セルの値を数値に変換する処理でのエラー処理
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

エラー処理とは？

Excelのイメージ

まず、エラー処理とは、プログラムが予期しない問題に直面したときに、その影響を最小限に抑えるための仕組みです。例えば、ゼロで割り算をしようとしたときや、存在しないファイルを開こうとしたときなどにエラーが発生します。

エラー処理を適切に行うことで、プログラムが途中で止まることなく、スムーズに動作し続けることができます。

Excel VBAでのエラー処理の基本

Excel VBAでは、エラー処理を行うために「On Error」ステートメントを使用します。主に以下の3つの方法があります。

On Error GoTo

この方法では、エラーが発生した場合に指定したラベル（場所）に処理を移動させます。

例

vba

Sub SampleMacro()

    On Error GoTo ErrorHandler

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

    MsgBox 1 / 0 ' ゼロで割り算を試みる

    Exit Sub

ErrorHandler:

    MsgBox "エラーが発生しました。"

End Sub

このコードでは、ゼロで割り算を試みていますが、エラーが発生すると「ErrorHandler」ラベルに処理が移動し、「エラーが発生しました。」とメッセージが表示されます。

On Error Resume Next

この方法では、エラーが発生しても処理をそのまま続行します。エラーを無視して次の行に進みたい場合に使用します。

例

vba

Sub SampleMacro()

    On Error Resume Next

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

    MsgBox 1 / 0 ' ゼロで割り算を試みる

    MsgBox "次の処理へ進みます。"

End Sub

このコードでは、ゼロで割り算を試みてもエラーが無視され、次のメッセージが表示されます。ただし、エラーを無視することは推奨されません。エラーの原因を把握し、適切に対処することが重要です。

On Error GoTo 0

この方法では、エラー処理を無効にします。エラー処理を終了したい場合に使用します。

例

vba

Sub SampleMacro()

    On Error GoTo ErrorHandler

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

    MsgBox 1 / 0 ' ゼロで割り算を試みる

    Exit Sub

ErrorHandler:

    MsgBox "エラーが発生しました。"

    On Error GoTo 0 ' エラー処理を無効にする

End Sub

このコードでは、エラーが発生すると「ErrorHandler」ラベルに処理が移動し、「エラーが発生しました。」とメッセージが表示されます。その後、エラー処理が無効になります。

実際のエラー処理の例

次に、実際の業務で役立つエラー処理の例を紹介します。

例1ファイルを開く処理でのエラー処理

vba

Sub OpenFile()

    On Error GoTo ErrorHandler

    ' ファイルを開く処理

    Workbooks.Open "C:\path\to\file.xlsx"

    Exit Sub

ErrorHandler:

    MsgBox "指定したファイルが見つかりません。"

End Sub

このコードでは、指定したファイルが存在しない場合にエラーが発生し、「指定したファイルが見つかりません。」とメッセージが表示されます。

例2セルの値を数値に変換する処理でのエラー処理

vba

Sub ConvertToNumber()

    On Error GoTo ErrorHandler

    ' セルの値を数値に変換する処理

    Dim num As Double

    num = CDbl(Range("").Value)

    Exit Sub

ErrorHandler:

    MsgBox "セルの値を数値に変換できません。"

End Sub

このコードでは、セルの値を数値に変換しようとしていますが、変換できない場合にエラーが発生し、「セルの値を数値に変換できません。」とメッセージが表示されます。