Как выбрать несколько фильтров в сводной таблице на основе результатов ComboBox - PullRequest
Новая
       10

Как выбрать несколько фильтров в сводной таблице на основе результатов ComboBox

0 голосов
/ 23 января 2019

Я хочу отфильтровать данные в сводной таблице на основе ввода ComboBox, связанного с другой сводной таблицей.

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

Мне удалось создать макрос, который хранится на всех из них через ComboBox.Но есть одна сводная таблица (назовем ее «Сегментация»), которая имеет поле «состояния», которое представляет каждый дилер.

Я пытаюсь отфильтровать состояния в таблице сегментации на основе результатаComboBox.Как я могу это сделать?

Смотрите код, который я использую ниже: 

Dim ws As Worksheet
Dim wb As Workbook
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem


Set wb = ThisWorkbook

For Each ws In wb.Worksheets
For Each pt In ws.PivotTables

    Set pf = Nothing
    On Error Resume Next
    Set pf = pt.PivotFields("Dealer")
    Set pf = pt.PivotFields("Distribuidor")
        pf.ClearAllFilters
        pf.CurrentPage = ComboBox1.Value

Next pt
Next ws
...