Vba-exit-do-statement
提供:Dev Guides
VBA-Exit Do
特定の条件に基づいて Do ループを終了する場合は、 Exit Do ステートメントが使用されます。 Do…While ループと Do … Until ループの両方で使用できます。
*Exit Do* が実行されると、コントロールは *Do* ループの直後の次のステートメントにジャンプします。
構文
VBAの Exit Do ステートメントの構文は次のとおりです。
Exit Do
例
次の例では、 Exit Do を使用しています。 カウンタの値が10に達すると、Doループが終了し、Forループの直後に次のステートメントに制御がジャンプします。
Private Sub Constant_demo_Click()
i = 0
Do While i <= 100
If i > 10 Then
Exit Do ' Loop Exits if i>10
End If
MsgBox ("The Value of i is : " & i)
i = i + 2
Loop
End Sub
上記のコードが実行されると、メッセージボックスに次の出力が出力されます。
The Value of i is : 0
The Value of i is : 2
The Value of i is : 4
The Value of i is : 6
The Value of i is : 8
The Value of i is : 10