使用数组检查PivotItems.Name <>数组，然后检查PivotItems.Visible = False

Question

我正在尝试使用一个数组来检查数据透视表中筛选的枢轴项，以确定它是否应该是可见的。目前，我用下面的代码硬编码了它。但是，当我有超过一个项要检查过滤器时，我想使用Array。

目标是只过滤所需的项目。

Supply = Array("X Marketplace", "Y Marketplace")

With PivFid
    For i = 1 To .PivotItems.Count
        If .PivotItems(i).Name <> "X Marketplace" Then .PivotItems(i).Visible = False
    Next i
End With

这是我正在努力完成的事情，但我不知道如何针对筛选的项遍历数组。

With PivFid
    For i = 1 To .PivotItems.Count
        If .PivotItems(i).Name <> Supply Then .PivotItems(i).Visible = False
    Next i
End With

Answer 1

您可以使用Application.Match检查它。结合前面的IsError，它将检查是否在整个Supply数组中找不到当前的PivotItem名称)。

码

Supply = Array("X Marketplace", "Y Marketplace")

With PivFid
    For i = 1 To .PivotItems.Count
        If IsError(Application.Match(.PivotItems(i).Name, Supply, 0)) Then .PivotItems(i).Visible = False
    Next i
End With

--以防万一--您需要展示其他的：

With PivFid
    For i = 1 To .PivotItems.Count
        If IsError(Application.Match(.PivotItems(i).Name, Supply, 0)) Then
            .PivotItems(i).Visible = False
        Else
            .PivotItems(i).Visible = True
        End If
    Next i
End With