Excel VBA質問箱 IV

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

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


26149 / 76732 ←次へ | 前へ→

【55916】VBA 変動する総計を半期合計で計算したい。
質問  たきまる  - 08/5/23(金) 14:15 -

引用なし
パスワード
   ピボットテーブルの総計行が元データが追加されるので変動してしまいます。
他のセルに(C37)式を入れていますが、ピボットの行が更新されるたびに 総計行の範囲を毎回張りなおさなければならない状態です。

変動しても他のセル(C37)に、合計が計算できるようにしたいです。
その総計行に対する合計の数式は以下です。(C37に入ってる式です。)
=SUMIF(21:21,">=2007/10/1 ",29:29 )-SUMIF(21:21,">=2008/4/1 ",29:29 )
29行目が総計で常に変動します。
そこで、A行に総計という文字がでたら、1つ右隣から始まる範囲での式がほしいです。
C37セルにその合計の値が表示されるようにしたいです。
21行目(固定)は日付で「2007/10/1」「2008/2/1」と2/1のように
月初の日付がB21セルから未来へ向かって表示。空白もあります。
(年度集計行を20行目に入れたため。)
For each文にA行を範囲にして「総計という文字があったら右となりから全てを
範囲にする。」それを21行目の日付で条件にあった総計行の合計を出したいのですが。。。
then以下どう書くか教えてください。

Sub 総計()
Dim myRng As Range
For Each myRng In Range("A:A")
If myRng.Value = "総計" Then

※※※※※※※※※※

End If
Next myRng

End Sub
1 hits

【55916】VBA 変動する総計を半期合計で計算したい。 たきまる 08/5/23(金) 14:15 質問
【55923】Re:VBA 変動する総計を半期合計で計算した... Jaka 08/5/23(金) 15:46 発言
【55924】Re:VBA 変動する総計を半期合計で計算した... たきまる 08/5/23(金) 16:00 お礼
【55926】Re:VBA 変動する総計を半期合計で計算した... kanabun 08/5/23(金) 16:21 発言
【55927】Re:VBA 変動する総計を半期合計で計算した... たきまる 08/5/23(金) 16:29 お礼
【55961】Re:VBA 変動する総計を半期合計で計算した... Jaka 08/5/26(月) 13:37 発言
【55963】Re:VBA 変動する総計を半期合計で計算した... たきまる 08/5/26(月) 13:50 お礼
【55966】Re:VBA 変動する総計を半期合計で計算した... OH! 08/5/26(月) 15:06 発言
【55967】Re:VBA 変動する総計を半期合計で計算した... GOD! 08/5/26(月) 15:41 発言
【56013】Re:VBA 変動する総計を半期合計で計算した... たきまる 08/5/29(木) 17:03 お礼
【56017】Re:VBA 変動する総計を半期合計で計算した... 人間としての資質 08/5/29(木) 18:06 発言

26149 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free