自动更新数据透视表
摘自：
http://www.cpearson.com/excel/pivots.htm使用数据透视表时，数据透视表不会自动更新，必须从“数据（Data）”菜单手动更新整个表。下面的宏代码实现了在选择工作表时更新数据透视表：
Sub Auto_Open() Application.OnSheetActivate = "UpdateIt"End SubSub UpdateIt() Dim iP As Integer Application.DisplayAlerts = False For iP = 1 To ActiveSheet.PivotTables.Count ActiveSheet.PivotTables(iP).RefreshTable Next Application.DisplayAlerts = TrueEnd Sub 发表于 @ 2007年03月06日 09:47:00|评论(loading...)|编辑