|
************変数の説明**************
retu2=9(I列目)
retu1=12(L列目)
データの開始行:4行目
データの終了行:10行目 de=10
計算結果:11行目 ke=11
-------------------------------------------------------------------------
計算方法
i=9のとき
セル(11,9)=I10に「SUMPRODUCT(VALUE(B4:B10),VALUE(I4:I10))
i=10のとき
セル(11,10)=J10に「SUMPRODUCT(VALUE(B4:B10),VALUE(J4:J10))
・
・
i=12のとき
セル(11,12)=L10に「SUMPRODUCT(VALUE(B4:B10),VALUE(L4:L10))
のように計算式を該当セルに代入したいので、以下のコードを作成しました。
どこに間違っているか、わからなくて、教えてください。
-----------------------------------------------------------------------
For i = retu2 To retu1
Worksheets("sheet1").Cells(ke, i).Formula = "=SUMPRODUCT(VALUE(B4:B" & de & "),VALUE(" & Na(i) & " 4:" & Na(i) & de & "))"
Next i
・
・
|
|