【VBAリファレンス】VBA入門「On Error GoTo」と「Exit Sub」

参照データ: https://excel-ubara.com/excelvba1/EXCELVBA361.html

1. VBA入門「On Error GoTo」と「Exit Sub」の定義と基本構文

VBA(Visual Basic Application)では、プログラムのエラーを管理するために、「On Error GoTo」と「Exit Sub」という構文が用いられます。以下にそれぞれ説明します。

「On Error GoTo」
– 「On Error GoTo」は、エラーが発生した場合に特定のラベル(GoTo)に進むようにするための構文です。
– 例:


On Error GoTo LabelName


ここで、LabelName がラベル名で、エラーが発生した場合に実行を進める場所になります。

「Exit Sub」
– 「Exit Sub」は、サブルーチーン( subroutine )を終了し、呼び出し者に戻します。
– 例:


Exit Sub


この構文は、サブルーチーン内で直接終了する必要がある場合に使用されます。

両者とも、VBAの基本的なエラー管理とフロー制御に重要な役割を果たします。

2. VBA入門「On Error GoTo」と「Exit Sub」の基本例題

VBA(Visual Basic for Applications)では、プログラムの流れを管理するために、いくつかの重要な構文があります。ここでは、「On Error GoTo」と「Exit Sub」を紹介します。これらの構文は、プログラムがエラーを発生した場合や、特定の操作を終了したい場合に役立ちます。

On Error GoTo

「On Error GoTo」は、プログラムがエラーを発生した場合に、指定されたラベルまでジャンプするように指示します。以下に例えば、数値を0で割ったり、ファイルを読み込むことができない場合のようなエラーを処理するために使用されます。

Sub CalculateValue()
On Error GoTo = “ErrorHandling”

‘ 例:数値を0で割る場合
Try
result = 10 / 0
Catch
MsgBox “エラーが発生しました。”, vbOKOnly
End Try

‘ エラーが発生した場合に実行される部分

ErrorHandling:
MsgBox “数値を0で割ることができないため、処理を中止します。”

End Sub

Exit Sub

「Exit Sub」は、サブプロシージャ(Sub)を終了するために使用します。この構文を使用すると、現在のサブが終了し、呼び出し者に戻ります。以下に例えば、計算を行った後、さらに続く操作を必要ない場合に使用されます。

Sub CalculateAndExit()
MsgBox “計算を実行しました。”

‘ 次の操作を必要とらない場合
Exit Sub

‘ ここに書かれるコードは実行されません。
MsgBox “このメッセージは、Exit Subが呼ばれていない場合に表示されます。”
End Sub

例題の説明

1. On Error GoTo:
– プログラムが予期外のエラーを発生した場合に、指定されたラベルまでジャンプします。
– エラーを捕捉するために「Try…Catch」構文と組み合わせることが一般的です。

2. Exit Sub:
– 現在のサブを終了し、呼び出し者に戻ります。
– 複数の操作を行った後、必要な操作が終了した場合に使用します。

注意事項

– ラベルは一貫的に名前を付けることが重要です。名前が重なると、不定性になります。
– エラー処理は、プログラムの安定性を向上させるために重要です。
– 「Exit Sub」は、呼び出し者に戻るまで、現在の操作が中止されます。

以上が「On Error GoTo」と「Exit Sub」の基本的な説明と例です。VBAでの実践的な使用法や、さらに詳細なコード例については、参考資料やチュートリアルをご確認ください。

3. 実務で役立つ応用パターン

VBAのOn Error GoToとExit Subは、プログラミング中頻に使用される重要な構造です。以下に実際の開発現場での応用例を説明します。

On Error句とは?
On Error句は、VBAでエラーを捕捉するための命令です。当該のエラーが発生した場合、指定されたラベルにジャンプし、エラー処理を実行することができます。以下に例えば、ファイル操作時におけるエラーを捕捉する方法です:

On Error GoTo ErrHandlingLabel

[ErrHandlingLabel]
‘ エラーが発生した場合に実行されるコード
MsgBox “エラーが発生しました”, vbOKOnly + vbCritical, “エラー”
Exit Sub

Exit Subとは?
Subプロシージャ内で作業を終了する際、 Exit Sub を使用します。メモリーのリソースを適切に入れ替え、Subが終了することができます。以下に例えば、リソースの解放を行うコードです:

Exit Sub

実務での応用例
1. データファイルの存在性確認
例えば、外部ファイルを読み込む場合、ファイルが存在するかどうかを確認することが重要です。On Error句を使って、エラーが発生した場合に別の処理を行うことができます。

Sub TestFileOpen()
On Error GoTo ErrHandlingLabel

Workbooks.Open Filename:=”データファイル.xlsx”

ErrHandlingLabel:
If Err.Number > 0 Then
MsgBox “ファイルが存在せず、エラーが発生しました”, vbOKOnly + vbCritical, “エラー”
End If
Exit Sub
End Sub

2. メモリーのリソース解放
Sub内で多くの操作を行った場合、Exit Sub を使用してリソースを適切に入れ替えることが重要です。

Sub DataProcessing()
‘ データ加工の実行
Exit Sub
End Sub

利点
– On Error句は、エラーを捕捉し、適当なレスポンスを返すことができます。
– Exit Sub は、Sub内でリソースを解放するために使用されます。

以上のコード例と説明が、実務での開発に役立つ応用パターンです。VBAの基本的な構造ですが、実際の開発では欠かせない仕組みです。

4. コードの詳細解説

VBAでは、プログラムの流れを管理するためにOn Error GoToとExit Subという重要な構文があります。以下にそれぞれについての説明とコード例を示します。

On Error GoTo

On Error GoToは、エラーが発生した場合に実行する子プログラム(Procedure)を指定するためのVBAの構文です。主ルーチン(Sub)内で使用し、エラーが発生した場合に自動的に子プログラムに進むことができます。


Sub Main()
On Error GoTo = "ErrorHandling"
End Sub