[VBA]多个数据透视表页字段同步联动

jssy · 发表于 2009-8-22 20:45

Sub Syn_page()
Dim n%, i%, cel$, pvt$, p_item$, p_name$, p_name2$
On Error Resume Next
With Selection
cel = .Address() '选取当前单元格地址
End With
pvt = ActiveSheet.Range(cel).PivotTable '根据所选单元格，选取指定数据透视表并赋值
p_name = ActiveSheet.PivotTables(pvt).PageFields(1).Name '获取指定数据透视表页字段名称
p_item = ActiveSheet.PivotTables(pvt).PageFields(p_name).CurrentPage '获取指定数据透视表页字段所选数据项
n = ActiveSheet.PivotTables.Count '统计当前活动工作表中的数据透视表的个数
For i = 1 To n
p_name2 = ActiveSheet.PivotTables(i).PageFields(1).Name '逐个获取每一个数据透视表页字段名称
If p_name2 = p_name Then '逐个判断每一个数据透视表页字段名称与指定的数据透视表页字段名称是否相同
ActiveSheet.PivotTables(i).PivotFields(1).CurrentPage = p_item '以指定的字页段数据项逐个筛选数据透视表
End If
Next i
End Sub

复制代码

多个数据透视表页字段同步联动.rar (39.26 KB, 下载次数: 1448)

[ 本帖最后由 jssy 于 2009-8-22 21:10 编辑 ]

penghaifeng · 发表于 2009-8-22 21:02

学习一下!
不过感觉VBA的门槛实在有些高!~~~~

dg831451 · 发表于 2009-8-22 23:08

JSSY老师又出精品了。要看一看。其实VBA门槛也不高

，关键是自己如何对待与如何学习了。呵呵。当然了我对VBA也没有入门。但是我偶尔也会看一些简单的东西。呵呵。我是拿来主义。。。。能用就行。有时候不想管那么多。。。

jifuxue · 发表于 2009-8-26 13:25

太棒了，学习

bibisin · 发表于 2009-8-26 20:10

多谢朱版分享，学习

bolliy · 发表于 2009-8-26 20:31

VBA不懂，收藏学习。

1234598AIA · 发表于 2009-8-26 21:03

下载，慢慢的学习下

周晗露 · 发表于 2009-8-27 16:28

利用Excel实现有声提醒
望在线的VBA老师们移步，帮忙解决，礼！

http://club.excelhome.net/viewth ... p;page=1&extra=

详细要求见附件，其目的是今天阴历等于生日阴历，实现有声提醒。望能得到大家的帮助，先谢谢！

jmronline · 发表于 2009-8-31 22:28

顶一下，问LZ一个我很困惑的问题，如果其中一个数据透视表没有9月，只有8月，VBA好像会自动吧8月改称9月，但是下面的数据还是8月的，请教如何避免

nkgsm · 发表于 2009-9-3 16:54

这比高级筛选还高级，版主厉害。

		自动登录	找回密码
密码			免费注册

[原创] [VBA]多个数据透视表页字段同步联动