vba - 透视过滤器中的 Appy If 语句

Question

在这种情况下，不是所有时候，当我拉报告时，我会有 12L 或 03A 选项。如何应用仅在这些选项可用时过滤(取消选择)的 if 语句。

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group")
    .Orientation = xlPageField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Item").CurrentPage = "10"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group"). _
    CurrentPage = "(All)"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group")
    .PivotItems("03A").Visible = False
    .PivotItems("12L").Visible = False
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group"). _
    EnableMultiplePageItems = True
Range("A7").Select
ActiveSheet.PivotTables("PivotTable1").InnerDetail = "Contract"
Selection.ShowDetail = True
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Answer 1

我假设这个

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group")
    .PivotItems("03A").Visible = False
    .PivotItems("12L").Visible = False
End With

当“03A”和“12L”不可用时生成错误。您可以添加 On Error Resume Next .

On Error Resume Next 'In case of error, go to next line
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Purchasing Group")
    .PivotItems("03A").Visible = False
    .PivotItems("12L").Visible = False
End With
On Error GoTo 0 'Disable any enabled error handler