如何自动刷新数据透视表
 
excel数据透视表
 
 
    当数据源中的数据更改后,数据透视表默认不会自动刷新。可以通过右击数据透视表,在弹出的快捷菜单中选择“刷新数据”(Excel 2003)或“刷新”(Excel 2007)来手动刷新数据透视表。如果需要自动刷新数据透视表,可以用下面的两种方法:
    一、VBA代码
    用一段简单的VBA代码,可以实现如下效果:当数据源中的数据更改后,切换到包含数据透视表的工作表中时,数据透视表将自动更新。假如包含数据透视表的工作表名称为“Sheet1”,数据透视表名称为“数据透视表1”。
    1.按Alt+F11,打开VBA编辑器。
    2.在“工程”窗口中,双击包含数据透视表的工作表,如此处的“Sheet1”表。
    3.在右侧代码窗口中输入下列代码:
    Private Sub Worksheet_Activate()
        Sheets("Sheet1").PivotTables("数据透视表1").RefreshTable
    End Sub
    4.关闭VBA编辑器。
    二、打开工作簿时自动刷新数据透视表
    Excel 2003:
    1.右击数据透视表,在弹出的快捷菜单中选择“表格选项”。弹出“数据透视表选项”对话框。
    2.在“数据源选项”下方选择“打开时刷新”。
   
    3.单击“确定”按钮。
    Excel 2007:
    1.右击数据透视表,在弹出的快捷菜单中选择“数据透视表选项”。弹出“数据透视表选项”对话框。
    2.选择“数据”选项卡,选择“打开文件时刷新”。
   
    3.单击“确定”按钮。
    这样,以后当更改数据源并保存后,重新打开该工作簿时,数据透视表将自动刷新。

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。