Question

我是VBA新手......我试图创建一个过滤器

在交易类型下，我想过滤掉＆＃34;付款＆＃34;

以下是我的代码，但是当它到达pf.Current page =＆＃34; Payment＆＃34;它错了。

Sub

Dim pf As PivotField

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

pf.CurrentPage = "payment"

End Sub

感谢您提供任何反馈

Answer 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

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

1 个答案: