Excel VBA自动刷新工作表

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

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

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

4. 可以通过VBA在Sheet3中设置一个触发事件，每次点击Sheet3工作表的同时，就执行“全部刷新”的动作。

打开Visual Basic，然后双击项目工程下的Sheet3工作表。

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

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

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

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

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