Vba-exit-do-statement

VBA-Exit Do

特定の条件に基づいて Do ループを終了する場合は、 Exit Do ステートメントが使用されます。 Do…While ループと Do …​ Until ループの両方で使用できます。

*Exit Do* が実行されると、コントロールは *Do* ループの直後の次のステートメントにジャンプします。

Copy

構文

VBAの Exit Do ステートメントの構文は次のとおりです。

 Exit Do

Copy

例

次の例では、 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

Copy

上記のコードが実行されると、メッセージボックスに次の出力が出力されます。

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

Copy