[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ピボットテーブルの自動更新』(ケミ子)
ピボットテーブルが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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.