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

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

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

構文

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

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

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

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

注意点

• 回数を指定してループ処理を行う場合はFor Nextステートメントを使用してください。
• 無限ループが発生してしまったときは、EscキーまたはCtrl+Breakキーを押して処理を強制終了してください。

関連記事

• ループ処理の回数を指定する【For Next】
• 空白セルまでループ処理させる【DoLoop】
• 条件を満たす間ループ処理を続ける【Do While Loop】