Question

我想刷新我的数据透视表，因为它正在查看的范围内的数据确实发生了变化。然后我需要能够从过滤器中取消选择任何空白。

我的下面的代码执行此操作，但是如果没有空白（以""或(blank)的形式），则会抛出错误。我想我需要它来检查过滤器中是否存在这些元素，然后再尝试隐藏它们......

我如何实现这一目标？

   Dim pt As PivotTable: Set pt = ActiveSheet.PivotTables("BarSummary")
    pt.RefreshTable
    With ActiveSheet.PivotTables("BarSummary").PivotFields("Shape Codes")
       .PivotItems("").Visible = False
       .PivotItems("(blank)").Visible = False
    End With
End If

Answer 1

这是On Error Resume Next最简单的情况：

On Error Resume Next
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
On Error Goto 0

在尝试取消选择之前，请检查AutoFilter中的元素

1 个答案: