「Excel VBA」 Exit Do文でループ文から抜けるサンプル
書式
if 条件式 Then
Exit Do
End If
使用例
Sub funcA() Dim nn As Integer nn = 21 Do While nn < 29 If (nn = 25) Then 'ループから抜ける Exit Do End If 'イミディエイトDebug 値 Debug.Print nn nn = nn + 2 Loop End Sub
実行結果
21
23
Coding Changes the World
書式
if 条件式 Then
Exit Do
End If
使用例
Sub funcA() Dim nn As Integer nn = 21 Do While nn < 29 If (nn = 25) Then 'ループから抜ける Exit Do End If 'イミディエイトDebug 値 Debug.Print nn nn = nn + 2 Loop End Sub
実行結果
21
23