Dim ptSales As PivotTable

Set 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):

 

 

Рисунок 7.5

 

Остановите запись макроса. Измените код макроса так, чтобы из рабочей книги были удалены все рабочие листы, кроме листа Данные, и сводной таблице задавалось имя Анализ продаж.

 

3 Контрольные вопросы

 

3.1 Назовите имена двух коллекций, которые необходимы для создания сводных таблиц.

3.2 Какое свойство объекта PivotField назначает поля данных областям сводной таблицы (т.е. областям страницы, строк, столбцов и данных)?

3.3 Назовите четыре области сводной таблицы.

3.4 Какой метод создает отчет сводной таблицы?

3.5 Истинно или ложно следующее утверждение: сводную таблицу можно создать только на основе данных, которые записаны на рабочем листе Excel?

Лабораторная работа 8