| ★For...Next ステートメント 繰り返し処理 その1 | |||
◎ 始まりと終わりを指定することで、始まりから終わりになるまでその間、同じ処理を繰り返すという便利なステートメントです。 |
|||
For 変数名 = 始まり To 終わり 繰り返し行う処理 Next 変数名 |
|||
例） セルのA1からセルE1までの色を青色に変える まずは雰囲気だけ！ |
|||
 |
|||
これには次のようなコードを書きました。 自分流の変数名を考えて、きちんと変数を宣言することが大切ですよ。 For...Nextステートメントの使い方をよ〜く勉強して下さいね。 |
|||
Sub fornext() ’A1からE1までのセルの色を青色に変えます。 Dim フォーネクスト As Long For フォーネクスト = 1 To 5 Cells(1, フォーネクスト).Interior.ColorIndex = 5 Next フォーネクスト End Sub |
|||
さて実行結果はどうでしょうか？ マクロの実行からマクロ「Fornext」を実行して下さいね。 |
|||
 |
|||
青くなりました。 変数名を「フォーネクスト」なんて入力しにくい名前にしましたが、皆さんはアルファベットの名前にされることをお薦めします。 では解説ですが Dim フォーネクスト As Long 「フォーネクスト」っていう変数は数値ですよ。数字として扱って下さいってことです。 For フォーネクスト = 1 To 5 変数「フォーネクスト」に１、２、３、４、５って数字順番に入りますよ。 Cells(1, フォーネクスト).Interior.ColorIndex = 5 Cells（1, フォーネクスト）は、（1，1）、（1，2）、（1，3）、（1，4）、（1，5）と順番に変化していきます。 そして（1，1）はA1、（1，2）はB1、（1，3）はC1、（1，4）はD1、（1，5）はE1を指しています。 その各セルをカラーインデックスの5の青色に変えます。 Next フォーネクスト 最後はこの "Next 変数名" でFor...Nextステートメントは終わりです。 さて次回は、For...NextステートメントとIf...Then...Elseステートメントを合体させて使う方法について解説します。 |
|||
|
|||