如何获取透视表页字段项目来直接控制透视表

juyz

如图和附件！
在透视表当中可用

1. ActiveSheet.PivotTables(1).PivotFields(1).CurrentPage ="页字段项目名"
   

复制代码

来控制，
1、如何在另外一工作表中来控制？
2、如何直接获取页字段项目来做成筛选控制？
（相当于把页字段移到另一工作表中）

[ 本帖最后由 juyz 于 2010-10-31 09:42 编辑 ]

zhangjimfu

通过“控制台”如何来操控“透视表”的页字段？？？
如选择“华南”，透视表中页字段就会按华南来筛选数据。
最好是能直接获取页字段项目来做成筛选控制。


这样做有什么意义呢？

juyz

原帖由 zhangjimfu 于 2010-10-30 16:52 发表
通过“控制台”如何来操控“透视表”的页字段？？？
如选择“华南”，透视表中页字段就会按华南来筛选数据。
最好是能直接获取页字段项目来做成筛选控制。


这样做有什么意义呢？

利用透视表的数据再归纳和加工。
意思是说透视表只是数据处理过程中的一个过渡环节。
透视表里的数据还还不是最终要的，还要经过提炼，但透视表直接做不到。

[ 本帖最后由 juyz 于 2010-10-30 19:19 编辑 ]

蓝桥玄霜

1. Sub Macro2()
   
2.     Sheet2.Activate
   
3.     ActiveSheet.PivotTables("数据透视表1").PivotFields("区域").CurrentPage = "华南"
   
4. End Sub
   
5. Sub Macro3()
   
6.     Sheet2.Activate
   
7.     ActiveSheet.PivotTables("数据透视表1").PivotFields("区域").CurrentPage = "华北"
   
8. End Sub
   
9. 
   
10. Sub Macro4()
    
11.     Sheet2.Activate
    
12.     ActiveSheet.PivotTables("数据透视表1").PivotFields("区域").CurrentPage = "华东"
    
13. End Sub
    

复制代码

juyz

谢谢！
可是，我不想要激活透视表，因为这个表本来是隐藏的。