當前位置:成語大全網 - 新華字典 - VBA自動刷新數據透視表

VBA自動刷新數據透視表

當數據源中的數據更改後,數據透視表默認不會自動刷新。可以通過右擊數據透視表,在彈出的快捷菜單中選擇“刷新數據”(Excel 2003)或“刷新”(Excel 2007)來手動刷新數據透視表。如果需要自動刷新數據透視表,可以用下面的兩種方法:

壹、VBA代碼

用壹段簡單的VBA代碼,可以實現如下效果:當數據源中的數據更改後,切換到包含數據透視表的工作表中時,數據透視表將自動更新。假如包含數據透視表的工作表名稱為“Sheet1”,數據透視表名稱為“數據透視表1”。

1.按Alt+F11,打開VBA編輯器。

2.在“工程”窗口中,雙擊包含數據透視表的工作表,如此處的“Sheet1”表。

3.在右側代碼窗口中輸入下列代碼:

Private Sub Worksheet_Activate()

Sheets("Sheet1").PivotTables("數據透視表1").RefreshTableEnd Sub

4.關閉VBA編輯器。

二、打開工作簿時自動刷新數據透視表

Excel 2003:

1.右擊數據透視表,在彈出的快捷菜單中選擇“表格選項”。彈出“數據透視表選項”對話框。

2.在“數據源選項”下方選擇“打開時刷新”。

3.單擊“確定”按鈕。

Excel 2007:

1.右擊數據透視表,在彈出的快捷菜單中選擇“數據透視表選項”。彈出“數據透視表選項”對話框。

2.選擇“數據”選項卡,選擇“打開文件時刷新”。

3.單擊“確定”按鈕。

這樣,以後當更改數據源並保存後,重新打開該工作簿時,數據透視表將自動刷新。