【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 – 独学エクセル塾 (dokugakuexcel.com)

条件を設定して繰り返し・ループ処理をする　Do Loop☟

【VBA知識 8】Do…Loopで条件まで繰り返し・ループ動作をする方法 – 独学エクセル塾 (dokugakuexcel.com)

について説明してきました。

今回は配列内で繰り返し・ループができるFor Eathについて説明しています。

それでは見ていきましょう。

■For Eath の構造

まずは構造から見ていきましょう。

Dim 変数名　AS 変数の型

For Each 変数名　In 配列・コレクション

‘処理

Next 変数名

Dim 変数名　AS 変数の型

変数名は何でも構いません。
変数の型は繰り返し・ループ処理をしたい型を選択します。
セルの範囲であれば「Range」、シートであれば「Worksheet」を選択します。

For Each 変数名　In 配列・コレクション

Forで繰り返し・ループの開始を宣言します。
変数名はDimで宣言した変数名を入力してください。
配列コレクションについては繰り返し・ループしたい配列を入力します。

例として・・・

A1:C5内で繰り返し処理・ループ処理
Range("A1:C5")

ブック内のシートを繰り返し・ループ処理
Worksheets

開いているブックを繰り返し・ループ処理
Workbooks

などでも繰り返し・ループ処理ができます。
指定したブックを開いているか、指定したシートが存在するかなど
にも使用されています。

Next 変数名

こちらでループの終わりを宣言します。

見本では選択した配列内で「処理」を繰り返し・ループ処理するようになります。

■実践

それでは実践に移りたいと思います。
今回はイメージしやすいように数パターン用意しました。

・範囲内で繰り返し・ループ処理

B2:G5でプラス1づつ足した数値を繰り返し・ループ処理してみましょう。

Sub B2からG5でプラス1を実行()

Dim A As Range, B As Long

B = 1

For Each A In Range(“B2:G5”)

A = B

B = B + 1

Next A

End Sub

こちらを実行すると・・・

配列内で繰り返し・ループ処理してくれてますね。

・シートで繰り返し・ループ処理

次は開いているブック内の存在するシートをB2から行方向に入力するプログラムです。

Sub 開いているシートを記入()

Dim A As Worksheet, B As Long

B = 2

For Each A In Worksheets

Cells(B, 2) = A.Name

B = B + 1

Next A

End Sub

変数をWorksheetに変更します。
実行すると…

存在するシート名を入力してくれています。

仮に変数をアクティブにして処理プログラムを入れると
全てのシートに同じ処理を繰り返ししてくれるプログラムとなります。

変数の型をWorkbookにすれば上記のシートの例を
ブックバージョンにすることもできます。

■ループを抜き出す方法

ここではFor….Eachでループを抜け出す方法を紹介します。

使用するのはIf…Thenと呼ばれる条件分岐とGotoになります。

仕組みとしてはIf…Thenで指定した条件に当てはまるか確認し、

結果にあわせてGotoでプログラムを飛ばします。

詳しくは下記記事でまとめていますので参考にしてみてください☟

【マクロVBA知識 11】GoToでプログラムを指定した場所まで飛ばす方法について Excel ► 独学エクセル塾 (dokugakuexcel.com)

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

For Each…Next ステートメントを使用する (VBA) | Microsoft Learn

■まとめ

いかがだったでしょうか。
For Next　と　Do Loop　と使い分けることで
パターンにあった処理をしてみてください！

では次回の記事でお会いしましょう。次回の記事はこちらから☟

【VBA知識 11】GoToでプログラムを指定した場所まで飛ばす方法について Excel ► 独学エクセル塾 (dokugakuexcel.com)

それでは日が暮れてしまうので繰り返し動作のDo Loopを身につけると作業がグッと楽になります。

繰り返す回数が決まっているのであればFor…Nextが有効です。
For…Nextの使用方法はこちら☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 – 独学エクセル塾 (dokugakuexcel.com)

回数が決まってないのであれば指定した条件まで実行するループ動作が必要です。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

赤字の「ここに条件を入力」をカスタムして使用してください

・Whileのプログラム（条件未達成で終了）

Sub 条件未達成で終了する繰り返し動作()
Do While ここに条件を入力
'…ループ処理したいプログラム
Loop
End Sub

・Untilのプログラム（条件達成で終了）

Sub 条件達成で終了する繰り返し動作()
Do Until ここに条件を入力
'…ループ処理したいプログラム
Loop
End Sub

■Do Loop の構造

まずは構造から見ていきましょう。

Do While or Until  ループ条件

‘…ループ処理したいプログラム

Loop

WhileとUntilの違い

While…条件をみたしてなければ終了。
Until…条件を満たしたら終了。

こちらは条件次第で変えれるのでイメージしやすい方でいいです。

ループ条件

こちらは「＝」などの等式、「＞」などの不等号などを使用して条件を設定してください。

Loop

Do…から宣言した繰り返しの終点です。
つまりDoからLoopまでを繰り返します。

■Do Loop の見本

見本で例を作成しました。☟

Sub Do Loopでの繰り返し動作()

Dim A As Long

A=1

Do Until Cells(A,1)=””

‘ここに処理

A=A+1

Loop

End Sub

これを読み解くと、、、
A行にデータが連続であったとすると
A行のデータがなくなるまで処理を続けるプログラムになります。

■実践

それでは実践です。
見本で下図のシートを用意しました。

A行に数値が並んでいる状態で
空白になるまで掛け算をしたいと思います。

Ｃ1には「15」。Ｃ2には「25」….のように続いていきます。

A列を空白になるまで処理を進めるプログラムを作る場合はこのようになります。

Do Until Cells(A, 1) = “”

AはLoopするたび1行下にずれてほしいので
A=A+1
をループ内に挟みます。

つぎに処理です。

書き込みたい行は変数で変わるため「A」です。
行は3行目なので「Cells(A,2)」となります。
あとは1行目と5をかけるので…

Cells(A, 2) = Cells(A, 1) * Cells(2, 7)

このようになります。

最後にLoopで繰り返しの終点を決めましょう。

Sub ForNextでの繰り返し動作()

Dim A As Long

A = 1

Do Until Cells(A, 1) = “”

　’ここから繰り返し動作

　Cells(A, 2) = Cells(A, 1) * Cells(2, 7)

　A = A + 1

　’ここまで繰り返し動作

Loop

End Sub

このようになりました。

実行すると…

うまく計算できてますね。
WhileとUntilで使い分けて条件を設定してみてください。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Do…Loop ステートメント (VBA) を使用する | Microsoft Learn

■まとめ

いかがだったでしょうか。
ForNextとは異なった繰り返しになります。

作成するプログラムに応じて使い分けてみてください。

次回は条件分岐のIf Then について説明しています。次回の記事はこちらから☟

【マクロ・VBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△) ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

それでは日が暮れてしまうので繰り返し動作のFor Nextを身につけると作業がグッと楽になります。

変数の知識も必要になるので変数の詳しい説明は下記記事をご参照ください。

【マクロVBA】変数型の一覧と意味と必要性について！数値や文字・配列の変数を宣言・定義をする方法 ► 独学エクセル塾 (dokugakuexcel.com)

ループの繰り返し動作を抜け出す方法も紹介していますので是非参考にしてみてください。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

Sub 繰り返し動作()
Dim 変数 As Long
For 変数 = 1 To 10 Step 1

'ここに処理プログラム

Next 変数
End Sub

変数は任意の文字に打ち換えてください。

青文字は開始数値・終わり数値・STEP数を打ち換えてください。

デフォルトは1から10まで１ずつ追加する繰り返しになります。

■For Next の構造

まずは構造から見ていきましょう

For 変数=初めの数値 TO 終わりの数値 STEP 何個ずつ実行するか

’…ここの処理をループ　内容を入力

Next 変数

For 変数=初めの数値

ここで使用している変数は数値の変数です。なのでAやBでも構いません。
その後「＝」にて繰り返しの始点を宣言します。
＝1であれば「1からスタート」。＝5であれば「5からスタート」という流れですね。

TO 終わりの数値

ここでは変数の始点が決まっている状態なので終点を設定します。
仮に変数をAとして　For A=4 であった場合に「　TO 18　」 とすると　4からスタートして8まで繰り返す。
といった流れになってます。

STEP 何個ずつ実行するか

こちらはどのような周期で繰り返すかを宣言します。
例えば「STEP 2」であれば　「2.4.6.8….」。「STEP 5」であれば「5.10.15.20.25……」
のように進んでいきます。

Next 変数

FOR…から宣言した繰り返しの終点です。
つまりFORからNEXTまでを繰り返します。

■For Next の見本

見本で例を作成しました。☟

Sub ForNextでの繰り返し動作()

Dim A As Long

For A = 3 To 15 Step 2

‘ここに処理

Next A

End Sub

これを読み解くと、、、
3から始まって15で終わる。
Stepは2なので「3.5.7.9.11.13.15」という順に7回繰り返すプログラムになります。

■実践

それでは実践です。
見本で下図のシートを用意しました。

赤枠にそれぞれの掛け算をしたいと思います。
九九の5の段ですね。
Ｃ3には「15」。Ｃ4には「25」….のように続いていきます。

まず「For 変数=初めの数値 TO 終わりの数値 STEP 何個ずつ実行するか」の部分を進めていきます。

変数はとりあえず「A」とします。
数値は3行目から始まっているので初めの数値は「3」です。
終わりの数値は12行目まであるので「12」となります。
1行づつ実行するため「Step 1 」とします。

これをまとめると…

For A = 3 To 12 Step 1

このようになります。

つぎに処理です。

書き込みたい行は変数で変わるため「A」です。
行は3行目なので「Cells(A,3)」となります。
あとは2行目と5をかけるので…

Cells(A, 3) = Cells(A, 2) * Cells(2, 3)

このようになります。

最後にNext Aで繰り返しの終点を決めましょう。

Sub ForNextでの繰り返し動作()

Dim A As Long

For A = 3 To 12 Step 1

‘ここから繰り返し動作

Cells(A, 3) = Cells(A, 2) * Cells(2, 3)

‘ここまで繰り返し動作

Next A

End Sub

このようになりました。

実行すると…

うまく計算できてますね。
とても便利です。

■ループを抜き出す方法

ここではFor….Nextでループを抜け出す方法を紹介します。

使用するのはIf…Thenと呼ばれる条件分岐とGotoになります。

仕組みとしてはIf…Thenで指定した条件に当てはまるか確認し、

結果併せてGotoでプログラムを飛ばします。

詳しくは下記記事でまとめていますので参考にしてみてください☟

【マクロVBA知識 11】GoToでプログラムを指定した場所まで飛ばす方法について Excel ► 独学エクセル塾 (dokugakuexcel.com)

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

For…Next ステートメント (VBA) | Microsoft Learn

■まとめ

いかがだったでしょうか。
繰り返しはVBAを使う上で1つの大きなメリットです。

手打ちでは時間のかかる作業をプログラムで一瞬で実現してしまいます。

しかしFor…Ｎextは繰り返す回数が決まっている必要がありますね。
なので次回は繰り返しの終わる・継続条件を設定できる方法について説明します。

Do Loopの記事はこちらから☟

【VBA知識 8】Do…Loopで条件まで繰り返し・ループ動作をする方法 – 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。