Результат выполнения приведенной выше процедуры показан на рис. 24.
В таблице показан результат вычислений по собранным в исходной таблице данным. Можно отфильтровать данные по филиалам и по месяцам, выбрав нужный «фильтр» из списков в полях, помещенных в область страницы.
Следующий код позволяет добавить в таблицу вычисляемое поле:
Sub ДобавитьВычислимое()
With Worksheets("Таблица").PivotTables("Сводный отчет")
.CalculatedFields.Add "Прибыль", "=Доходы-Издержки"
.PivotFields("Прибыль").Orientation = xlDataField
