エクセルVBAでDo-Whileループを使用する方法

あなたのような読者が、MUOを支えています。当サイトのリンクを使って購入された場合、アフィリエイト報酬を得ることがあります。続きを読む

ループはどんなコーディング言語にも不可欠な要素で、言語によって様々なループを使うことで、多くの反復作業を自動化することができます。ExcelのVBAにもループのオプションがあり、それぞれが異なる目的をもっています。

ループは、始点と終点、条件、パラメータを定義することで使用することができます。VBAのループの中でも特に有名なのがdo-whileループで、データの自動化に使うことができます。ここでは、Excel VBAのDo-whileループの使い方を紹介します。このループは、手動で行う作業を大幅に簡略化することができる必須のループ手法です。

スクロールして内容を続ける

Excel VBAのDo-Whileループとは何ですか？

Do-whileループは非常に簡単で、特定の条件に基づいて希望の出力を生成したい場合に、このループを使用して命令を実行することができます。ループは、定義された条件がTrueになるまで実行されます。プログラムがFalseの値を検出すると、ループは終了し、指定されたセルに結果が表示されます。

Do-whileループは、さまざまな段階、さまざまな基準で使用することができます。メインの外側ループの中に複数のループを使用して、その使用方法を強化することもできます。初心者の方は、VBAプログラミングのチュートリアルを参考にして、この分野の知識とスキルを高めてください。

Excel VBAのDo-Whileループ's構文

do-whileループは、あらかじめ定義された構造を持っており、それに従うことで、エラーを発生させることなくスムーズに機能するようになります。以下、参考までにその構文を示します：

Do while[condition_reference][Criteriaステートメント]ループ

ループはdo-whileキーワードで始まり、その後に開始参照と終了参照が続きます。構文の最初の部分は、ループ全体を制御します。次に、ループが実行されるたびに実行されるステートメントを定義する必要があります。

最後に、ループ条件がFalseになると、loopキーワードが実行され、ループが終了します。これは全体的な構造であり、これを改良してさまざまなアクションを実行することができます。ここでは、Do-Whileループの動作に慣れるためのいくつかの例を示します。

最初のDo-Whileループのコードを書く

Aの列に2の倍数を表示したいとします。条件は、カウンターが20になるまで数字を表示することです。

そのためには、ExcelのDeveloperタブに移動してコーディングエディターを開きます。あるいは、Alt F11を押してコーディングエディターを直接開きます。コードエディター・ウィンドウで、「挿入」タブをクリックし、新しいモジュールを追加します。

このモジュールウィンドウ内にすべてのコードを記述する必要があります。モジュール内に以下のコードを追加してください：

Sub dowhileloop()Dim aAsIntegera =1Do Whilea <=10Cells(a, 1) = 2 * aa = a1LoopEndSub $Block of code in VBA\'s coding editor$

コードの説明

ここでは、基本をマスターするために、コードの内訳を説明します'：

サブルーチンを使うExcel VBAでコードを書き始めるには、サブルーチン関数（Sub）で外殻を作成します。コードの目的と共鳴するような、意味のある名前を付けます。この例では、dowhileloopという名前を使い、その後に()を付けることができます。
データ型を定義する：変数のデータ型を宣言するには、ディメンション（dim）関数を使用する必要があります。データ型を宣言することで、コードを効率化し、実行速度を向上させることができます。この場合、変数aは整数値を格納するので、整数データ型を使用して定義します。この変数に開始行番号を格納して、Do-Whileループの開始データポイントを宣言することができます。
条件を定義する：さて、いよいよdo-whileループを制御するための条件を渡します。do whileキーワードの後に条件を指定することができます。ループを10回実行したいので、a < = 10という条件を使用します。
実行可能なステートメントを渡すVBAのCells関数とRange関数の違いを知っておくことは重要です。Cells関数は、VBA内の行と列の参照を使用します。例えば、最初の繰り返しでaの値=1の時、セル式は(1,1)となります。VBA'のメモリ上では、これはセルA1に変換されます。ループが実行されるたびに、定義された変数の値が増加し、参照は次の利用可能なセルに移動します。
変数をインクリメントする：セルの値を増加させるために、= a 1ステートメントを渡すことができます。これにより、ループは条件の次の部分に移動します。ループは、条件がFalseになるまで実行され続けます。
ループ条件を終了する：条件がFalseになったら、Loopキーワードでループを終了し、最後にEnd Subキーワードでサブルーチンを終了する。
コードを実行するコードの準備ができたので、F5キーまたは上部メニューバーの緑の再生ボタンを押すだけでコードが実行されます。

最終的には、A列の中に2～20までの数字のリストが表示されます。