VBA 数据透视表：添加过滤器答案

【问题标题】：VBA Pivot Table: Add FilterVBA 数据透视表：添加过滤器
【发布时间】：2017-05-05 06:42:32
【问题描述】：

使用 VBA 代码，我创建了一个数据透视表，然后添加了行、列和总和值。现在我需要在列上添加一个过滤器。请告诉我如何在此列中添加过滤器。

【问题讨论】：

您尝试了一些代码吗？你能发帖吗？你研究过这个话题吗？你搜索了什么？你发现了什么？
不，我找不到任何参考。添加我使用的行、列和总和的敌人如下。但 FILTER 没有。
设置 pvtFld = PvtTbl.PivotFields("Order\ Amendment Approval Stage") pvtFld.Orientation = xlRowField pvtFld.Position = 5 Set pvtFld = PvtTbl.PivotFields("SOWPODateQtr") pvtFld.Orientation = xlColumnField pvtFld .Position = 1 设置 pvtFld = PvtTbl.PivotFields("SERVICE ACV IN $ PLANNED") pvtFld.Orientation = xlDataField pvtFld.Position = 1 pvtFld.Function = xlSum pvtFld.NumberFormat = "#,##0"
您到底需要什么参考？如何apply filter to pivot table with VBA in Excel？
在手动创建数据透视表时，我们可以选择输入行字段、列字段、总和字段，然后是筛选字段。如何使用 VBA 复制“过滤字段”选项？

【解决方案1】：

试试下面的代码：

Sub Makró2()
    With ActiveSheet.PivotTables("Kimutatás1").PivotFields("a")
        .PivotItems("asd").Visible = False
        .PivotItems("hj").Visible = False
    End With
End Sub

例如：

【讨论】：

向数据透视表添加行/列语法是不是很容易。像这样的东西>
设置 pvtFld = PvtTbl.PivotFields("Account") pvtFld.Orientation = xlRowField pvtFld.Position = 1

【解决方案2】：

试试下面的代码行

With ActiveSheet.PivotTables("PivotTable Name").PivotFields("Column Name").Orientation = xlPageField.Position = 1

【讨论】：