[[20200521184940]] 『ピボットテーブルの自動更新』(ケミ子) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ピボットテーブルの自動更新』(ケミ子)

ピボットテーブルが4シートあって、 同じブックの中のデータを更新した都度、手動で更新するのではなく 4シート一度に更新する方法はありませんか?宜しくお願い致します。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 以下ではどうでしょうか。

 Sub test()
     Dim ws As Worksheet
     Dim pivt As PivotTable

     For Each ws In Worksheets
         For Each pivt In ws.PivotTables
             pivt.PivotCache.Refresh
         Next
     Next
 End Sub
(γ) 2020/05/21(木) 22:08

 ピボットテーブル内のセルを選択し、ピボットテーブルツールのリボンを表示

 分析 〜 更新 〜 すべて更新
 ※ショートカットキーは Ctrl+Alt+F5

 これでできませんか?

 以上
(笑) 2020/05/21(木) 22:50

私の発言はなかったことにしてください。

# 「すべて更新」をマクロ記録したら、Root_関連付け が更新できません、とかいう
# 意味不明のエラーメッセージが出たので、急遽、「更新」で代用したのでした。
# 改めて新規ブックで試したら、ActiveWorkbook.RefreshAllというコードでした。
# いずれにせよ、マクロはお呼びでないので、笑 さんのご指摘に従って下さい。
(γ) 2020/05/21(木) 23:42


(笑)さん
ショートカットキーは Ctrl+Alt+F5で 出来ました。
このような機能があることを知りませんでした。
ありがとうございます。
(Yさん)
ご丁寧にありがとうございました。
(ケミ子) 2020/05/22(金) 09:36

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.