機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAのステートメント

Do...Loopステートメント



Do...Loopステートメント

構文
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop

または、

Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]

WhileとUntilは、どちらか一方を指定します。
conditionには、ループを継続する判定式を指定します。
statementsには、ループ中で実行するステートメントを指定します。

解説
条件式を判定し、真の間だけまたは真になるまでステートメントを繰り返し実行します。
While conditionは、conditionが真の間だけ繰り返し、Until conditionでは、conditionが真になるまで繰り返します。
ループの途中でExit Doを使うと、強制的にループを抜けます。

サンプル
次の例は、変数aが100より小さい間だけa=a+1を実行します。次に、b=b+1を繰り返し変数bが55になったときループから強制的に抜けます。

Sub Sample()
    Dim a As Long, b As Long
    Do While a < 100
        a = a + 1
    Loop
    MsgBox a            '100を表示します
    Do Until b = 100
        b = b + 1
        If b = 55 Then Exit Do
    Loop
    MsgBox b            '55を表示します
End Sub



このエントリーをはてなブックマークに追加