作者：乔山办公网日期：
返回目录：excel表格制作
一、VBA代码
用一段简单的VBA代码，可以实现如下效果：当数据源中的数据更改后，切换到包含数据透视表的工作表中时，数据透视表将自动更新。假如包含数据透视表的工作表名称为“Sheet1”，数据透视表名称为“数据透视表1”。
1.按Alt+F11，打开VBA编辑器。
2.在“工e799bee5baa6e78988e69d83336程”窗口中，双击包含数据透视表的工作表，如此处的“Sheet1”表。
3.在右侧代码窗口中输入下列代码：
Private Sub Worksheet_Activate()
Sheets("Sheet1").PivotTables("数据透视表1").RefreshTableEnd Sub
4.关闭VBA编辑器。
二、打开工作簿时自动刷新数据透视表
Excel 2003：
1.右击数据透视表，在弹出的快捷菜单中选择“表格选项”。弹出“数据透视表选项”对话框。
2.在“数据源选项”下方选择“打开时刷新”。
3.单击“确定”按钮。
Excel 2007：
1.右击数据透视表，在弹出的快捷菜单中选择“数据透视表选项”。弹出“数据透视表选项”对话框。
2.选择“数据”选项卡，选择“打开文件时刷新”。
3.单击“确定”按钮。
这样，以后当更改数据源并保存后，重新打开该工作簿时，数据透视表将自动刷新。
光标定位到数据透视表中任意单元格，右击，菜单中选择“刷新”。
右击数据透视表
选择“数据透视表向导”
在弹出的对话框中，按“上一步”
就可以重新选择透视区域
选择好以后，点“完成”
再右击数据透视表，选其中的“刷新数据”
如果数据变化后的行列范围仍然在建立透视的范围内，可以在数据透视表里面点鼠标右键选择【刷新】，否则需要在数据透视表里面选择【更改数据源】