Excel中我們添加數據透視表之后,如果數據源的變動修改,導致需要對數據透視表進行實時更新,該如何刷新數據透視表呢?
對于如何刷新數據透視表的方法,有多種,參考下面的分享。
第一,使用數據透視表工具的刷新命令。
當我們創建了數據透視表之后,激活數據透視表,選項卡會多出一個選項卡:數據透視表工具——選項——刷新。或者在數據透視表中單擊右鍵,選中刷新。
第二,如何刷新受保護工作表中的數據透視表
我們可以添加vba代碼實現受保護工作表中數據透視表的刷新。
將以下代碼放入模塊或數據源工作表的change事件中,可以實現受保護工作表中數據透視表刷新。password為設定的密碼。
Sub changevalue()
With ActiveSheet
.Unprotect (Password)
ThisWorkbook.RefreshAll
.Protect (Password)
End With
End Sub
第三,打開工作簿時自動刷新數據透視表
單擊數據透視表工具——選項,打開“數據透視表選項”——數據——勾選“打開文件時刷新數據”。如下圖所示:
第四,自動刷新數據透視表
當數據源中的數據更改后,數據透視表默認不會自動刷新。上面介紹的如何刷新數據透視表,更多的是手動刷新。
其實用一段簡單的VBA代碼就可以實現隨數據源的更新而自動刷新數據透視表。方法如下介紹:
假如包含數據透視表的工作表名稱為“Sheet1”,數據透視表名稱為“數據透視表1”,可以使用下面的方法:
按Alt+F11,打開VBE編輯器。
在“工程”窗口中,雙擊包含數據透視表的工作表,如此處的“Sheet1”表。
在右側代碼窗口中輸入下列代碼:
Private Sub Worksheet_Activate()
Sheets("Sheet1").PivotTables("數據透視表1").RefreshTable
End Sub
關閉VBA編輯器,即可自動刷新數據透視表。
第五,刷新整個工作薄的所有數據透視表
可以使用下面的代碼:
Sub 刷新數據透視表()
ThisWorkbook.RefreshAll
End Sub