自動更新數據透視表

自動更新數據透視表

摘自：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