For Nextの記事についてはこちらから☟

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

For Nextの繰り返し処理が多い場合はデバッグは大変ですよね。
Ｆ8を連打して実行するのも不便ですし、ブレークポイントを使用しても
処理するプログラム行は手動で実行しないといけません。

そこで今回はFor Nextの変数の数値を任意の数値に変え、途中から実行する方法を紹介します。
それでは見ていきましょう。

■見本のプログラム

まず、本記事の内容を紹介するにあたり、見本のプログラムを用意しました。
下図をご覧ください。

3行目から25行目まである、B・C列の数値の和をE列に出力したいと思います。
見本でプログラムを作成しました。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

では「F5」を押して全実行してみましょう。
結果はこのようになります。

狙い通り数値1と2を足すことができました。
では本題に移りたいと思います。

下図をご覧ください。

仮に15列目までは確認が取れており、16行目から実行したいと思います。
方法としては2つあります。

内容は下記の通りです。

①イミディエイトウインドウを使用して変数を変更する
②変数の変更をプログラムに織り込む

悩んでない状態でこの記事をご覧になった方は
ForのAを16から開始すればいいと思うでしょうが
重複した繰り返し処理では本内容の技術が必要になってきます。

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

■イミディエイトウインドウを使用して変数を変更する

まずはイミディエイトウインドウを使用する方法についてです。
こちらは現在のプログラムを変更することなく、繰り返し処理の変数を変更できるので
おすすめです。

再度プログラムを見ていきましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

まず繰り返し処理の開始位置まで実行します。
見本のプログラムでは「Cells(A, 5) = Cells(A, 2) + Cells(A, 3)」までですね。

現在のAは3からスタートなので最初の「3」になってます。

しかし今回は16行目から確認（デバッグ）したいので
繰り返し処理をすることなくA=16にしないといけません。

ここで使用するのはイミディエイトウインドウです。
まず、イミディエイトウインドウを表示します。

表示方法として「Ctrl + G 」または
メニューの「表示」から「イミディエイトウインドウ」を押します。

すると下図のようなウインドウが現れます。

この記事ではイミディエイトウインドウについて詳しくは表示しませんが
こちらで変数の変更が可能です。

今回は変数Aの数値を「16」に変更したいので
「A=16」とイミディエイトウインドウに打ち込みます。

そして「Enter」を押してみましょう。
結果はこのようになります。

繰り返し処理をしなくても変数を狙いの「16」にすることができました。
ではプログラムを全実行してみましょう。

16行目から実行できてますね。

この方法はプログラムの変更がなく、動作確認（デバッグ）後もプログラムを元に戻したりなど
手戻り作業がないのでとても便利です。

■変数の変更をプログラムに織り込む

次に変数の変更をプログラムに織り込む方法について紹介します。
こちらの内容はプログラム変更によって直接変更するため
イメージしやすいですが、間違った手順で実行すると無限ループになってしまうので注意が必要です。
イミディエイトウインドウでイメージしにくい方はこちらの方法をご活用ください。

では再度プログラムを見てみましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

この状態だとAは3からスタートですが動作確認（デバッグ）ではAを16からスタートしたいとします。

つまりA=16をプログラムに組み込みます。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
A = 16
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

とてもシンプルですね。
しかしこのまま全実行すると無限ループになっています。

理由としてFor で　Aを3から25まで実行するはずですが
Aを16に置き換えて処理を終えてもAが再度16に置き換えるので
無限ループになる仕組みです。

なので動作確認（デバッグ）方法としてA=16まで実行した後は
A=16を無効または削除する必要があります。

無効または削除した後は全実行で構いません。

無事、16行目から実行できてますね。

⬛︎公式の説明

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

イミディエイト ウィンドウ (VBA) を使用する | Microsoft Learn

■まとめ

いかがだったでしょうか。
デバッグで繰り返し処理は曲者ですよね。

本記事の内容を活用して、動作確認（デバッグ）を効率よく実行してみてください。
変数を直接変更する方法を実行する場合は無限ループになってもいいように保存を先にしておいた方がいいです。

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

それでは日が暮れてしまうので繰り返し動作の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)

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