Вопрос : Кодий Эксел VBA автоматически для того чтобы установить фильтр таблицы оси на 2 специфически значениях в поле

Я пытаюсь написать Кодего некоторого VBA для того чтобы иметь макрос автоматически установить фильтр таблицы оси только для того чтобы приравнивать 2 специфически значения для того поля & освежать оно.  Я не smog вычислять это вне путем смотреть @ Кодего произведенное Macro рекордером.  Например, таблица оси имеет вызванное поле «организационной единицей».  В этом поле будет около 50 или так значения мне не нужно быть включенным в таблицу.  Так, мы в настоящее время ручно идем внутри & ясно фильтр для поля организационной единицы & после этого ручно перечисляем вниз для того чтобы выбрать значения, котор нам.  Мы скажем что единственными 2 значениями, котор нам после того как мы показаны в этом поле будут любым равным к «Apple» или «Орандж» & эти 2 значения никогда не будут изменять.  Может кто-то помочь мне с правильным синтаксисом для фильтровать таблицу оси & после этого освежить ее?  Пожалуйста препятствуйте мне знать если я слишком смутн или если вам нужна больше информация.  

Thanks как всегда для вашей помощи! class=

Ответ : Кодий Эксел VBA автоматически для того чтобы установить фильтр таблицы оси на 2 специфически значениях в поле

Попытайтесь это.  Вам будет нужно изменить мое имя «ActivityEstimatesPivotTable» таблицы оси для того чтобы быть именем вашей таблицы оси и вам будет нужно изменить 2 пункта критериев в моем если заявление к, то вы хотите.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:

Sub ApplyPivotFilter () Тусклое pItem как PivotItem С ActiveSheet.PivotTables («ActivityEstimatesPivotTable») .PivotFields (_ «Состояние») Для каждого pItem в .PivotItems Если (pItem.Value <> «4 - Resolved») и _, то (« <> подтверженные» pItem.Value) после этого pItem.Visible = ложно Закончитесь если Следующее pItem Конец с Подводная лодка конца