条件を満たすまでループ処理をする【Do Until Loop】【ExcelVBA】

Do Loopステートメント【Until】
Do Until Loopを使ったサンプルコード
注意点
関連記事

Do Loopステートメント【Until】

指定した条件が True になるまで繰り返すループ処理を行います。
条件を満たしたらループを終了します。

構文

1⃣　Do[ Until condition ］
　　　[ statements ]
　　　[ Exit Do ]
　　　[ statements ]
　　Loop

以下の構文も使用できます。

2⃣　Do
　　　[ statements ]
　　　[ Exit Do ]
　　　[ statements ]
　　Loop [ Until condition ]

condition	True または False を評価する数式または文字列式です。 condition が Null の場合、condition は False として扱われます。省略可。
statements	condition が True になるまで、繰り返し実行するステートメントです。

Do Until Loopを使ったサンプルコード

Public Sub Sample()

'■構文1⃣
    Dim i: i = 1　　'iに1を代入
    Do Until i > 7　'iが7になるまで繰り返す
        MsgBox i & "回目"　'何回目の処理か表示する
        i = i + 1　 'iの値に1加算
    Loop　　　　　   'ループはここまで

'■構文2⃣
    Dim j: j = 1
    Do
        MsgBox j & "回目"
        j = j + 1
    Loop Until j > 7

End Sub