VBA再入門
同じ計算を行数分繰り返す（For～Next）

今まで書きませんでしたが、練習用のデータは、自分で作りましょう。
エクセルの上達には慣れが必要です。
本を読んでもタイピングは早くなりません。
練習あるのみです、エクセルも同じです。
他愛もない、下のようなデータを作るにも、それなりの時間がかかります。
そういう事を通してエクセルに慣れることも、マクロ上達につながるのです。
VBAの文法ばかり覚えても、マクロをサクッと書けるようにはなりません。
ちなみに以下のデータは、RANDBETWEEN関数で作りました。

まずは、2行目のみ計算するマクロを書いてみましょう
sub 練習7
Enter
TAB
cells(2,3)=cells(2,1)*cells(2,2)
Enter

実行すると、

2行目は、ちゃんと計算できました。
このマクロは、
Cells(2, 3) = Cells(2, 1) * Cells(2, 2)
となっているので、2行目の計算をやってくれます。
3行目を計算するなら、
Cells(3, 3) = Cells(3, 1) * Cells(3, 2)

そこで、
Cellsの行数だけを変化出来れば便利ですよね。
VBAには、変数と言うものがあります。
変わる数ってことですが、データの入れ物、みたいに思ってもらえば良いです。
とりあえず、好きなデータを入れておけるものです。
では、変数を使ってみましょう。
CellsのCの前をクリックして、

Enter
↑
dim i
Enter
※入力手順に書いた、↑↓→←、これらは矢印キーを意味します。

この
Dim
というのが、変数を使う時の決まり文句です。
i
これが、変数の名前です。
つまり
Dim 変数名
これで書いた変数名を変数として使えるようになります。
第1回.マクロを書く準備をする
ここで、
「変数の宣言を強制する」にチェックをつける
これを覚えていますか。
変数を使う時は、Dimで宣言しますよーと、エクセルに約束したのです。
ですから、変数を使う時は、
Dim 変数名
これで、この変数名を使う事をエクセルに伝えるのです。

これで変数を使えるようになりましたが、計算しているコードが、
Cells(2, 3) = Cells(2, 1) * Cells(2, 2)
このままでは、何も変わりません。
そこで、2行目を指定している
Cells(2,
この2を変数iに取り替えます。
Cells(i, 3) = Cells(i, 1) * Cells(i, 2)
このように書き変えてください。

さて、どうでしょう、変数にはしましたが、
iって何が入っているの・・・
何も入っていません、当然これでは動きません。
iに何か入れましょう。
何かといっても、ここでは、まずは2ですね。
変数に値を入れるのは、セルに値を入れるのと同じで、
i = 2
このように書けば、iに2が入ります。
では、
Dim i
の下の行に、
i=2
↓
Enterを押すと、マクロの行が増えてしまいますが、
↑↓キーで、行をずらすと、入力しているコードが確定されて、
=の前後に半角空白が入ったり、コードの頭文字が大文字に変わります。

では実行してみましょう。
ただし、今までのように、実行F5ではなく、
メニュー→デバッグ→ステップ イン F8

ここは、マウスでは操作しずらいので、ショートカットのF8でやりましょう。
F8を1回押すと、

このように、コードの1行が黄色になります。
この黄色い行は、これから実行する行になります。
では、F8を、もう2回押すと

ここまで進みます。
ここで、
Cells(i,
の変数iの上に、マウスカーソルを合わせてください。

このように、
i = 2
が表示されるのを確認してください。
iの真上にピンポイントでカーソルを合わせないと表示されません。
これは、必ず確認してください。
Cellsの上にカーソルを合わせれば、

このように、セルの値が表示されます。
マクロがちゃんと動かない・・・
という相談の多くは、この操作が出来ていないことが多いのです。
今後、複雑なマクロを書いていけばいくほど、これは重要になってきます。
この時点で、iには2が入っていますので、
Cells(i, 3) = Cells(i, 1) * Cells(i, 2)
これは、
Cells(2, 3) = Cells(2, 1) * Cells(2, 2)
これと同じことです。
ではF8をもう2回押してください。
黄色い行が消えるまでF8を押してください。
F8を押しすぎると、また先頭から実行されてしまいます。
通常はF8で確認して、確認できたら最後はF5で最後まで実行するのが良いです。
もしF8で確認中に間違いを見つけて、もう途中で止めたいと思ったら、
実行→リセット
青い四角いボタンがリセットボタンです。

話を戻して、先ほどの実行結果は、最初の結果と同じですね。
何にしろ2行目しか計算しません。
では3行目を計算するなら、
i = 2
これを
i = 3
と変更して、

これなら、3行目を計算してくれるはずです。
さすがに実行してみる必要はないでしょう。
つまり、
iが2から3、4、・・・
と増えて言ってくれれば良いのです。

VBAでは、これが簡単に書けるようになっています。
今回は、先に回答コードを示します。

これで、
iが2から11まで、1ずつ増えながら計算を繰り返してくれます。
For 変数 = 初期値 To 終了値
　　繰り返したい処理・・・何行書いても良い
Next
後でもう少し詳しく書きますが、
このように書けば、
ForとNextのあいだに書いてあることを繰り返してくれるのだと、そのまま理解しましょう。
では書いてみましょう
sub 練習8
Enter
TAB
dim i
Enter
for i=2 to 11
Enter
Enter
next
↑
TAB
cells(i,3)=cells(i,1)*cells(i,2)
↓
正しく入力できれば、先の画像と同じになるはずです。
書き方の注意点は、
・forの行を書いたら、先にnextと書くこと
・ForとNextのあいだの行は、TABで1段さげること。
特に、TABで1段さげるのは、絶対に守ってください。
マクロの初心者ほどこれが守れなく、上級者ほど守っています。
つまり、この重要性が理解できないうちはマクロ初心者という事なのです。
では、ステップインF8で実行しながらセルに値が入るのを確認してみましょう。
その前に、ウインドウをしたのように調整して、
VBAコードを実行しながら、バックでセルに値が入る様子を見えるようにしてください。

では、ステップインF8でゆっくり確認してください。
ここは、画像を載せきれないので、ご自身で・・・
F8を押しながら
変数iの値を確認しながら
セルに値が入る事を確認してください。
F8での確認が出来たら、
今度は、C列の金額を消してから、
実行F5で一気に動かしてみて下さい。
一瞬で計算される事が分かります。

For 変数 = 初期値 To 終了値
　　繰り返したい処理
Next
このように書きましたが、
変数が1ずつ増えるばかりでは不便なこともあります。
例えば、
1,3,5,7,・・・
のように2ずつ増やしたいとか、
11,10,9,8,・・・
のように、1ずつ減らしたいとか、
そのような書きかたもVBAには用意されています。
For 変数 = 初期値 To 終了値 Step 加算値
　　繰り返したい処理
Next

iの値が、
前者は、2,4,6,8,10
後者は、11,10,9,8,7,6,5,4,3,2
と変わりながら処理されていきます。

ここまで、VBAのコードの書き順を詳しく示してきましたが、それもここまでにします。
記事の行数が多くなりすぎてしまい、他の重要な説明文が埋もれてしまう危険がありますので。
しかし、この書き順はとても重要です、何度か練習して、しっかり手に覚えさせてください。
特に、
Sub～End Subの間は、TABで1段さげる
ForとNextの間は、TABで1段さげる
これらは徹底してください。
今後もサンプル画像等のインデントを、そのまま同じように記述することを心がけてください。

第12回.変数宣言のDimとデータ型

第16回.繰り返し処理（For Next）

VBEの使い方：デバッグ

同じテーマの記事
新着記事
アクセスランク