1、进入EXCEL,输入原始数据。
2、根据原始数据生成数据透视表。
3、同时按下ALT+F11，进入VBA编辑器。
4、在编辑区输入VBA语言Sub 刷新数据透视表() VBA 语言刷新数据透视表的语句End Sub
5、4步骤中刷新透视表的语句刷新某个数据透视表的语句ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh或者Worksheets("透视").PivotTables("数据透视表1").PivotCache.Refresh刷新工作簿中所有数据透视表的语句ActiveWorkbook.RefreshAll
6、在工作表中插入表单控件，并指定到宏“刷新透视表”。
7、原始数据更新后，点击表单控件，语言中的数据透视表就被自动刷新了，与数据相关的公式也发生了随之更新。
8、注意有宏按钮必须启用宏，宏的安全性为低设置。
