作者：乔山办公网日期：
返回目录：excel表格制作
一、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.右击数据透视表，在弹出的快捷菜单中选7a64e78988e69d83336择“表格选项”。弹出“数据透视表选项”对话框。
2.在“数据源选项”下方选择“打开时刷新”。
3.单击“确定”按钮。
Excel 2007：
1.右击数据透视表，在弹出的快捷菜单中选择“数据透视表选项”。弹出“数据透视表选项”对话框。
2.选择“数据”选项卡，选择“打开文件时刷新”。
3.单击“确定”按钮。
这样，以后当更改数据源并保存后，重新打开该工作簿时，数据透视表将自动刷新。
请参考zhidao如专下代码：属
Private Sub Worksheet_Activate()
Dim myPivot As PivotTable
For Each myPivot In Me.PivotTables
myPivot.RefreshTable
Next
Set myPivot = Nothing
End Sub
Excel中刷新数据透视表的两种方法：
1、手工刷新
(1)右键菜单, 透视表内任意单元格鼠标右键-----刷新数据；
(2)使用数据透视表工具栏上的刷新按钮；
(3) 添加刷新全部透视表工具按钮：
（3.1）直接在透视表工具栏选项添加按钮---添加或删除按钮---数据透视表---全部刷新；
（3.2）自定义工具栏选项按钮：自定义---命令---数据---全部刷新---将此按钮拖放到工具栏上，即可直接点击此按钮以实现整个工作簿内透视表数据刷新。
操作小技巧：窗口--新建窗口，此时会打开一个同样的工作簿，窗口中选择“与工作簿**并排比较”，这样可在并排的两个工作簿中将数据源与透视表刷新进行直观对比，同理在这里你可以试试隐藏窗口哦！记得在excel中是可以设置打开一个存放个人宏的工作簿，而且是一打开就隐藏了窗口了。
2、自动刷新---通过设置透视表属性
(1)打开时刷新。顾名思义---打开工作表时，就可以刷新数据透视表。7a64e58685e5aeb9333
(2)定时刷新。可以设置刷新频率的时间，但是仅适应于外部数据源所创建的数据透视表。
操作：如何创建1个基于外部数据源创建数据透视表，
“数据”菜单---导入外部数据---导入数据---选中外部数据源---选择表格---导入数据---创建数据透视表---完成。
3、自动刷新---使用VBA代码实现自动刷新透视表
3.1激活工作表时刷新
打开透视表代码窗口输入：
Private Sub Worksheet_Activate()
---当激活这个工作表时执行下列语句命令
ActiveSheet.PivotTables("数据透视表").PivotCache.Refresh
---更新名为“数据透视表”的数据透视表
注意：数据透视表的名在那里呢？也不要把它与工作表的名称混为一团，每一个数据透视表创建时都是有它自已的名称的，并且它是可以改动的