Можно ли объявить не содержит частичное совпадение с оператором С в VBA - PullRequest
Новая
       8

Можно ли объявить не содержит частичное совпадение с оператором С в VBA

0 голосов
/ 19 декабря 2018

Я пытаюсь прикрепить простой макрос к командной кнопке, которая будет манипулировать фильтром отчета в сводной таблице.Я все еще довольно плохо знаком с VBA, поэтому я вручную отфильтровал сводную таблицу и записал макрос.

Образец записанного макроса; 

Sub Macro1()

ActiveSheet.PivotTables("PivotTable1").PivotFields("Attribute1Value"). _
    CurrentPage = "(All)"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Attribute1Value")
    .PivotItems("blank - no bc category value").Visible = False
    .PivotItems("boys | boys/accessories").Visible = False
    .PivotItems("boys | boys/accessories | girls | girls/accessories").Visible _
    = False
    .PivotItems("boys | boys/baby-boy").Visible = False

Это продолжается и продолжается для тысячразличных значений категорий магазинов, которые у меня есть.

Итак, вот код, который я собрал; 

Private Sub testbutton1_Click()

ActiveSheet.PivotTables("PivotTable1").PivotFields("Attribute1Value"). _
    CurrentPage = "(All)"

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Attribute1Value")
    .PivotItems("beauty").Visible = False



End With

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Attribute1Value"). _
    EnableMultiplePageItems = True


End Sub

Он работает, но только с точными совпадениями и на данный момент он противоположенчто мне нужно для этого (отображать только инвентарные номера, которые не имеют значения "Beauty" в качестве категории магазина, мне нужно, чтобы отображалось все, что содержит "Beauty" или "Beaut" и т. д., как большую часть категории магазиназначения делятся на две категории, например, «Красота | Женщины / Аксессуары»).Измените его на ("beauty"). Visible = True ничего не делает.

Любой совет будет чрезвычайно признателен.

Большое спасибо!

...