Excel VBAでdo-whileループを使用する方法

Excel VBA で反復的なタスクを自動化したいですか? それでは、Do-while ループを使用して、条件が満たされるまで繰り返す一連のアクションを実装する方法を学びましょう。

ループはあらゆるプログラミング言語に不可欠な部分であり、使用している言語に応じてさまざまなループを使用して、多くの反復タスクを自動化できます。Excel VBA は、それぞれが異なる目的を果たす一連のループオプションを提供するため、他の VBA と何ら変わりはありません。

これらのループは、開始点と終了点、条件、パラメーターを指定することで使用できます。VBA の顕著なループは do-while です。これを使用してデータを自動化できます。以下は、Excel で VBA の do-while ループを使用する方法です。これは、手動タスクを大幅に簡素化できる非常に必要なループ方法です。

Excel VBAのDo-whileループとは何ですか?

Excel の do-while ループは非常に単純です。特定の条件に基づいて目的の出力を生成する場合は、このループを使用して入札を設定できます。条件が True と判定された場合、ループが実行されます。プログラムが False 値を検出すると、ループは終了し、指定されたセルに結果を出力します。

do-while ループは、さまざまな基準を使用してさまざまなステージで使用できます。使いやすさを高めるために、メインの外側のループ内で複数のループを使用することもできます。

Excel VBAのdo-whileループの公式

do-while ループには、機能がスムーズに実行されるようにするために従う必要がある事前定義された構造があります。参考公式は次のとおりです。

Do while [condition_reference]

[Criteria statements]

Loop

ループは do-while キーワードで始まり、開始参照と終了参照が続きます。式の最初の部分はループ全体を制御します。次に、ループが実行されるたびにデプロイするコマンドを定義する必要があります。

最後に、ループ条件が False を返した後、loop キーワードが実行され、ループを終了します。これが全体の構造です。これを調整してさまざまなタスクを実行できます。以下に、do-while ループの仕組みを理解するための例をいくつか示します。

最初の do-while ループのコードを作成します。

列 A に 2 の倍数を表示するとします。条件は、カウンタが 20 に達するまで数値を出力することです。

これを行うには、Excel の [開発] タブに移動してコードエディターを開くか、Alt + F11キーを押してコードエディターを直接開きます。コードエディターウィンドウで、[挿入]タブをクリックし、新しいモジュールを追加します。

このモジュールウィンドウ内にすべてのコードを記述する必要があります。モジュール内に次のコードを追加します。

Sub dowhileloop()

Dim a As Integer

a = 1

Do While a <= 10="" cells(a,="" 1)="2" *="" a="" a="a" +="" 1="" loop="" end="">

Excel VBAでdo-whileループを使用する方法

コード分析

サブルーチンの使用: Excel VBA でコードの記述を開始するには、サブルーチン (Sub) 関数を使用して外部シェルを作成します。コードの目的に適した意味のある名前を付けます。この例では、dowhileloop の後に () を付けた名前を使用できます。
データ型の定義: データ型を宣言するには dim 関数を使用する必要があります。データ型を宣言することで、効率的なコードを記述し、実行速度を向上させることができます。この場合、変数aには整数値が含まれるため、整数データ型を使用して定義します。この変数に開始行番号を格納して、do-while ループの最初のデータポイントを宣言できます。
条件を定義します。次に、条件を渡して do-while ループを制御します。do while キーワードに続いて条件を使用できます。たとえば、10 回ループしたい場合は、< ==""> と記述します。
実行コマンドを渡す: VBA の Cell 関数と Range 関数の違いを理解することが重要です。セル関数は、VBA の行参照と列参照を使用します。たとえば、最初の反復では、a の値が 1 の場合、セル式は (1,1) になります。VBA のメモリでは、これはセル A1 に変換されます。ループが実行されるたびに、定義された変数の値が増加し、参照は次の使用可能なセルに移動します。
変数を増やす: コマンド a = a + 1 を渡すと、セルの値を増やすことができます。これにより、ループが条件の次の部分に移動します。ループは、条件が false と評価されるまで実行され続けます。
ループ条件を終了する: 条件が False の場合、Loop キーワードを使用してループを終了し、最後に End Sub を使用してサブルーチンを終了します。
コードを実行する: コードの準備が完了したので、このコードを実行するには、F5 キーを押すか、上部のメニューバーにある緑色の再生ボタンを押すだけです。