ExcelVBA系列之自动刷新工作表学 [复制链接]

1.根据如图所示的数据源，我们在另一张工作表中插入一个简单的数据透视表。

2.插入的数据透视表放在Sheet3工作表中；关于数据透视表的基本操作，可参考以下文章。

如何在Excel中创建数据透视表

3.数据透视表有一个不足之处是，当源数据中有修改时，数据透视表不会自动刷新，而是要点击按钮进行刷新（“数据”选项卡“全部刷新”）。

4.为了更便于操作，省去每次点击按钮的时间，可以通过VBA在Sheet3中设置一个触发事件，每次点击Sheet3工作表的同时，就执行“全部刷新”的动作。

操作如下：

5.打开VisualBasic，然后双击项目工程下的Sheet3工作表。

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

PrivateSubWorksheet_Activate()EndSub

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

PrivateSubWorksheet_Activate()ActiveWorkbook.RefreshAllEndSub

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

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

以上案例仅用于演示，更多实际应用请根据需求进行调整。