ステートメント　Do～Loopステートメント

hana

3年前

ステートメント

Do　Loopステートメントは繰り返し処理の条件を指定するステートメントです。

以下のように使います。

Do　While または Until　条件

処理

Loop

Whileは、条件を満たす間処理を実行します。

Untilは、条件を満たす迄処理を実行します。

上記表があります。

Untilを条件とします。

E列のセルが空白ではなくなるまで処理を繰り返します。

Sub test()
Dim i
i = 3
Do Until Cells(i, 5).Value <> “”
Cells(i, 5).Value = Cells(i, 3) * Cells(i, 4)
i = i + 1
Loop
End Sub

合計欄に計算された数値がかえりました。

次にWhileを条件とします。

E列のセルが空白の間、処理を繰り返します。

Sub test()
Dim i
i = 3
Do While Cells(i, 5).Value = “”
Cells(i, 5).Value = Cells(i, 3) * Cells(i, 4)
i = i + 1
Loop
End Sub

合計欄に計算された数値がかえりました。