|
遠藤さん、こんにちは
>すでにピボットテーブルが作成されているワークシートと元となっている
>ワークシートがあります。
>元データのワークシートは、増減します。(ほかからコピーされてきます。)
>その元データが変化した際、ピボットテーブルの元データをVBA上から変更したいのですが、やり方がわからなくて困っています。
>どなたか経験のある方教えてください。m(__)m
レスがつかないようなので、つなぎに・・
A列からC列のデータで、同一シートのF1以降にピボットテーブルがあり、A列をキーとしてデータが増減する場合の、データ範囲の変更ならこんな感じ・・
質問ではシートが違うようなので、適当にシート指定してみてくださいね。
Sub Test()
Range("F1").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Sheet1!R1C1:R" & _
Range("A65536").End(xlUp).Row & "C3"
ActiveSheet.PivotTables("ピボットテーブル1").RefreshTable
End Sub
|
|