Do Loop2(ループ構造)

Do...Loopの続きです。


Do Until...Loop

ループの実行前に条件を評価します。最初に条件を満足した場合は、処理は1回も実行されません。
条件式を満足するまで(Falseの間)、ループを繰り返します。
構文
Do Until 条件式
 処理
Loop


次のサンプルは、A列のデータをランク分けするものです。
行の指定のため、変数iに最初に2を設定し、行をインクリメントするため、ループの中でi+1をしています。
Do Loopサンプルの図
Cells(i, 1).Value = ""は、セルのデータが「空」という意味です。
結果
結果の図


Do...Loop Until

ループの実行後に条件を評価します。最低1回は処理を実行します。
条件式を満足するまで(Falseの間)、ループを繰り返します。
構文
Do
 処理
Loop Until 条件式


次のサンプルは、A列のデータが5より小さくなるまで、B列にA列の10倍の値を設定するものです。1行目のデータで条件は満足してしまっていますが、 判定が処理の後なので、1行目だけ10倍されてしまっています。
Do Loopサンプルの図
結果
結果の図


Excel VBAのチップス一覧へ戻る

ツイート
このエントリーをはてなブックマークに追加
inserted by FC2 system