當(dāng)數(shù)據(jù)源中的數(shù)據(jù)更改后,數(shù)據(jù)透視表默認(rèn)不會(huì)自動(dòng)刷新。可以通過(guò)右擊數(shù)據(jù)透視表,在彈出的快捷菜單中選擇“刷新數(shù)據(jù)”(Excel 2003)或“刷新”(Excel 2007)來(lái)手動(dòng)刷新數(shù)據(jù)透視表。如果需要自動(dòng)刷新數(shù)據(jù)透視表,可以用下面的兩種方法:
一、VBA代碼
用一段簡(jiǎn)單的VBA代碼,可以實(shí)現(xiàn)如下效果:當(dāng)數(shù)據(jù)源中的數(shù)據(jù)更改后,切換到包含數(shù)據(jù)透視表的工作表中時(shí),數(shù)據(jù)透視表將自動(dòng)更新。假如包含數(shù)據(jù)透視表的工作表名稱為“Sheet1”,數(shù)據(jù)透視表名稱為“數(shù)據(jù)透視表1”。
1.按Alt+F11,打開VBA編輯器。
2.在“工程”窗口中,雙擊包含數(shù)據(jù)透視表的工作表,如此處的“Sheet1”表。
3.在右側(cè)代碼窗口中輸入下列代碼:
Private Sub Worksheet_Activate() Sheets("Sheet1").PivotTables("數(shù)據(jù)透視表1").RefreshTable End Sub
4.關(guān)閉VBA編輯器。
二、打開工作簿時(shí)自動(dòng)刷新數(shù)據(jù)透視表
Excel 2003:
1.右擊數(shù)據(jù)透視表,在彈出的快捷菜單中選擇“表格選項(xiàng)”。彈出“數(shù)據(jù)透視表選項(xiàng)”對(duì)話框。
2.在“數(shù)據(jù)源選項(xiàng)”下方選擇“打開時(shí)刷新”。
3.單擊“確定”按鈕。
Excel 2007:
1.右擊數(shù)據(jù)透視表,在彈出的快捷菜單中選擇“數(shù)據(jù)透視表選項(xiàng)”。彈出“數(shù)據(jù)透視表選項(xiàng)”對(duì)話框。
2.選擇“數(shù)據(jù)”選項(xiàng)卡,選擇“打開文件時(shí)刷新”。
3.單擊“確定”按鈕。
這樣,以后當(dāng)更改數(shù)據(jù)源并保存后,重新打開該工作簿時(shí),數(shù)據(jù)透視表將自動(dòng)刷新。
|