VBA数据透视表：添加筛选器。

Question

使用VBA代码，我已经创建了一个数据透视表，并添加了行、列和汇总值。现在我需要在列上添加筛选器。 请问如何向这一列添加筛选器。

- meru

---

你尝试过一些代码吗？你能发一下吗？你对这个主题做了研究吗？你搜索了什么？你找到了什么？ - user7857211

不，我找不到任何参考资料。对于添加行、列和求和，我使用了以下方法。但是没有关于FILTER的内容。 - meru

设置pvtFld = PvtTbl.PivotFields("Order\ Amendment Approval Stage") pvtFld.Orientation = xlRowField pvtFld.Position = 5设置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" - meru

你需要什么样的参考？如何在Excel中使用VBA对数据透视表应用筛选器？（链接为https://www.google.at/search?q=Apply+filter+to+pivot+table+with+VBA+in+Excel&oq=Apply+filter+to+pivot+table+with+VBA+in+Excel&aqs=chrome..69i57j0.535j0j7&sourceid=chrome&ie=UTF-8） - user7857211

在手动创建数据透视表时，我们可以选择输入行字段、列字段、汇总字段和筛选字段。我该如何使用VBA复制“筛选字段”选项？ - meru

一个快速的搜索可以返回许多有用的示例供您尝试。在此SO帖子中尝试代码并在遇到特定问题/行时编辑您的问题。搜索这个链接获取更多信息。 - user7857211

Answer 1

尝试以下代码：

请尝试下面的代码：

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

例如：

（本文涉及的）IT技术相关内容。

- Zsmaster

---

这并不像在透视表中添加行/列语法那么容易。类似这样的东西 > - meru

设置pvtFld = PvtTbl.PivotFields("Account") pvtFld.Orientation = xlRowField pvtFld.Position = 1 - meru

Answer 2

请尝试以下代码行

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

- Mahendra Upadhyay