数据透视表中单个项目的报表过滤器

Question

我有以下代码来确保在相关的枢轴字段上仅选择一个值-但是我不断收到错误消息“无法设置枢轴字段的currentpage属性”-我不明白为什么为不同的过滤器使用了相同的代码。

Sub filters()

Dim PRC As PivotField

Sheets("workings-calc").Select

Set PRC = ActiveSheet.PivotTables("PivotTable3").PivotFields("PR_CD")

PRC.ClearAllFilters

PRC.CurrentPage = "PR-500001"

End Sub

对此表示感谢。花费了太长时间试图使它成功运行：/

Answer 1

以下代码可以正常工作，并为我提供所需的输出。

 for each itm1 in prc.pivotitems
 if item 1.name  = "PR-500001" then
 else
 itm1.visible = false
 next

上面的代码仅保留在枢轴字段上指定的选定过滤器。

感谢所有输入。