VBA для фильтрации поля сводной таблицы на основе именованного диапазона - PullRequest
Новая
       21

VBA для фильтрации поля сводной таблицы на основе именованного диапазона

0 голосов
/ 24 октября 2019

У меня есть динамический именованный диапазон и 2 сводные таблицы (из одной исходной таблицы) - PivotTable3 & PivotTable4.

Мне нужно отфильтровать оба на основе значений в именованном диапазоне.

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

Спасибо! 

Sub FilterPivot()
    Dim PI As PivotItem
    With Worksheets("Front").PivotTables("PivotTable3").PivotFields("[KS].[MN].[MN]")
        .ClearAllFilters
        For Each PI In .PivotItems
            PI.Visible = WorksheetFunction.CountIf(Range("NamedRange"), PI.Name) > 0
        Next PI
    End With
End Sub
...