ассистент

М. С. Иванова

должность, уч. степень, звание

подпись, дата

инициалы, фамилия

ОТЧЕТ О ЛАБОРАТОРНОЙ РАБОТЕ №3

СОЗДАНИЕ СВОДНЫХ ТАБЛИЦ СРЕДСТВАМИ VBA

по курсу: ИНФОРМАЦИОННЫЕ СИСТЕМЫ И ТЕХНОЛОГИИ

СТУДЕНТКА ГР.

4716

С.А. Янышева

подпись, дата

инициалы, фамилия

Private Sub CreatePivotTable1()

Dim PTcache As PivotCache

Dim pt As PivotTable

'Удаление ненужных листов

Call ShetsDelete

'Создание кеша

Set PTcache = ActiveWorkbook.PivotCaches.Create( _

SourceType:=xlDatabase, _

SourceData:=Range("A1").CurrentRegion)

'Добавление нового листа в сводную таблицу

Worksheets.Add

ActiveSheet.Name = "Сводная таблица"

ActiveWindow.DisplayGridlines = False

'Создание сводной таблицы

Set pt = ActiveSheet.PivotTables.Add( _

PivotCache:=PTcache, _

TableDestination:=Range("A3"))

'Добавление полей

With pt

.PivotFields("Код клиента").Orientation = xlPageField

.PivotFields("Фамилия И. О.").Orientation = xlRowField

.PivotFields("Дата").Orientation = xlColumnField

'.PivotFields("Дата").Group Periods:=Array(False, False, False, False, True, False, False)

.PivotFields("Цена").Orientation = xlDataField

'Нет заголовков полей

.DisplayFieldCaptions = False

'Применение числового формата

.DataBodyRange.NumberFormat = "#,##0"

'Применение стиля

.TableStyle2 = "PivotStyleMedium3"

End With

End Sub

Sub ShetsDelete()

Dim wsX As Worksheet

Application.DisplayAlerts = False

For Each wsX In Worksheets

If wsX.Name <> "Лист1" Then wsX.Delete

Next wsX

End Sub