如何让多个透视表同时更换页段选择

NIGHTYOON

如题，详细见附件

做货品分析时遇到的问题
望知道者不吝赐教




[ 本帖最后由 NIGHTYOON 于 2009-6-25 23:12 编辑 ]

NIGHTYOON

也许很简单
但我没找到类似的解答
如果谁知道
给个链接我也非常感谢！

hxfei2000

我也遇到相同到问题。。同问

NIGHTYOON

哪位有空，麻烦给点提示
非常感谢！

taller

我认为只能使用VBA代码实现。

思路：在工作表的Change事件中去修改数据透视表2和3的页字段，以实现同步。

NIGHTYOON

谢谢楼上的版主

但附件好像是我的原附件

我找了好久用以下代码搞定
Private Sub CommandButton1_Click()
End Sub
Sub hjs()
    Dim hhh As PivotTable

    For Each hhh In ActiveSheet.PivotTables
        hhh.PivotFields("客户").CurrentPage = CStr([b2])
    Next
End Sub

可惜还是不太理解

taller

上传错了附件，代码如下

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$2:$C$8" Then
   
3.         Application.EnableEvents = False
   
4.         [G2] = [b2]
   
5.         [b14] = [b2]
   
6.         Application.EnableEvents = True
   
7.     End If
   
8. End Sub
   

复制代码

NIGHTYOON

hoho
非常感谢热情的帮助
再仔细研究下