1、根据如图的数据源在另一张工作表插入了一个简单的数据透视表。
2、插入的数据透视表放在了Sheet3工作表中。
3、当源数据中有修改时，数据透视表不会自动刷新，而是要点击按钮进行操作。
4、可以通过VBA在Sheet3中设置一个触发事件，每次点击Sheet3工作表的同时，就执行“全部刷新”的动作。打开Visual Basic，然后双击项目工程下的Sheet3工作表。
5、在代码框上方的“通用”选项框中选择Worksheet，右侧的选项框选择Activate事件，意思是激活工作表。
6、添加“全部刷新”的代码于Activate事件的过程中：当Sheet3激活时，工作簿就全部刷新。
7、回到源数据工作表中，修改一个数据。
8、点击Sheet3，工作表时，数据透视表中A1对应的语文成绩也刷新了。
