如何用VBA实现透视表指定筛选某一单元格字段

verna123

请教各位大神，怎么用VBA实现透视表B2里面的值等于E2单元格的值？（数据源处理需要加入到PP模型，透视表只能筛选无法输入文本）

verna123

各位大神求救

taller

VBA代码可以实现这样的刷新，参考代码

1. Sub UpdatePP()
   
2.     With ActiveSheet.PivotTables("数据透视表1").PivotFields("[区域].[产品].[产品]")
   
3.         .ClearAllFilters
   
4.         .CurrentPageName = "[区域].[产品].&[" & [e2] & "]"
   
5.     End With
   
6. End Sub
   

复制代码

taller

参考文件

verna123

taller 发表于 2020-7-13 02:26
VBA代码可以实现这样的刷新，参考代码

完美解决！感谢大神！！！

小安

请问，代码中的区域，是固定的，还是有别的意思？我套入我的表是运行不了的。

cnxwj

小安 发表于 2021-8-27 16:00
请问，代码中的区域，是固定的，还是有别的意思？我套入我的表是运行不了的。

摸索了下，用PowerPivor实现，方法和建立数据透视一样，区别在：
选择是否要分析多个表勾选，就会出现区域

找方法噶

taller 发表于 2020-7-13 02:26
VBA代码可以实现这样的刷新，参考代码

大神呀，能不能帮助加一个条件；E2单元格只是一个选择，如果是E2, E3,E4怎么写代码呀
CurrentPageName = "[区域].[产品].&[" & [e2] & "]"