「On Error Go To」と「Exit Sub」

最終更新日：2018-01-27

第61回.「On Error Go To」と「Exit Sub」

On Error GoTo 行ラベルステートメントは、

実行時エラーが発生した時に、制御を指定の行ラベルに移動させるものです。

On Error GoTo 行ラベル

エラーが発生すると、行ラベルの位置に制御が移ります。

このステートメント以降、On Error GoTo 0 が無い限り、

プロシージャーの終わりまで有効となります。


  
    
      
      Sub Sample
      　　On Error GoTo Label01
      　　・・・
      　　Exit Sub
      Label01:
      　　エラー時の処理
      End Sub

Label01:
これが、行ラベルです。

行ラベル

ラベル名:

と書きます。

GoToの行先として指定する場所になります。

Exit Sub

Subプロシージャーを抜けます。

つまり、Subプロシージャーが終了します。

上記で、Exit Subが無いと、常にエラー時の処理が実行されてしまいます。

こごては、エラー処理ルーチンの直前で、Subプロシージャーを抜けるために使用しています。

Exit Sub の通常の使い方

If 終了条件 Then
　　Exit Sub
End If

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

実行時エラー関連記事

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

マクロVBA実行時に発生するエラーのうち、以下の表にあるエラーは、トラップできるエラーになります。OnErrorステートメントおよびErrオブジェクトのNumberロパティを使用して、エラーへの対処を行うことができます。ExcelマクロVBAの問題点と解決策、エクセルVBAの技術的解説

「On Error Go To」と「Exit Sub」

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。