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

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

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

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

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

Do While Loopの使用例

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

• Do While i <= 10 〜 Loop　：　3から10まで1ずつ増えていきます。
  iの値 ： 3,4,5,6,7,8,9,10
• Do While i <= 12 〜 Loop　：　4から12まで2ずつ増えていきます。
  iの値 ： 4,6,8,10,12
• Do While i >= 5 〜 Loop　：　14から5まで-1ずつ減っていきます。
  iの値 ： 14,13,12,11,10,9,8,7,6,5

入力したコードです。

---

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

Do While Loopマクロの実行

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


B列は 変数i が1ずつ増えていっています。
C列は 変数i 2ずつ増えていっています。
D列は 変数i 1ずつ減っています。


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

---

---