Построение сводной таблицы

В разработке....

Рассмотрим код построения сводной таблицы по файлу реестр документов ГМ - поле строк - дата, поле столбцов - тип операции, поле данных - операция суммирования.

Sub CreatePivotTable()
ActiveWorkbook.Worksheets.Add after:=Worksheets("Sheet1")
Worksheets(2).Name = "Сводная"
'Объявляем переменные
    Dim objTable As PivotTable, objField As PivotField
    'Выбираем лист и первую ячейку в нем по которому будет строиться сводная
    ActiveWorkbook.Sheets("Sheet1").Select
    Range("A1").Select
    'Создаем сводную
    Set objTable = ActiveWorkbook.Sheets("Sheet1").PivotTableWizard
    'Определяем Поле строк и Поле столбцов
    'Поле строк (по заголовку нужного столбца)
    Set objField = objTable.PivotFields("Дата операции")
    objField.Orientation = xlRowField
    'Поле столбца (по заголовку нужного столбца)
    Set objField = objTable.PivotFields("Название типа операции")
    objField.Orientation = xlColumnField
'Определяем поле данных с нужной нам операцией, в данном случае с суммой
    Set objField = objTable.PivotFields("Сумма документа")
    objField.Orientation = xlDataField
    objField.Function = xlSum
    objField.NumberFormat = "0,00"
 End Sub

Самые часто используемые операторы для полей данных:
xlAverage — среднее значение;
xlCount — количество;
xlCountNums — подсчет только числовых значений;
xlMax — определение максимального значения;
xlMin — определение минимального значения;
xlProduct—умножение;
xlSum — сумма;