Question

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

当我运行代码时，我收到“应用程序定义或对象定义错误”的错误。

我真的不知道造成这个问题的原因，所以希望得到大家的帮助！

这是我的代码：

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

为什么代码没有运行的任何想法？

Answer 1

尝试清除行前的过滤器：

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

使用VBA过滤数据透视表

1 个答案: