在我的字段“vendor”中隐藏包含单词“JVPDML”的数据透视表中的行

我有一个数据透视表,我希望在我的字段中称为“供应商”,所有包含“JVPDLM”字样的供应商都被隐藏了......我在下面保存了这个宏但是我以后仍然可以有更多的供应商包含这个单词“JVPDLM “,这就是为什么我在下面的VBA代码中的列表并不详尽 . 在此先感谢您的帮助 . 哈维

Sub hideJVPDMLcompanycode()
On Error Resume Next
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Vendor")
.PivotItems("JVPDML Espana ").Visible = False
.PivotItems("JVPDML International GmbH ").Visible = False
.PivotItems("JVPDML GmbH ").Visible = False
End With
End Sub

回答(1)

2 years ago

使用 for each 检查每个 PivotItem on包含 *JVPDML* 模式,这里示例:

Sub hideJVPDMLcompanycode()
    Dim pItem As PivotItem
    For Each pItem In ActiveSheet.PivotTables("PivotTable2").PivotFields("Vendor").PivotItems
        If UCase(pItem.Value) Like "*JVPDML*" Then pItem.Visible = False
    Next pItem
End Sub

测试: