自动更新数据透视表

自动更新数据透视表

摘自： http://www.cpearson.com/excel/pivots.htm

使用数据透视表时，数据透视表不会自动更新，必须从“数据（Data）”菜单手动更新整个表。下面的宏代码实现了在选择工作表时更新数据透视表：

Sub Auto_Open()
    Application.OnSheetActivate = "UpdateIt"
End Sub

Sub UpdateIt()
    Dim iP As Integer
    Application.DisplayAlerts = False
    For iP = 1 To ActiveSheet.PivotTables.Count
        ActiveSheet.PivotTables(iP).RefreshTable
    Next
    Application.DisplayAlerts = True
End Sub