For-Next文でのExit

【目的】
VBAでFor-Next文でExitを使用し、ループを途中で抜けます。



【手順】
１．「標準モジュールの作成方法」の手順で、「MainModule」とい標準モジュールを作成。
２．「MainModule」を以下の様に入力。

Option Explicit

Sub main()
    Dim i As Integer
    
    For i = 1 To 10
        Debug.Print ("i=" & i)
        If i = 5 Then
            Debug.Print ("ループを抜けます。")
            Exit For
        End If
    Next
End Sub

３．「関数を実行する方法」の手順で、main関数を実行。
４．イミディエイトウィンドウが表示されない場合は、「イミディエイトウィンドウの表示方法」でイミディエイトウィンドウを表示させます。
５．以下の様に、イミディエイトウィンドウに以下の様に、出力されれば成功です。

以上です。