Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » dimax77
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Группировка данных в фильтре сводной таблицы
 
#
15.12.2020 09:02:29
Добрый день всем!
Неужто так невозможно?)
 
Перейти    
Группировка данных в фильтре сводной таблицы
 
#
26.11.2020 19:25:44
Прикрепил)
Выглядит как обычный фильтр на листе.
Но это фильтр сводной таблицы
 
Перейти    
Группировка данных в фильтре сводной таблицы
 
#
26.11.2020 11:02:25
Добрый день!
Помогите пожалуйста с настройкой фильтра сводной таблицы.

Есть данные по клиентам по периодам - месяцам. На основе данных сформирована сводная таблица. Одним из фильтров является период. В фильтре строки с названием периодов (месяцев)
Никак не могу понять, как их сгруппировать, чтобы было как на скрине:

У меня они сейчас просто перечислияются подряд.  Конечно можно выбрать несколько, но это не очень удобно. Тем более когда данные за несколько лет, перечень получается очень большой.

Можно сделать несколько фильтров - год, квартал, месяц. Но не удобно. Как группировать данные в строках - понятно. Задача - сделать это в фильтре.

Excel 2016
 
Перейти    
Оптимизация работы со сводной таблицей средствами VBA, Оптимизация работы со сводной таблицей средствами VBA
 
#
17.04.2018 09:05:44
Добрый день всем!

Помогите пожалуйста со следующей проблемой:
Есть сводная таблица с поступлениями от клиентов. Есть необходимость фильтровать поступления поквартально, нарастающим итогом и т.д.
В данных, из которых таблица формируется, клиенты учитываются помесячно. Чтобы не "грузить" конечного пользователя выбором месяцев в фильтре, нарисовал выбора квартала, а дальше средствами VBA в фильтре выбираются необходимые месяцы (фильтр для пользователя вообще не виден).
Использую код:
Код
Sub квартал_1()
'ActiveSheet.PivotTables("СводнаяТаблица1").ManualUpdate = True
    
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Месяц").ClearAllFilters
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Месяц")
        .PivotItems("4").Visible = False
        .PivotItems("5").Visible = False
        .PivotItems("6").Visible = False
    End With

'ActiveSheet.PivotTables("СводнаяТаблица1").ManualUpdate = False

End Sub
Проблема в том, что после каждой строки    .PivotItems("1").Visible сводная таблица пересчитывается. Получается при выборе конкретного квартала таблица пересчитывается 3 раза, при выборе полугодия - 6, и т.д. Учитывая, что в таблице 6000 строк, вычисления происходят не быстро.
Возможно ли каким-то образом средствами VBA сначала настроить фильтр, а потом один раз пересчитать сводную таблицу? Если VBA не использовать, то так и происходит - я ставлю нужные галочки, нажимаю ОК и таблица пересчитывается.

Пробовал код
Код
ActiveSheet.PivotTables("СводнаяТаблица1").ManualUpdate = True
не помогает. Все равно постоянно пересчитывает. Отключение автоматического расчета формул тоже не работает. Помогите в какую сторону копать....
 
Перейти    
Страницы: 1
Наверх