Самоучитель VBA

тойота chr









Начало  Назад  Вперед



Таблица!") _ PivotSelect



Таблица!") . _

PivotSelect "Месяц [Все] ", xlLabelOnly With ActiveSheet .

PivotTables ( "СводнаяТаблица!").

PivotFields ("Месяц") .Orientation = xlRowField .Position = 1

End With

Группировка полей

Поля сводной таблицы можно группировать. Например, объединим магазины Альфа и Бета в одну группу. Для этого надо выделить поля этих магазинов и выбрать команду Данные, Группа и структура, Группировать (Data, Group and Outline, Group) (Рисунок 6.11). Программно тот жерезультат получается при помощи следующих двух инструкций:

ActiveSheet . PivotTables ( "Сводная