Dim ptSales As PivotTableSet ptSales = ActiveWorkbook.PivotCaches.Add _ (SourceType: = xlDataBase, SourceData: = _ “Лист1! R1C1: R37C4”).CreatePivotTable(TableDestination: = “ ”) ActiveSheet.PivotTableWizard _ TableDestination: = ActiveSheet.Cells (3, 1) ActiveSheet.Cells(3, 1).Select ptSales. SmallGrid = False With ptSales. PivotFields(“Год”) .Orientation = xlPageField .Position = 1 End With With ptSales. PivotFields(“Район”) .Orientation = xlRowField .Position = 1 End With With ptSales. PivotFields(“Категория товара”) .Orientation = xlColumnField
.Position = 1 End With With ptSales. PivotFields(“Объем продаж”) .Orientation = xlDataField .Position = 1 End With End Sub
2 Практическая часть
З а д а н и е 1 Создайте следующую таблицу (рисунок 7.4):
Рисунок 7.4
Запишите макрос, который на основе этой таблицы будет создавать сводную таблицу следующего вида (рисунок 7.5):
Остановите запись макроса. Измените код макроса так, чтобы из рабочей книги были удалены все рабочие листы, кроме листа Данные, и сводной таблице задавалось имя Анализ продаж.
3 Контрольные вопросы
3.1 Назовите имена двух коллекций, которые необходимы для создания сводных таблиц. 3.2 Какое свойство объекта PivotField назначает поля данных областям сводной таблицы (т.е. областям страницы, строк, столбцов и данных)? 3.3 Назовите четыре области сводной таблицы. 3.4 Какой метод создает отчет сводной таблицы? 3.5 Истинно или ложно следующее утверждение: сводную таблицу можно создать только на основе данных, которые записаны на рабочем листе Excel? Лабораторная работа 8
|
Рисунок 7.5
