「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
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
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