Vba-do-until-loop
提供:Dev Guides
VBA-Do-Untilループ
*Do…Until* ループは、条件が偽である限り、一連のステートメントを繰り返す場合に使用されます。 条件は、ループの開始時またはループの終了時に確認できます。
構文
VBAの Do..Until ループの構文は次のとおりです。
Do Until condition
[statement 1]
[statement 2]
...
[statement n]
[Exit Do]
[statement 1]
[statement 2]
...
[statement n]
Loop
流れ図
例
次の例では、 Do…Until ループを使用して、ループの開始時に条件を確認します。 ループ内のステートメントは、条件が偽の場合にのみ実行されます。 条件が真になると、ループを抜けます。
Private Sub Constant_demo_Click()
i = 10
Do Until i>15 'Condition is False.Hence loop will be executed
i = i + 1
msgbox ("The value of i is : " & i)
Loop
End Sub
上記のコードが実行されると、メッセージボックスに次の出力が出力されます。
The value of i is : 11
The value of i is : 12
The value of i is : 13
The value of i is : 14
The value of i is : 15
The value of i is : 16
代替構文
ループの最後に条件をチェックする Do … Until ループの代替構文もあります。 これら2つの構文の主な違いを次の例で説明します。
Do
[statement 1]
[statement 2]
...
[statement n]
[Exit Do]
[statement 1]
[statement 2]
...
[statement n]
Loop Until condition
流れ図
例
次の例では、 Do … Until ループを使用して、ループの最後の条件を確認します。 条件がTrueの場合でも、ループ内のステートメントは少なくとも1回実行されます。
Private Sub Constant_demo_Click()
i = 10
Do
i = i + 1
msgbox "The value of i is : " & i
Loop Until i<15 'Condition is True.Hence loop is executed once.
End Sub
上記のコードが実行されると、メッセージボックスに次の出力が出力されます。
The value of i is : 11