使用 VBA 的数据透视表报表筛选器答案

【问题标题】：Pivot Table Report Filter using VBA使用 VBA 的数据透视表报表筛选器
【发布时间】：2017-09-15 12:50:46
【问题描述】：

我正在尝试使用 VBA 自动执行特定的数据透视表过滤。我不知道如何使用 VBA 添加“报告过滤器”（请参阅随附的屏幕截图）。

为了自动化这个过程，我得到了添加行、列和值的代码，但似乎找不到报告过滤器的代码。

你能帮我写一下代码吗？

【问题讨论】：

你试过什么代码，有什么问题？
检查如何做任何事情的最佳方法 - 记录一个宏，你会看到
@braX 我需要一个数据透视表代码来添加报告过滤器。例如。我们可以手动添加数据透视表并应用/插入 4 个基本属性，即过滤器、列、行和总和值（见附图）。为了自动化这个过程，我得到了添加行、列和求和值的代码，但似乎找不到报告过滤器的代码。可以帮忙吗？

标签： vba excel pivot-table

【解决方案1】：

感谢@avb 的建议。录制宏有帮助。添加数据透视报表过滤器的代码是这样的。

    Sub pivotReportFilter(ptUse As PivotTable, fName As String)

     With ptUse.PivotFields(fName)
      .Orientation = xlPageField
      .Position = 1
     End With

   End Sub

【讨论】：