五種如何刷新Excel數(shù)據(jù)透視表的方法

五種如何刷新Excel數(shù)據(jù)透視表的方法

Excel中我們添加數(shù)據(jù)透視表之后，如果數(shù)據(jù)源的變動修改，導(dǎo)致需要對數(shù)據(jù)透視表進(jìn)行實時更新，該如何刷新數(shù)據(jù)透視表呢？

對于如何刷新數(shù)據(jù)透視表的方法，有多種，參考下面的分享。

第一，使用數(shù)據(jù)透視表工具的刷新命令。

當(dāng)我們創(chuàng)建了數(shù)據(jù)透視表之后，激活數(shù)據(jù)透視表，選項卡會多出一個選項卡：數(shù)據(jù)透視表工具——選項——刷新。或者在數(shù)據(jù)透視表中單擊右鍵，選中刷新。

第二，如何刷新受保護(hù)工作表中的數(shù)據(jù)透視表

我們可以添加vba代碼實現(xiàn)受保護(hù)工作表中數(shù)據(jù)透視表的刷新。

將以下代碼放入模塊或數(shù)據(jù)源工作表的change事件中，可以實現(xiàn)受保護(hù)工作表中數(shù)據(jù)透視表刷新。password為設(shè)定的密碼。

Sub changevalue()With ActiveSheet.Unprotect (Password)ThisWorkbook.RefreshAll.Protect (Password)End WithEnd Sub

第三，打開工作簿時自動刷新數(shù)據(jù)透視表

單擊數(shù)據(jù)透視表工具——選項，打開“數(shù)據(jù)透視表選項”——數(shù)據(jù)——勾選“打開文件時刷新數(shù)據(jù)”。如下圖所示：

第四，自動刷新數(shù)據(jù)透視表

當(dāng)數(shù)據(jù)源中的數(shù)據(jù)更改后，數(shù)據(jù)透視表默認(rèn)不會自動刷新。上面介紹的如何刷新數(shù)據(jù)透視表，更多的是手動刷新。

其實用一段簡單的VBA代碼就可以實現(xiàn)隨數(shù)據(jù)源的更新而自動刷新數(shù)據(jù)透視表。方法如下介紹：

假如包含數(shù)據(jù)透視表的工作表名稱為“Sheet1”，數(shù)據(jù)透視表名稱為“數(shù)據(jù)透視表1”，可以使用下面的方法：

按Alt+F11，打開VBE編輯器。

在“工程”窗口中，雙擊包含數(shù)據(jù)透視表的工作表，如此處的“Sheet1”表。

在右側(cè)代碼窗口中輸入下列代碼：

Private Sub Worksheet_Activate()Sheets("Sheet1").PivotTables("數(shù)據(jù)透視表1").RefreshTableEnd Sub

關(guān)閉VBA編輯器，即可自動刷新數(shù)據(jù)透視表。

第五，刷新整個工作薄的所有數(shù)據(jù)透視表

可以使用下面的代碼：

Sub 刷新數(shù)據(jù)透視表()ThisWorkbook.RefreshAllEnd Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。