Страницы: 1
RSS
Удаление промежуточных итогов из сводной таблицы
 
Доброго всем дня!
Если создавать сводную таблицу с записью кода макрорекодером, то удаление промежуточных итогов выглядит так:
Код
ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Корзина").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Дата корзины"). _
        Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
        False, False)
Здесь на форуме прочитал, что все можно упростить до такого варианта, чтобы избавиться от этого множества false:
Код
ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Корзина").Subtotals(1) = False
ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Дата корзины").Subtotals(1) = False
В связи с этим появился вопрос, а можно ли пойти дальше и разом отключить итоги для всех полей таблицы. В этом примере их всего два, но бывает значительно больше. Или все же нужно прописывать это для каждого в отдельности?
 
Видимо иногда полезно долго ждать ответа )))
Пока ждал сам придумал. Работает:
Код
Dim pf As PivotField
With ActiveSheet.PivotTables("СводнаяТаблица2")
        For Each pf In .PivotFields
            pf.Subtotals(1) = False
        Next
End With
Изменено: IvanMantrov - 10.06.2018 19:04:37
Страницы: 1
Наверх