数据透视表中单个过滤器的 VBA 代码答案

【问题标题】：VBA code for Single filter in Pivot Table数据透视表中单个过滤器的 VBA 代码
【发布时间】：2016-03-06 23:45:52
【问题描述】：

我是 VBA 新手...我正在尝试创建一个过滤器

在Transaction Type下，我想过滤掉“Payment”

下面是我的代码，但是当它到达 pf.Current page ="Payment" 时会出错。

Sub

Dim pf As PivotField

Set pf = ActiveSheet.PivotTables("GENERIC TRANSACTION DETAIL").PivotFields( _
"transaction type")

pf.CurrentPage = "payment"

End Sub

感谢您的反馈

【问题讨论】：

“交易类型”是页面字段吗？ CurrentPage property 仅对页面字段有效。此外，Sub 需要有一个名称 - 仅使用 Sub 自己甚至不会编译

标签： vba excel

【解决方案1】：

您的"transaction type" 可能不是 Debosmit Ray 提到的页面字段。您可以使用流动代码进行单项过滤。

Sub SingleFilter()
    Dim item As PivotItem
    With ActiveSheet.PivotTables("GENERIC TRANSACTION DETAIL").PivotFields("transaction type")
        .ClearAllFilters
        For Each item In .PivotItems
            If Not item.Name <> "payment" Then
                item.Visible = False
            End If
        Next item
    End With
End Sub

【讨论】：