如何实现数据透视表数据的自动更新?(二)

2021-11-18 06:40:28
剩余内容,展开全文

实现数据透视表的更新有以下两种


  1、手动刷新(在数据透视表中选任意一个单元格,右键刷新)。


    2、利用vba实现自动更新数据。

详细说明下关于vba如何实现数据透视表的自动更新

第一步  插入数据透视表(随便拖拽实现如下图透视表)


image.png


第二步 开发工具-录制宏-数据(全部刷新)-开发工具(停止录制)


image.png



image.png


image.png


第三步 打开之前录制的宏,然后将以下代码复制ActiveWorkbook.RefreshAll,如果打开vba编辑器是如下窗口,则需要点击视图-工程资源管理器。

image.png


第四步  将之前复制的代码复制到如下打开的窗口里面,ThisWorkBook,双击打开呈现如下界面!将“通用”改为workbook,将“声明”改为sheetactivate,将代码复制到如下图示里面,然后点保存,完成自动更新数据的vba代码。点击保存后出现如下图所示的提示,点是即可!


image.png



image.png



image.png

第五步 当然文档要保存为文件后缀名为.xlsm的启用宏的工作簿,方可实现数据的自动更新,不妨改动数据试试,数据透视表会随着改变!


案例文件就不提供了,随便一个规范的数据表,随手生成数据透视表然后操作以上步骤即可实现数据透视表中的数据更新!







  • 2127 人看过