如题所述
Excel中刷新数据透视表的两种方法:
1、手工刷新
(1)右键菜单, 透视表内任意单元格鼠标右键-----刷新数据;
(2)使用数据透视表工具栏上的刷新按钮;
(3) 添加刷新全部透视表工具按钮:
(3.1)直接在透视表工具栏选项添加按钮---添加或删除按钮---数据透视表---全部刷新;
(3.2)自定义工具栏选项按钮:自定义---命令---数据---全部刷新---将此按钮拖放到工具栏上,即可直接点击此按钮以实现整个工作簿内透视表数据刷新。
操作小技巧:窗口--新建窗口,此时会打开一个同样的工作簿,窗口中选择“与工作簿**并排比较”,这样可在并排的两个工作簿中将数据源与透视表刷新进行直观对比,同理在这里你可以试试隐藏窗口哦!记得在excel中是可以设置打开一个存放个人宏的工作簿,而且是一打开就隐藏了窗口了。
2、自动刷新---通过设置透视表属性
(1)打开时刷新。顾名思义---打开工作表时,就可以刷新数据透视表。
(2)定时刷新。可以设置刷新频率的时间,但是仅适应于外部数据源所创建的数据透视表。
操作:如何创建1个基于外部数据源创建数据透视表,
“数据”菜单---导入外部数据---导入数据---选中外部数据源---选择表格---导入数据---创建数据透视表---完成。
3、自动刷新---使用VBA代码实现自动刷新透视表
3.1激活工作表时刷新
打开透视表代码窗口输入:
Private Sub Worksheet_Activate()
---当激活这个工作表时执行下列语句命令
ActiveSheet.PivotTables("数据透视表").PivotCache.Refresh
---更新名为“数据透视表”的数据透视表
注意:数据透视表的名在那里呢?也不要把它与工作表的名称混为一团,每一个数据透视表创建时都是有它自已的名称的,并且它是可以改动的
1、手工刷新
(1)右键菜单, 透视表内任意单元格鼠标右键-----刷新数据;
(2)使用数据透视表工具栏上的刷新按钮;
(3) 添加刷新全部透视表工具按钮:
(3.1)直接在透视表工具栏选项添加按钮---添加或删除按钮---数据透视表---全部刷新;
(3.2)自定义工具栏选项按钮:自定义---命令---数据---全部刷新---将此按钮拖放到工具栏上,即可直接点击此按钮以实现整个工作簿内透视表数据刷新。
操作小技巧:窗口--新建窗口,此时会打开一个同样的工作簿,窗口中选择“与工作簿**并排比较”,这样可在并排的两个工作簿中将数据源与透视表刷新进行直观对比,同理在这里你可以试试隐藏窗口哦!记得在excel中是可以设置打开一个存放个人宏的工作簿,而且是一打开就隐藏了窗口了。
2、自动刷新---通过设置透视表属性
(1)打开时刷新。顾名思义---打开工作表时,就可以刷新数据透视表。
(2)定时刷新。可以设置刷新频率的时间,但是仅适应于外部数据源所创建的数据透视表。
操作:如何创建1个基于外部数据源创建数据透视表,
“数据”菜单---导入外部数据---导入数据---选中外部数据源---选择表格---导入数据---创建数据透视表---完成。
3、自动刷新---使用VBA代码实现自动刷新透视表
3.1激活工作表时刷新
打开透视表代码窗口输入:
Private Sub Worksheet_Activate()
---当激活这个工作表时执行下列语句命令
ActiveSheet.PivotTables("数据透视表").PivotCache.Refresh
---更新名为“数据透视表”的数据透视表
注意:数据透视表的名在那里呢?也不要把它与工作表的名称混为一团,每一个数据透视表创建时都是有它自已的名称的,并且它是可以改动的
温馨提示:答案为网友推荐,仅供参考
第1个回答 2019-04-13
1、打开目标,以小编常用的经验撰写表格为例,打开后,看到表格有三列,想要以等级计算每个等级的学生数量,已经每个等级的平均分,需要用到透视表功能。
2、然后依次点击上方菜单栏中的插入>>>,如下图所示位置点击即可。
3、弹出创建数据投诉表编辑框,选择数据时直接选择A列到C列,新建一个表格来存放数据透视表,完成后点确定。
4、在新建的数据透视表中,选择等级作为行标签,其他两项作为数值存放。能看到,这个时候数值默认都是计数项。
5、点击数值中,成绩所在的位置,会上拉一个菜单,选择【值字段设置】,在弹出的对话框中选择,然后点确定按钮。
6、这个时候看到数据透视表中,成绩一列是显示的。然后返回到源数据所在的sheet,在下方插入小黑和小白两行,成绩等级分别为C和A。
第2个回答 2018-08-03
光标定位到数据透视表中任意单元格,右击,菜单中选择“刷新”。
第3个回答 2020-10-21
学会这3种方法,完美解决excel数据透视表自动更新的问题
第4个回答 2018-09-15
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:I300]) Is Nothing Then
ActiveWorkbook.RefreshAll
End If
End Sub
这个就是修改区域B3:I300 自动刷新所有内容
If Not Intersect(Target, [B3:I300]) Is Nothing Then
ActiveWorkbook.RefreshAll
End If
End Sub
这个就是修改区域B3:I300 自动刷新所有内容