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

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

Do Until LoopとはDo Loopステートメントの一種で、繰り返しの前に条件判断し、条件が満たされるまで繰り返します。条件式にバグがあると繰り返しが止まらないので注意が必要です。

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

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

Do Until Loopの使用例

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

• Do Until i > 10 〜 Loop　：　iが3から10より大きくなるまで1ずつ増えていきます。
  iの値 ： 3,4,5,6,7,8,9,10
• Do Until i > 12 〜 Loop　：　iが4から12より大きくなるまで2ずつ増えていきます。
  iの値 ： 4,6,8,10,12
• Do Until i < 5 〜 Loop　：　iが14から5より小さくなるまで-1ずつ減っていきます。
  iの値 ： 14,13,12,11,10,9,8,7,6,5

入力したコードです。

---

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

Do Until Loopマクロの実行

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


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


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

---

---