使用Excel VBA过滤数据透视表行标签

Question

如何使用Excel VBA过滤数据透视表中的行标签，以仅显示7或更低的值？

数据透视表正在引用一列，显示任务截止日期的天数。我希望它能自动显示7天或更短时间的物品。经过网上的一些研究，我发现我可以告诉数据透视表排除某些值 - 按照以下方式：

Set pf = ActiveSheet.PivotTables("PivotTable1").PivotFields("Days_Due")
    pf.PivotItems("8").Visible = False

但这是不可行的，因为我不能编程任何不是7或更小的可能的数字是不可见的。有没有更简洁的方法来做到这一点？感谢。

Answer 1

您可以使用标签过滤器：

Set pf = ActiveSheet.PivotTables("PivotTable1").PivotFields("Days_Due")
pf.PivotFilters.Add Type:=xlCaptionIsLessThan, Value1:="8"