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

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