ステートメント

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

投稿日:2021年4月27日 更新日:

ステートメント

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

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

 

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






派遣社員ランキング

Microsoft Officeランキング
にほんブログ村 Windows





 

-ステートメント
-, , , , , , , , , , ,

執筆者:

関連記事

ステートメント For~Nextステートメント逆順にまわす

ステートメント If~Then~Else

ステートメント MkDirステートメント

ステートメント Killステートメント

ステートメント Beepステートメント




人気記事




  • 423,411 アクセス
%d人のブロガーが「いいね」をつけました。