VBA代码0006:VBA代码刷新数据透视表

1、进入EXCEL,输入原始数据。

2、根据原始数据生成数据透视表。

3、同时按下ALT+F11，进入VBA编辑器。

4、在编辑区输入VBA语言

Sub 刷新数据透视表()

    VBA 语言刷新数据透视表的语句

End Sub

5、ͥ骤中刷新透视表的语句

刷新某个数据透视表的语句

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

或者Worksheets("透视").PivotTables("数据透视表1").PivotCache.Refresh

刷新工作簿中所有数据透视表的语句

ActiveWorkbook.RefreshAll

6、在工作表中插入表单控件，并指定到宏“刷新透视表”。

7、原始数据更新后，点击表单控件，语言中的数据透视表就被自动刷新了，与数据相关的公式也发生了随之更新。

8、注意有宏按钮必须启用宏，宏的安全性为低设置。