在數據透視表字段過濾器上的VBA單選

Question

我正在使用我的VBA代碼爲PivotTable字段。

我想要達到的目的是在的字段中只選擇Acc 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循環，通過名爲「集團」 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