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

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

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

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

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

Do Loop Whileの使用例

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

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

入力したコードです。

---

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

Do Loop Whileマクロの実行

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


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


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

---

---