「On Error GoTo」と「Exit Sub」

最終更新日：2019-07-12

第61回.「On Error GoTo」と「Exit Sub」

「On Error GoTo 行ラベル」このステートメントは、
実行時エラーが発生した時に、制御を指定の行ラベルに移動させるものです。

マクロVBAは、エラーが発生するとその時点で停止してしまいます。

VBAが実行不能となった場合に、エラー発生したVBAコードで停止します。
このようなエラー発生時にも、マクロVBAが停止せずに指定の行ラベルの位置に移動したい時に、
On Error Go To ステートメントを使用します。

On Error GoTo 行ラベル

On Error GoTo 行ラベル
これが実行された後にエラーが発生すると、行ラベルの位置に制御が移ります。

このステートメント以降、
・On Error GoTo 0 を実行・・・同一プロシージャー内で記述されている場合のみ
・プロシージャーの終了
いずれかになるまでOn Errorは有効となります。


  
    
      Sub Sample

      　　On Error GoTo Label01

      　　'・・・

      　　'ここでエラー発生した場合はLabel01に移動

      　　'・・・

      　　On Error GoTo 0

      　　'・・・

      　　'ここでエラー発生した場合はVBA停止します

      　　'・・・

      　　Exit Sub

      Label01:

      　　エラー時の処理

      End Sub

行ラベル

Label01:
これが、行ラベルです。
ラベル名:
と書きます。
GoToの行先として指定する場所になります。

Exit Sub

Subプロシージャーを抜けます。
つまり、Subプロシージャーが終了します。
上記のVBAコードの場合、Exit Subが無いと常にエラー時の処理が実行されてしまいます。
ここでは、エラー処理ルーチンの直前でSubプロシージャーを抜けるために使用しています。
Exit Sub の通常の使い方


  
    
      If 終了条件 Then

      　　Exit Sub

      End If

このように、ある条件の時、
それ以降の処理をせずに、プロシージャーを抜ける為に使用します。

On Error の有効範囲とその動作について

以下のVBAコードを実際にステップ実行(F8)して、その動作を確認してください。


  
    
      Sub sample1()

      　　On Error GoTo Label01

      　　Call sample2

      　　Call sample3

      　　Exit Sub

      Label01:

      　　MsgBox "Label01"

      End Sub


      Sub sample2()

      　　On Error GoTo Label02

      　　Dim i As Long

      　　i = "abc"

      　　On Error GoTo 0

      　　Exit Sub

      Label02:

      　　MsgBox "Label02"

      End Sub


      Sub sample3()

      　　Dim i As Long

      　　i = "abc"

      　　Exit Sub

      Label03:

      　　MsgBox "Label03"

      End Sub

sample02には、On Error GoTo Label02があるので、エラー発生時はLabel02に移ります。
sample03には、On Error がないので、エラー発生した時点でプロシージャーを抜けます。
上記のVBAでsample1を実行した結果は、
「Label02」→「Label01」の順でメッセージ表示されます。

On Error がないプロシージャーでのエラー時の動作

・呼び出し元が無い場合はエラー停止します。
・呼び出し元にOn Error が無い場合はエラー停止します。
・呼び出し元にOn Error がある場合はその時点でプロシージャーを抜けます。
※呼び出し元とは
　　呼び出し元のさらに呼び出し元（親の親）も含めてになります。

エラー処理を理解することはとても重要です。
ステップ実行で、その動作を確認することが理解する一番の近道になるでしょう。

最後に

エラー処理はマクロVBAにおいて極めて重要です。
もちろん、エラー発生しないようにVBAを書くべきではありますが、
エクセルVBAでは、避けようのないエラー（でしか判定できないような場合）も存在します。
エラー処理を正しく行えるかどうかは、VBAスキルの判断になるとも言えます。
次回のOn Error Resume Nextと合わせてしっかりと習得してください。
第62回.「On Error Resume Next」とErrオブジェクト

「OnErrorResumeNext」ステートメントは、実行時エラーが発生してもマクロVBAを中断せずに、エラーが発生したステートメントの次のステートメントから実行を継続します。マクロVBAは、エラーが発生するとその時点で停止してしまいます。

実行時エラーに関する記事

実行時にトラップ可能なエラー番号一覧と対処

VBA実行時に発生するエラーのうち以下の表にあるエラーはトラップ（捕捉）できるエラーになります。OnErrorステートメントおよびErrオブジェクトのNumberロパティを使用してエラーへの対処を行うことができます。VBAでのエラーとは上記の結果はイミディエイトウインドウに 13 型が一致しません。

よくあるVBA実行時エラーの解説と対応

VBAを書き終えて、いざ実行したら意味不明なメッセージが… ここでは初心者向けに、代表的な実行時エラーの解説とその対応について説明します。中級者以上の方は、実行時にトラップ可能なエラー番号一覧と対処こちらを参考に、エラー対応（OnError等）を実装してください。