繰り返し

このようなデータの金額を計算してみましょう

列番号を数字で表示したいときは、
ファイル→オプション　数式　数式の処理で　R1C1参照形式を使用するに✓を入れます

１件目の売上金額の計算プログラム

１件目は３行目から始まりますから、行は３、列７に計算結果を代入します

＝は、代入演算子　左向き矢印のイメージでしたね！

では、２件目の売上金額の計算式は

式の行が３から４に代わりました
列は同じですね！

後の計算も同じですね

この式がデータの件数だけ続きます
行は、前の式に１ずつ足されています

〇が１ずつ増加し、この操作を７回繰り返しています

行を変数 i で表すとこのようになります

この i の値が３から１ずつ増えていけばいいですね　

For　Nextステートメント

ここで繰り返し処理をやってみましょう

For　Nextステートメントは、同じ処理を繰り返し行うときに使います
カウンター変数が初期値から終了値になるまで一連の処理を繰り返します

カウンター変数は i　、初期値　３　終了値　９　Stepは　省略可で　省略時は１
For Next　間の処理を　i が３から９まで１ずつ加算しながら、繰り返します
Next　i　の i (カウンター変数）も省略可です

見やすくするために、字下げします
インデントと言います　字下げしたい位置でTabキーを押します

見やすくなったでしょう～

インデントを戻したいときは、Shift＋Tabを押します

ステップインF8キーで実行して、自動データヒントで i の値を確認しながら実行してみましょう
確認したい変数にマウスポインタを合わせます

Sub Uriage_Keisan()
Dim i As Long

For i = 3 To 9
    Cells(i, 7) = Cells(i, 5) * Cells(i, 6)     '金額計算
Next i

End Sub

繰り返し処理 For　Next、習得できました～