Excel VBA Gotoで指定されたラベル行にプログラムの制御を移動させる

以下のようなシーンで利用されます。

・特定の条件が満たされた場合に、プログラムの実行を途中で終了させたり、別の部分に移動させたりする必要がある場合に使用します。

・エラーが発生した場合にエラーハンドリングルーチンにジャンプするために使用することがあります。

Option Explicit

Sub GotoExample()
    Dim x As Integer
    x = 10

    If x < 5 Then
        MsgBox "xは5未満です。"
        GoTo EndOfCode
    ElseIf x >= 5 And x < 15 Then
        MsgBox "xは5以上15未満です。"
        GoTo EndOfCode
    Else
        MsgBox "xは15以上です。"
    End If

EndOfCode:
    MsgBox "処理が終了しました。"
End Sub