Private Sub Worksheet_Activate() ActiveSheet.PivotTables("BOOK").PivotCache.Refresh End Sub
这段代码可以自动更新数据透视表。由于工作中平均一个小时数据源数据就会改变,每天点击8下刷新也很烦。要是能自动刷新就好了。
括号里的BOOK这个表名,就是透视表所在的表名。这个表名怎么获得,不是下边的工作表名,而是从这里获得:
点击透视表区域,在菜单栏点击 选项卡 菜单,如图:
默认名称是“数据透视表1”。
时间: 2024-10-29 03:15:38