|
ピボットテーブルの総計行が元データが追加されるので変動してしまいます。
他のセルに(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
|
|