使用 VBA 筛选数据透视表 Table

Question

我正在尝试编写一些 VBA 代码来过滤我的数据透视表以仅显示大于 0 的记录。

当我运行代码时，我收到错误 "Application-defined or object-defined error"。

我真的不知道是什么导致了这个问题，所以希望得到大家的帮助！

这是我的代码：

 Sheet32.PivotTables("PivotTable11").PivotFields("Retail Division"). _
        PivotFilters.Add Type:=xlValueIsGreaterThan, DataField:=Sheet32.PivotTables("PivotTable11").PivotFields("Sum of Recordable Injuries"), Value1:=0

知道为什么代码不是运行ning 吗？

Answer 1

尝试在您的行之前清除过滤器：

 Sheet32.PivotTables("PivotTable11").PivotFields("Retail Division").ClearAllFilters

使用 VBA 筛选数据透视表 Table

Filtering Pivot Table Using VBA

excel

vba

excel-2010