Do Loop Until：Excel（エクセル）マクロ

Do Loop UntilとはDo Loopステートメントの一種で、繰り返しの後で条件判断し、条件が満たされるまで繰り返します。

条件式にバグがあると繰り返しが止まらないので注意が必要です。

Do Loop Untilステートメントとは

■ Do 〜 Loop Untilの構文
Do
　　処理
Loop Until 条件式

・Untlの後ろに条件式を入力し、条件が満たされるまでDoに戻り処理を繰り返します。

Do Loop Untilの使用例

For Next 、 Do While Loop、Do Loop While、Do Until Loop の使用例と同じ処理を作成しました。「MyDoLoopUntil」のプロシージャです。
変数i を増減させ i の値をセルに入力します。

• Do 〜 Loop Until i > 10　：　最初に処理を行い、iが3から10より大きくなるまで繰り返します。
  iの値 ： 3,4,5,6,7,8,9,10
• Do 〜 Loop Until i > 12　：　最初に処理を行い、iが4から12より大きくなるまで繰り返します。
  iの値 ： 4,6,8,10,12
• Do 〜 Loop Until i < 5　：　最初に処理を行い、iが14から5より小さくなるまで繰り返します。
  iの値 ： 14,13,12,11,10,9,8,7,6,5

入力したコードです。

---

Sub MyDoLoopUntil()
    Dim i As Long
    
    i = 3
    Do
        Cells(i, 2) = "DoLoopUntil=" & i
        i = i + 1
    Loop Until i > 10
    
    i = 4
    Do
        Cells(i, 3) = "DoLoopUntil=" & i
        i = i + 2
    Loop Until i > 12
    
    i = 14
    Do
        Cells(i, 4) = "DoLoopUntil=" & i
        i = i - 1
    Loop Until i < 5
End Sub

Do Loop Untilマクロの実行

作成したMyDoLoopUntilのプロシージャです。


B列は 変数i が3から10より大きくなるまで、1ずつ増えていっています。
C列は 変数i が4から12より大きくなるまで、2ずつ増えていっています。
D列は 変数i が14から5より小さくなるまで、1ずつ減っています。


Excelマクロのサンプルファイル：フリーダウンロード

---

---