エクセル ＶＢＡコードの書き方を教えてください。

質問

エクセル　ＶＢＡコードの書き方を教えてください。

今回は、ＶＢＡで掛け算をしたいのですが、
コードが間違っているためか実行ができません。
ＶＢＡコードのどこに不備があるか教えてください。

＜条件＞

＊最終行（Ｈ列で判断）を選択し、
　Ｉ２（２行、Ｉ列）～Ｉ最終行（最終行,最終行のＩ列）までの
　範囲を計算したい。
＊たとえば、Ｉ２であれば、Ｆ２×Ｇ２×Ｈ２×０．０１の値を代入したい。
　Ｉ最終行であれば、Ｆ最終行×Ｇ最終行×Ｈ最終行×０．０１の値
EX) 添付ファイルの場合、Ｉ２＝５００、Ｉ４＝１２５、にしたい。

＜参考＞

Sub SURYO()

Dim r As Long
With Sheets("Sheet1")
For r = 2
Cells(r,9).value = Cells(r,6) * Cells(r,7) * Cells(r,8)
Next
End With
End Sub

よろしくお願いします。

回答No.2

tom04 · ベストアンサー

こんばんは！
すでに回答は出ていますが・・・
FOR～NEXTの部分を
For r = 2 to cells(rows.count,8).end(xlup).row

とすればOKなのですが、
質問を読ませていただくと最後の「0.01」を掛ける必要があるのでは？

余計なお世話かもしれませんが、Sheet1のVBE画面上でSheet1だけのマクロにすれば

Sub test()
Dim r As Long
For r = 2 To Cells(Rows.Count, 8).End(xlUp).Row
Cells(r, 9) = Cells(r, 6) * Cells(r, 7) * Cells(r, 8) * 0.01
Next r
End Sub

だけで大丈夫のような気がします。
的外れならごめんなさいね。m(__)m

お礼

ありがとうございました。
分かりやすく、丁寧な解説で助かりました。

回答No.1

kmetu

For r = 2
↓
For r=2 to X

じゃないですか

Ｆ２×Ｇ２×Ｈ２×０．０１
なら
Cells(r,6) * Cells(r,7) * Cells(r,8)　* 0.01
じゃないですか

With Sheets("Sheet1")
とするのなら
Cellsの前にドットを入れたほう(.Cells)がいいと思いますが…

お礼

ありがとうございました。
助かりました。