ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 15846|回复: 25

[原创] 基于合并计算区域多个数据透视表的”联动“

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-9-7 09:45 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
在创建数据透视表时经常会用到基于合并计算区域数据透视表,如果工作簿中有多个基于相同的合并计算区域的数据透视表,当增加新的数据后,需要逐个修改数据透视表的合并计算区域,确实有些麻烦。
示例文件中创建了两个数据透视表(名称分别为”数据透视表1“和”数据透视表2“),它们使用相同的合并计算区域(7月,8月,9月),工作簿中增加了10月数据后,需要修改数据透视表的合并计算区域。
如果此时为”数据透视表1“增加合并计算区域(10月),如下图所示:
4.jpg
此时,在"数据透视表1"的页字段中可以看到新添加的”10月“,然而”数据透视表2“的合并计算区域并不会自动更新,其页字段中没有”10月“,仍需要重复同样的操作为其添加合并计算区域。
1.jpg

利用VBA代码可以完全自动实现合并计算区域的更新。
方法一:修改多个数据透视表的合并计算区域。假设增加新数据后,用户已经修改”数据透视表1“的合并计算区域,单击”更新“按钮运行下面代码可以实现更新其他数据透视表的合并计算区域。
  1. Sub UpdateConsolidation()
  2.     With ActiveSheet.PivotTables("数据透视表2")
  3.     .PivotTableWizard _
  4.         SourceType:=xlConsolidation, _
  5.         SourceData:=ActiveSheet.PivotTables("数据透视表1").PivotCache.SourceData
  6.     .PivotCache.Refresh
  7.     End With
  8. End Sub
复制代码
注意:本方法仅仅实现两个透视表使用相同的合并计算区域,并不能实现方法二两个透视表的同步刷新。

方法二:多个数据透视表使用共享数据缓存。大家都知道,基于共享数据缓存的多个数据透视表可以实现同时自动更新,即刷新任何一个数据透视表时,基于该共享数据缓存的其他数据透视表同时被更新。即使创建多个透视表时使用的是共享数据缓存,在修改某个透视表(添加或删除)合并计算区域后,EXCEL会为该透视表使用一个新的数据缓存,此时就变成非共享数据缓存了。顺着这个思路,可以用代码在变化发生时,将多个透视表的数据缓存修改一下,使得全部数据透视表仍然继续使用共享数据缓存,当然这个共享数据缓存已经不再是开始创建透视表时的那个数据缓存了。
  1. Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
  2.     Dim Pvt As PivotTable
  3.     Application.EnableEvents = False
  4.     For Each Pvt In ActiveSheet.PivotTables
  5.           Pvt.CacheIndex = Target.PivotCache.Index
  6.     Next Pvt
  7.     Application.EnableEvents = True
  8. End Sub
复制代码
示例文件 基于合并计算区域多个数据透视表的”联动“.zip (28.47 KB, 下载次数: 506)

[ 本帖最后由 taller 于 2010-4-19 11:20 编辑 ]

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-9-7 11:25 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-9-7 15:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-9-8 13:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习高手之作
谢谢Taller版主分享!

TA的精华主题

TA的得分主题

发表于 2009-9-8 23:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习ing,不愧是taller老师!!厉害!!!!!

TA的精华主题

TA的得分主题

发表于 2009-9-9 21:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
下载学习!

TA的精华主题

TA的得分主题

发表于 2009-9-9 23:47 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-12-4 16:52 | 显示全部楼层
我先瞅瞅,再做题,酱紫没事吧?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-4 21:47 | 显示全部楼层
原帖由 szhtct 于 2009-12-4 16:52 发表
我先瞅瞅,再做题,酱紫没事吧?


学习方式不限,能学会就可以

TA的精华主题

TA的得分主题

发表于 2010-6-26 19:54 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习来了 ..呵呵
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 14:12 , Processed in 0.058005 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表