Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14743 / 76734

←次へ　｜　前へ→


	【67480】Re:SUMPRODUCT関数の活用について

SK63 - 10/12/8(水) 18:28 -


	引用なし

	パスワード

▼Yaesu さん：

" 4:"ここは、"4:"出ないですか？？
Dim c As Integer, r As Integer
cは列の終わり、rは行の終わり
Dim ads As String, ade As String
adsはスタートの列のアドレス、、、A,B,Cみたいな
aseは終わりです。

F8で動作させるてマウスを変数の上にするかウオッチ式を設定すると見れます。

>************変数の説明**************
>
>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
>・
>・

1 hits

▼

【67431】SUMPRODUCT関数の活用について Yaesu 10/12/2(木) 21:58