[[20020909144836]]　『ピボットテーブルについて教えてください』（hisao)　ページの最後に飛ぶ

『ピボットテーブルについて教えてください』（hisao)

いつもすみません。

ピボットテーブルのデーターをクリックすると

新しいワークシートを挿入して　詳細が表示されますね。

VBAで　ピボットテーブルのあるワークシートの指定位置に詳細データーを表示させられないで

しょうか。VBAでピボットテーブルを作成　テーブルの一部の詳細データーから　更に新しい

ピボットテーブルを自動で作成したいのですが

あまり　次々　シートが増えると困るので　なんとかならないでしょうか。

 みやほりんが 未解決ログ解消を目的に 2010/04/10 10:50 ごろ、投稿しました。
 トピ主の[hisao]さんの投稿は2002/09/09 14:48:36でした。
　
詳細データの表示コマンドをマクロで記録してみると次のようなコードを
得ることができます。Excel2003
    Range("C5").Select
    Selection.ShowDetail = True
　
ShowDetailプロパティだけで「シートを追加し、明細データを作成する」という
ことをやっていますので、これは手のつけようがありません。
このステートメント直後にアクティブなシートとするしかシートを
取得できませんね。
　
 Sub Macro4()
     Dim myRng As Range, mySh As Worksheet
     Set myRng = Worksheets("Sheet1").Cells.SpecialCells(xlLastCell).Offset(2, 0).EntireRow.Cells(1)
     Range("C5").ShowDetail = True
     Set mySh = ActiveSheet
     mySh.Range("A1").CurrentRegion.Copy Destination:=myRng
     mySh.Delete
 End Sub
　
Worksheets("Sheet1")が詳細を作成したいシート、Range("C5")が詳細データを
表示したい集計セル、と仮定したコードです。
貼り付け位置を　SpecialCells(xlLastCell)　から取得していますので、
状況によって取得方法を変更する必要はあるかもしれません。
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20020909144836]] 『ピボットテーブルについて教えてください』（hisao) ページの最後に飛ぶ

[[20020909144836]]　『ピボットテーブルについて教えてください』（hisao)　ページの最後に飛ぶ