excel - 使用数组检查 PivotItems.Name <> Array Then PivotItems.Visible = False

Question

我正在尝试使用数组来检查数据透视表中过滤的数据透视项目，看看它是否应该可见。目前我用下面的代码对其进行了硬编码。但是，当我有一个以上的项目来检查过滤器时，我想使用一个数组。

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

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在它前面，它将检查当前的 PivotItem在整个 Supply 中找不到名称大批)。

代码

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