技巧介绍：公司办公人员王珂发现只能在外部数据源创建的数据透视表中设置定时刷新功能，可是他想使用VBA代码来实现刷新透视表功能。
1 在Excel中打开“素材\第08章\实例154\员工费用表”工作簿，选择“开发工具”选项卡，在“代码”选项组中单击“Visual Basic”按钮，如图8-57所示。
2 进入VBA编辑器，双击“ThisWorkbook”选项，在编辑栏中输入以下代码：Sub刷新数据透视表（）
ActiveSheet.PivotTables（"数据透视表1"）.PivotCache.Refresh
ActiveWorkbook.RefreshAll
End Sub”
如图8-58所示。
图8-57 单击“Visual Basic”按钮
图8-58 编辑VBA代码
3 关闭代码窗口并单击“运行”按钮，选择“运行宏”选项，弹出“宏”对话框，选择宏名并单击“运行”按钮，如图8-59所示。
4 选择“开发工具”选项卡，在“控件”选项组中单击“插入”下拉按钮，在“表单控件”选项组中单击“按钮”选项，如图8-60所示。
(www.xing528.com)
图8-59 选择“运行宏”选项
图8-60 单击“按钮”选项
5 在单元格中绘制按钮，弹出“指定宏”对话框，选择宏名，单击“确定”按钮保存设置，如图8-61所示。
图8-61 选择宏名
6 修改工作表中的数据并单击“按钮2”，此时数据透视表中的数据也会发生相应的变化，如图8-62所示。
图8-62 查看设置效果
技巧拓展
a.除了可以在“开发工具”选项卡中打开VBA编辑器外，还可以按【Alt+F11】组合键打开VBA编辑器。
b.注意宏的运行一定要被允许，可以在“文件”菜单中设置启用所有宏。
c.保存Excel工作簿时要保存为启用宏的工作簿。
免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。
