[[20110616093525]]　『出来上がったピボットの合計値をダブルクリックし』（あや）　ページの最後に飛ぶ

 『出来上がったピボットの合計値をダブルクリックしデータの詳細の表示』（あや）

 マクロを使ってピボットを作成しました。（作業済）

 「出来上がったピボットの合計値をダブルクリックしデータの詳細の表示」
 を　マクロで作業しようと思っています。

 マクロの記録を取ると下記になりました。

     Range("D10").Select
     Selection.ShowDetail = True

 ここで、マクロの記述では明細を表示したいセル（今回はD10）を
 選択してからなのですが

 データの内容によっては合計の値が、D10とは限らないので…
 指定方法はあるのでしょうか？

 例えのピボットとしては…

 	年月	データ				
 	201001	　　　　　　　201101		　全体の データの個数  全体の 合計
エリア名	データの個数　合計  データの個数  合計  	
 A	100　　　1000	　　　200	        2000               300   　　   3000
 B	100　　　1000	　　　100	        1000               200     　　 2000
 C	200　　　2000	　　　100	        1000               300      　　3000
 D	100　　　1000	　　　100	        1000               200      　　2000
 総計	500　　　5000	　　　500　　　  5000               900     　　10000
                                  ↑
	　　　201101のデータの個数の総計の明細をピボットで表示させたい

 XP　Excel2003

 Range("D" & Rows.Count).End(xlUp).ShowDetail = True
で良いのかな？
(BreakTime)

 「下からD列の最終行を取得し、表示させる」ですね。

 希望通りの動きが得られました。
 BreakTimeさんありがとうございます。

 今後の勉強のため方法があれば教えていただきたいのですが…
 「201101」の「データの個数」の「総計」の セル位置を取得
 することは可能なのでしょうか。

 説明が悪かったら申し訳ないのですが、
 エクセルの関数の　GETPIVOTDATAのように
 個々に指定できると ピボットデータの内容が変わっても
 参照先がずれることがなく
 ありがたいのです。

 getpivotdata セル参照　にて検索してみましたが、
 思うような情報が得られず、書き込みさせていただきました。

（あや）

 一応、こんな感じで出来ました。。。

 '------
Sub test()
Dim MyRng As Range
    Set MyRng = ActiveSheet.Range("A1").PivotTable.GetPivotData("データの個数", "年月", 201101)
    MyRng.ShowDetail = True
    Set MyRng = Nothing
End Sub
 '------

 (HANA)　まだ見ておられるかな。。。？

 なるほど。
 GetPivotDataをそのまま使うのですね。
 HANAさんありがとうございます。
 勉強になりました^^

 （あや）

コメント返信：

[ 一覧(最新更新順) ]

[[20110616093525]] 『出来上がったピボットの合計値をダブルクリックし』（あや） ページの最後に飛ぶ

[[20110616093525]]　『出来上がったピボットの合計値をダブルクリックし』（あや）　ページの最後に飛ぶ