如何通过Excel VBA自动刷新工作表

1、根据如图的数据源在另一张工作表插入了一个简单的数据透视表。

2、插入的数据透视表放在了Sheet3工作表中。

3、当源数据中有修改时，数据透视表不会自动刷新，而是要点击按钮进行操作。

4、可以通过VBA在Sheet3中设置一个触发事件，每次点击Sheet3工作表的同时，就执行“全部刷新”的动作。打开Visual Basic，然后双击项目工程下的Sheet3工作表。

5、在代码框上方的“通用”选项框中选择Worksheet，右侧的选项框选择Activate事件，意思是激活工作表。

6、添加“全部刷新”的代码于Activate事件的过程中：当Sheet3激活时，工作簿就全部刷新。

7、回到源数据工作表中，修改一个数据。

8、点击Sheet3，工作表时，数据透视表中A1对应的语文成绩也刷新了。