VBAで指定範囲セルの乗算

Question

実現したいこと

VBAで指定範囲セルの乗算

前提

excelのVBAでforループの中で7行目以降のJG列からJI列の値を「P列からR列の値にJ列の値を掛けた値」になるようにしたいです。
最初に作ったののは下のコード①なのですが、これでは動かず、②にしても動かず、そのままコピーするだけの③なら動きました。
また、似たような質問のhttps://teratail.com/questions/114350 を参考にしてevaluateを使ってみましたが結局実装できませんでした。

他の言語ならchatGPT等に聞けば何とかなったりするのですが、VBAに関しては軒並み的外れな答えしか返ってこなくて困っているので、原因と正しい書き方についてご回答宜しくお願い致します。

発生している問題・エラーメッセージ

実行時エラー１３
型が一致しません

該当のソースコード

①Worksheets("MP").Range("JG7:JI7").Offset(i, 0).Value = Worksheets("MP").Cells(7 + i, 9) * Worksheets("MP").Range("P7:R7").Offset(i, 0).Value
②Worksheets("MP").Range("JG7:JI7").Offset(i, 0).Value = 2 * Worksheets("MP").Range("P7:R7").Offset(i, 0).Value
③Worksheets("MP").Range("JG7:JI7").Offset(i, 0).Value = Worksheets("MP").Range("P7:R7").Offset(i, 0).Value

補足情報（FW/ツールのバージョンなど）

office16, office365

Answer 1

Evaluateを使うなら下記になりますね。

With Worksheets("MP")
    .Range("JG7:JI7").Offset(i, 0).Value =.Evaluate(.Cells(7 + i, 9).Address & "*" & .("P7:R7").Offset(i, 0).Address)
End With

---

さらにいえば、Evaluateは矩形範囲の乗算もできますので、Forループする必要もないですね。

例えば10行分の範囲で乗算したいなら、

With Worksheets("MP")
    .Range("JG7:JI7").Resize(10).Value =.Evaluate(.Cells(7, 9).Resize(10).Address & "*" & .("P7:R7").Resize(10).Address)
End With

Comments

[Kinsho]

ありがとうございます。
こちらの方がシンプルですね。
ご回答いただく前に他の投稿をベストアンサーにしてしまいましたが、こちらの方が想定していたものに近いですし、見やすくて好きです。

Answer 2

以下のようにしてください。
iのループの上限は便宜上10にしています。あなたが適切に変えてください。

Public Sub 掛け算MP()
    Dim i As Long
    Dim j As Long
    For i = 0 To 10
        For j = 0 To 2
            Worksheets("MP").Range("JG7").Offset(i, j).Value = Worksheets("MP").Range("P7").Offset(i, j).Value * Worksheets("MP").Range("J7").Offset(i, 0).Value
        Next
    Next
End Sub

Comments

[Kinsho]

やはり行列と定数の掛け算で方が合わない以上分解してforループで書くしかなさそうですね。
ご回答ありがとうございます。