Скройте строки в моей сводной таблице в моем поле «vendor», которые содержат слово «JVPDML»

Question

У меня есть сводная таблица, и я хотел бы, чтобы в моем поле под названием «vendor» все вендоры, содержащие слово «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

Answer 1

Используйте for each для проверки каждого PivotItem на содержащем шаблон *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

тест: