Как настроить значения сводной таблицы по умолчанию на среднее вместо суммы?

Question

[Archie_7]

Приходится создавать сводные таблицы с кучей значений (от 30 и выше). По умолчанию в сводной таблице при выборе значений стоит сумма, вручную изменять каждое значение на среднее крайне неудобно. Есть ли способ настроить так, чтобы при выборе значений сводной таблице по умолчанию стояло среднее?

Comments

[Akina]

Нет никакого "по умолчанию". Берётся просто из списка первое доступное для типа данных. Для числовых данных это сумма. Соответственно и никакой настройки нет.
Но что мешает сделать это программно?

Set Worksheet(index).PivotTables(index).PivotFields(index).Function = xlAverage

Код на кнопку, кнопку на панель, итерация по всем полям, и соответственно профит. Лист в большинстве случаев - активный, а таблица - первая.