Excel VBA:ループ手順が説明されました。
Excel VBAループ
ループはVBAで最も基本的で強力なプログラミングツールの1つであり、ほとんどのプログラミング言語で使用されています。 ループは、特定の条件が満たされるか特定のポイント(または値)に達するまで必要な回数だけコードブロックを繰り返すために使用され、その後コードの次のセクションが実行されます。 ループを使用すると、単純な数行のコードを記述して、繰り返しだけではるかに重要な出力を実現できます。- ループ用
- 次のステートメント
- それぞれについて...次の文
- ループ中に実行
- 繰り返し中...ループ文
- 実行している間...ステートメント
- ループまで実行
- ループステートメントまで
- ステートメントまでループする
VBAループには3つの基本的な種類があります(以下のように6つのループに分割されています)。
ループ用
次のステートメント
コードブロックを特定の回数だけ繰り返します。次の例では、MsgBoxを5回表示して番号を表示します。
Sub F_Next_loop()i = 1〜5 MsgBoxの場合は整数としてi i i i i
それぞれについて...次の文
For Each ... Nextループは、グループ内の各オブジェクトについてコードブロックを繰り返します。 コレクションの各要素に対して、コードブロックの実行を繰り返します。 コレクション内のすべての要素がカバーされるとループは終了し、Nextステートメントの直後のコードセクションに実行が移ります。Sub F_each_loop()ActiveSheet.Range( "A1:A10")の各セルの範囲としてセルを暗くするCell.Interior.Color = RGB(160、251、142)次へセルの末尾
Exit Forステートメントは、既存のループの実行を直ちに停止し、Nextステートメントの直後のコードセクションを実行します。
ループ中に実行
指定された条件が満たされ、Trueと評価され続けている間、コードブロックを無期限に繰り返し、条件がFalseになると停止します。 条件はループの開始時または終了時にテストできます。繰り返し中...ループ文
開始時に条件をテストします。Sub do_While()整数i = 1として行いますが、セル(i、1)の間に行います。値 "" MsgBox ii = i + 1ループMsgBox i End Sub
実行している間...ステートメント
ループの終わりで条件をテストするSub do_While()整数iとしてi = 1 Dim iセルB(i、1)中にMsgBox ii = i + 1を実行します。値 "" MsgBox i End Sub
Exit Doステートメントは、既存のループの実行を即座に停止し、Nextステートメントの直後のコードセクションを実行します。
ループまで実行
条件が満たされてTrueと評価されるまで、コードブロックを無期限に繰り返します。 ループの開始時または終了時に条件をテストできますループステートメントまで
開始時に条件をテストします。Sub do_Until()整数i = 1がIsEmptyにならないように小さくする(Cells(i、1))Cells(i、1).Interior.Color = RGB(255、0、0)i = i + 1ループ終了Sub
ステートメントまでループする
ループの終わりで条件をテストします。Sub do_Until()整数iとしてi i = 1 Cells(i、1)を実行する。Interior.Color= RGB(255、0、0)i = i + 1 IsEmptyにならないまでのループ(Cells(i、1))End Sub