为什么我的就是不能达到N个“页字段同步”后的效果

susan2009

各想高手：
   我是刚接触VBA的，自己还不会处理，但看到您们这个是很好用的。所以把您们设置好的引用进来了。可就是不能达到N个“页字段同步”后的效果。
   请您们就直接在我这份里面修改吧（因为从您们引用的，修改后就没效了），并请指出哪里出了问题，帮助我进步一点。 谢谢您们的帮忙。

amolin

ActiveSheet.PivotTables(i).PivotFields(p_name2).CurrentPage = p_item

如果我的解决方案为您带来了价值,请光临我的Excel小店支持一下:http://shop59233950.taobao.com,您的鼓励,我的动力。

zm0115

If p_name2 = p_name Then  '逐个判断每一个数据透视表页字段名称与指定的数据透视表页字段名称是否相同
       ActiveSheet.PivotTables(i).PageFields(p_name2).CurrentPage = p_item  '以指定的字页段数据项逐个筛选数据透视表
    End If

susan2009

非常感谢您们的帮助。真的太开心啦。