現在のシートの全てのピボットテーブルを更新するには

質問

vba現在のシートの全てのピボットテーブルを更新するには？
シートがアクティブになった時にそのシートのピボテをすべて更新したいのですが、
複数あり、

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("ピボットテーブル1").PivotCache.Refresh
ActiveSheet.PivotTables("ピボットテーブル2").PivotCache.Refresh
・
・
・

End Sub

とやっていくのは面倒なので、「現在のシートの全てのピボットテーブルを更新」と言うことをやりたいのですが
そのようなコードはありますか？

回答No.1

keithin · ベストアンサー

＞そのシートのピボテをすべて更新したい

ご質問の直接の回答としてはそういう命令はありません(後述参照)が、とりあえず
sub macro1()
activeworkbook.refreshall
end sub
といった事は可能です。

＃まぁ、応用で一応「可能」という意味では

sub macro2()
　dim w as workbook
　dim i as long
　dim flg as boolean
　set w = activeworkbook
　i = activesheet.index
　if i = 1 then flg = true

　activesheet.move
　activeworkbook.refreshall
　if flg then
　　activesheet.move before:=w.worksheets(1)
　else
　　activesheet.move after:=w.worksheets(i - 1)
　end if
end sub

とかなんとかみたいな事をすることもできます。

＃さらに補足
勿論ご質問の直接の回答としては、

sub macro3()
　dim p as pivottable
　for each p in activesheet.pivottables
　p.pivotcache.refresh
　next
end sub
とでもしてしまえば、それで終わりですけどね。

お礼

回答ありがとうございました。