VBA在数据透视表字段filter上单独select

我正在为我的PivotTable字段的VBA代码。

我想要实现的只是在字段GroupselectAcc Payable 。 下面的代码可以帮助我得到我想要的，但是我正在考虑是否有办法删除这些False行，并缩短代码？

 With ActiveSheet.PivotTables("PivotTable1").PivotFields("Group") .PivotItems("Acc Services").Visible = False .PivotItems("FRG").Visible = False .PivotItems("Non FinOps").Visible = False .PivotItems("Semi Auto").Visible = False .PivotItems("Acc Payable").Visible = True End With End With 

Answer 1

您可以使用For循环，遍历名为“Group” PivotItems的PivotField ，如果PivotItem.Name = "Acc Payable"则使其可见。

码

 Dim PvtItm As PivotItem For Each PvtItm In ActiveSheet.PivotTables("PivotTable1").PivotFields("Group").PivotItems If PvtItm.Name = "Acc Payable" Then PvtItm.Visible = True Else PvtItm.Visible = False End If Next PvtItm