「Excel VBA」 Exit Do文でループ文から抜けるサンプル

書式
if 条件式 Then
Exit Do
End If
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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

Excel VBA

Posted by arkgame