Добрый День!
Имеется отчет, состоящий из двух десятков сводных таблиц, которые находятся на одном листе.
У большинства (не у всех) таблиц в поле фильтры стоит выбор месяцев. По-работе достаточно часто (несколько раз в день) приходится
менять месяца в фильтрах. При этом, во всех таблицах, где есть такой фильтр указываю один и тот же месяц.
На текущий момент я могу скриптом менять фильтр в сводной таблице, но только в одной:
В принципе я понимаю, что их можно просто перечислить, но на лист могут со временем будут добавляться новые таблицы. Как заставить скрипт менять фильтры во всех таблицах на листе, где есть фильтр "Месяцы" я никак не могу разобраться. Пожалуйста помогите.
Имеется отчет, состоящий из двух десятков сводных таблиц, которые находятся на одном листе.
У большинства (не у всех) таблиц в поле фильтры стоит выбор месяцев. По-работе достаточно часто (несколько раз в день) приходится
менять месяца в фильтрах. При этом, во всех таблицах, где есть такой фильтр указываю один и тот же месяц.
На текущий момент я могу скриптом менять фильтр в сводной таблице, но только в одной:
Код |
---|
Sub test() ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Месяцы").CurrentPage = _ Sheets("Отчет").Range("E2").Value End Sub |
В принципе я понимаю, что их можно просто перечислить, но на лист могут со временем будут добавляться новые таблицы. Как заставить скрипт менять фильтры во всех таблицах на листе, где есть фильтр "Месяцы" я никак не могу разобраться. Пожалуйста помогите.