練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題8について

こちらはマクロVBAの初歩的な知識になります。

指定された範囲の偶数・又は奇数の個数を計算し、その結果を表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地D2/D5にセル番地A1からA10までの偶数または奇数の個数を表示する

動作説明

VBAを使用して、セル番地A1からA10までの値の中で偶数の個数を計算し、その結果をセル番地D2/D5に表示します。

具体的には、セル番地A1からA10までの値を順番に取得し、偶数であればカウントを増やします。

最終的にカウントされた偶数の個数をセル番地D2に表示、奇数をD5に表示する必要があります

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

取得した値が偶数であるかどうかを判定する条件分岐を使用します。

条件分岐はIf Thenを使用します。

割ったときの余りを計算する際にはMod演算を行います。
例えば「10 Mod ３」の場合、「10÷3」で答えの「1」が出力されます。

この構造を活用して、偶然か奇数か求めます。

・ヒントその2

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

・ヒントその3

偶数であれば、偶数の個数をカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

・ヒントその4 

最終的にカウントされた偶数の個数をセル番地D2/D5に表示するために、セルへの値の代入を行います。

例えば、指定セル = 入力したい文字で文字の入力が可能です。
これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

では回答を見ていきましょう！

・回答その①

上記のコードをVBAエディタに貼り付けて実行すると、
セル番地A1からA10までの値の中で偶数の個数がセル番地D2に表示されます。

その後総数の「10」から偶数の値を引くことで、セル番地D5に奇数を表示させます。

偶数か、判別するためにはMod演算で２で割ったあまりをもとめます。

つまり、「If cell .Value Mod 2 = 0  」で対象の値を2で割ったのち、その値が「0」か条件分岐します。
結果が「0」の場合は偶数なのでカウントアップをする仕組みです。

☟繰り返し処理の見本

・回答その②

回答その①と処理方法は同じですが繰り返し処理が異なります。

先ほどは「For Each」で繰り返し処理を行っていましたが、今回は「For Next」で繰り返し処理を行っています。

For Nextの見本は下記の通りです。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。
今回はFor Each文とFor Next文を使用しました。

割った後の余りを求める

偶数の個数を数えるためには、２で割った後の余りが「0」かを確認する必要があります。

そこで「Mod演算」を使用します。

使い方としては「出力＝割る対象　Mod 割る数」のように使用します。

条件分岐

セルの値が偶数かどうかを判定するためには、条件分岐の文法を理解する必要があります。
VBAではIf…Then…Else文やSelect Case文などが使用されます。

変数の操作

偶数の個数を数えるために、カウンタ変数を用意し、条件が成り立つ場合にカウンタを増やしていく必要があります。
変数の宣言や操作方法を理解する必要があります。

まとめ

この課題では、VBAを使用してセル番地A1からA10までの偶数・奇数の個数を数えるプログラムを作成しました。

ループ構造や条件分岐、変数の操作などの基本的な概念を活用して、問題を解決しました。
VBAを使ったデータの処理や操作を行う際には、これらの基本的な知識が役立ちます。


VBAを使うことで、Excelの操作を自動化したり、複雑な計算や処理を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題8となります。お疲れ様でした！

繰り返し回数を指定できればとても便利ですよね。

例としてFor Nextでは繰り返し開始位置と終わる位置を設定します。
その数値をプログラム実行中に入力して変化させたい方は
とっても役立つ知識となります。

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

⬛︎使用する機能

まず使用する機能を紹介します。

繰り返し処理についてはFor Nextを使用して
開始行と終わる行の入力についてはInputBoxを使用します。

詳細について知りたい方は下記リンクをご参照ください。

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

【マクロVBA㊱】実行中に入力画面を表示して文字・数値を活用、変数に格納する方法InputBox ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎こんなことができるようになる！

本記事を理解していただくことで下図のような事ができるようになります。

①プログラム実行時にダイアログが表示され、繰り返し回数を入力する
②1で入力した回数分繰り返し処理を行う

⬛︎実践

では実際の内容に移りたいと思います。
今回はFor Nextでのパターンを紹介するのでプログラムを
コピーしていただいて、改造していくのが良いかもしれません。

・For Nextで入力した回数分、繰り返し処理を実行する。

見本で下図のようなシートを作成しました。
仕組みとしては基準値に数値①を○○回プラスするようにしてみます。

回数が決まっているのであれば下のようなプログラムになります。
見本で3回繰り返すようにしています。

Sub 基準値に数値①を○○回足す()

Dim N As Long

Cells(3, 5) = Cells(3, 2)

For N = 1 To 3

Cells(3, 5) = Cells(3, 5) + Cells(3, 3)

Next N

End Sub

実行した結果はこちらです。

結果は基準値の5に1を3回プラスするので8となってます。
今回はここの「To 3」を任意の数値に変えたいということになりますね。
その時に使用するのがInputBoxです。

InputBoxの構文は下記の通りです。
入力先・変数 = InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])

今回は表示メッセージの「prompt」以外省略して活用していきましょう。
表示するメッセージは「繰り返し回数を入力してください。」とします。

プログラムはこのようになります。

Cycle = InputBox(“繰り返し回数を入力してください。”)

これで入力した数値を変数Cycleに格納し、
「To Cycle」とすることで繰り返し回数を指定できることになります。

これを先ほどのプログラムと合わせるとこのようになります。

Sub 基準値に数値①を○○回足す()

Dim N As Long, Cycle As Long

Cycle = InputBox(“繰り返し回数を入力してください。”)

Cells(3, 5) = Cells(3, 2)

For N = 1 To Cycle

Cells(3, 5) = Cells(3, 5) + Cells(3, 3)

Next N

End Sub

それでは実行していきましょう。
結果はこのようになります。

実行するとダイアログが表示され、「繰り返し回数を入力してください。」というメッセージ
とともにダイアログボックスに数値を打ち込めるようになっています。

今回は見本で5を押してみましょう。

「OK」を押すと5回繰り返し処理を行います。

結果は基準値3に対し1を５回足したので結果は8になってます。

参考に数値①を2にして繰り返しを８回にした結果も見てみましょう。

結果はこのようになります。

これでプログラム実行時にダイアログで入力した数値分、繰り返し処理を行うことが
できるようになりました。

変則的な自動計算などが求められる時に使えますね。

■まとめ

いかがだったでしょうか。

InputBoxを使えばこのようなことができます。

開始位置も同様に設定が可能です。

是非参考にしてみてください。

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

今回は「For Next」などの繰り返し処理のデバッグについてです。
For Nextの記事についてはこちらから☟

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

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

そこで今回は繰り返し処理で設定した変数・条件まで実行し、停止させる方法を紹介します。
それでは見ていきましょう。

■見本のプログラム

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

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列目までは確認が取れており、15行目の位置で停止したいと思います。
ここで今回の記事の設定した変数・条件まで実行し、停止させる方法が必要になります。
では実際に見ていきましょう。

■ウォッチウインドウを活用する

では本題に移りたいと思います。
使用するのはウォッチウインドウになります。

・ウォッチウインドウを表示する

ウォッチウインドウを使用するにあたり、使用したことがない方もおられると思うので
ウォッチウインドウの表示方法を説明します。

まず「表示」のメニューを選択してください。
そこから「ウォッチウィンドウ」を押せばウォッチウィンドウを表示することができます。

すると下部にウォッチウィンドウが表示されます。

今回はこの部分を活用する内容です。

・ウォッチ式を追加する

では再度、内容を見ていきましょう。

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

では3行目から25行目まで計算するプログラムを16行目で止めてみましょう。

まずウォッチウインドウで右クリックを押します。

メニューに「ウォッチ式の追加」の項目があるので選択します。
すると下図のようなメニューが表示されます。

今回は15行目を計算した後に止めたいので
A=16になったときに停止します。

そこでウォッチ式の式を「A=16」に設定します。
ウォッチの種類を「式がTrueのときに中断」にします。

これにより「繰り返し変数のAが16になったタイミングで処理を停止」するという意味になります。
それでは実行してみましょう。結果はこのようになります。

狙いの停止位置で止まってくれました。

さらに別の方法も紹介します。
今回は15行目を計算した状態で止まってくれればいいので
「Cells(15,5)<>””」または「Range(“E15”) <> “”」を式として入力することで
E15が空白でなくなったら停止するように設定することも可能です。

⬛︎公式の説明

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

[ウォッチ] ウィンドウ | Microsoft Learn

■まとめ

いかがだったでしょうか。
ウォッチウインドウはデバッグ（動作確認)にとても役に立ちます。

ウォッチウインドウについてはこちらから☟

【マクロVBA知識 31】値が変化・設定した条件まで実行・停止!ウォッチウインドウの表示・使用方法 ► 独学エクセル塾 (dokugakuexcel.com)

でひ本内容を身に着けて、動作確認を効率よく実行してみてください。
それでは次回の記事でお会いしましょう。

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

■まとめ

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

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

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

【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)

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