Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1889 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71307】合計行の作成方法について ぴったん 12/2/20(月) 18:50 質問[未読]
【71308】Re:合計行の作成方法について kanabun 12/2/20(月) 18:56 発言[未読]
【71312】Re:合計行の作成方法について ぴったん 12/2/21(火) 9:30 お礼[未読]
【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)))"

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

よろしくお願いします。
【71308】Re:合計行の作成方法について
発言  kanabun  - 12/2/20(月) 18:56 -
引用なし
パスワード
   ▼ぴったん さん：
>こんにちは。
>２行おきの数値を合計する合計欄があり、そこに下記の式を埋め込みます。
>
>Range("D584").FormulaR1C1 =　_
>　　"=SUMPRODUCT((MOD(ROW(R[-580]C:R[-1]C),2)=0)*R[-580]C:R[-1]C)"

このスタート行は絶対値で 4 行目と固定できませんか？
できるなら」、以下のようで行けるのでは？

　Range("D" & i - 1).FormulaR1C1 = _
　　"=SUMPRODUCT((MOD(ROW(R4C:R[-1]C),2)=0)*R4C:R[-1]C)"
【71312】Re:合計行の作成方法について
お礼  ぴったん  - 12/2/21(火) 9:30 -
引用なし
パスワード
   ▼kanabun さん：
さっそくの返信ありがとうございます。
上から指定すればよかったんですね。。。
上手くいきました！ありがとうございました。


>▼ぴったん さん：
>>こんにちは。
>>２行おきの数値を合計する合計欄があり、そこに下記の式を埋め込みます。
>>
>>Range("D584").FormulaR1C1 =　_
>>　　"=SUMPRODUCT((MOD(ROW(R[-580]C:R[-1]C),2)=0)*R[-580]C:R[-1]C)"
>
>このスタート行は絶対値で 4 行目と固定できませんか？
>できるなら」、以下のようで行けるのでは？
>
>　Range("D" & i - 1).FormulaR1C1 = _
>　　"=SUMPRODUCT((MOD(ROW(R4C:R[-1]C),2)=0)*R4C:R[-1]C)"
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1889 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free