Excel VBA質問箱 IV

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

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


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

11017 / 76782

←次へ　｜　前へ→


	【71307】合計行の作成方法について

ぴったん - 12/2/20(月) 18:50 -


	引用なし

	パスワード

こんにちは。
２行おきの数値を合計する合計欄があり、そこに下記の式を埋め込みます。

Range("D584").FormulaR1C1 = "=SUMPRODUCT((MOD(ROW(R[-580]C:R[-1]C),2)=0)*R[-580]C:R[-1]C)"

しかし、合計行は可変にしたいので、合計行はxldownで代入したいのですが
下記のようにしても、シートにコピペされた時点で代入された値が不明になり、
計算されません。

i = 584 '(と仮定します。)
j = i - 2
Range("D" & i - 1).FormulaR1C1 = "=SUMPRODUCT((MOD(ROW((Cells(4, 4), Cells(j, 4))),2)=0)*(Cells(4, 4), Cells(j, 4)))"

上手く反映される方法がありましたら教えて下さい。

よろしくお願いします。

2 hits

▼

【71307】合計行の作成方法について ぴったん 12/2/20(月) 18:50

≪