Excel VBA 數據透視表過濾器

Question

我正在嘗試為 Microsoft Excel 編寫 VBA 代碼，以從數據透視表中篩選出許多項目（例如 100 個項目中的 3 個項目）。 到目前為止，我一直在使用的方法是聲明我不想為假的項目，例如：

.PivotItems("Item A").Visible = True
.PivotItems("Item B").Visible = True
.PivotItems("Item C").Visible = False
.PivotItems("Item D").Visible = False
.PivotItems("Item E").Visible = False

但是，這在將來會變得乏味，因為表中可能添加了更多項目，這意味着每次添加新項目時我都需要編輯代碼。

有沒有辦法在不使用的情況下過濾掉兩個或多個項目

.Visible=false 

如

pf.CurrentPage = "Item A" + "Item B" 

Answer 1

您必須調整數據透視表和字段名稱，但這適用於我的測試：

Sub filter_pivot()
    Dim i As Integer
    ActiveSheet.PivotTables("PivotTable1").ClearAllFilters
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("CLCL")
        For i = 1 To .PivotItems.Count
            Debug.Print .PivotItems(i)
            Select Case .PivotItems(i).Name
                Case Is = "Item C"
                    .PivotItems(i).Visible = False
                Case Is = "Item D"
                    .PivotItems(i).Visible = False
                Case Is = "Item E"
                    .PivotItems(i).Visible = False
            End Select
        Next i
    End With
End Sub

我們仍在使用.Visible但您添加多少新項目並不重要。

Answer 2

您可以使用一組項目：

Dim arr() As Variant

' Array of items to be kept visible (or hidden depending on your code)
arr = Array("Item 1", "Item 2", "Item 2")

For Each itm In pt.PivotFields("Value").PivotItems
    If Not IsError(Application.Match(itm.Caption, arr, 0)) Then
        itm.Visible = True
    Else
        itm.Visible = False
    End If
Next