Как изменить настройки нескольких полей в сводной таблице?

Когда вы создаете сводную таблицу на листе, после перетаскивания полей в список Значения в списке полей сводной таблицы, вы можете получить все те же функции Подсчета, как показано на следующем скриншоте. Но теперь вы хотите, чтобы функция Сумма заменила функцию Подсчета сразу. Как можно изменить расчет нескольких полей сводной таблицы одновременно в Excel?

Изменение настроек полей в сводной таблице вручную по одному

Изменение настроек нескольких полей в сводной таблице с помощью кода VBA

Изменение настроек полей в сводной таблице вручную по одному

В Excel вы можете изменить расчет настроек полей, изменив функцию одну за другой в диалоговом окне Настройки поля значений. Пожалуйста, сделайте следующее:

1. Выберите поле в области Значений, для которого вы хотите изменить функцию сводки в сводной таблице, щелкните правой кнопкой мыши и выберите Настройки поля значений, см. скриншот:

2. Затем в диалоговом окне Настройки поля значений выберите тип расчета, который вы хотите использовать, на вкладке Сводка значений по, см. скриншот:

3. Затем нажмите OK, чтобы закрыть это диалоговое окно, и вы увидите, что ваша функция Подсчета была изменена на функцию Суммы, см. скриншот:

4. Повторите вышеуказанные шаги, чтобы изменить настройки расчета других полей по одному.

Примечание: Вы также можете изменить настройки полей, щелкнув правой кнопкой мыши ячейку поля и выбрав Сводка значений по, а затем выбрав нужный расчет из контекстного меню.

Изменение настроек нескольких полей в сводной таблице с помощью кода VBA

Вышеуказанный метод может занять много времени и быть утомительным, если нужно изменить множество расчетов полей. Здесь я могу предложить вам код для изменения настроек нескольких полей одновременно.

1. Щелкните любую ячейку в вашей сводной таблице.

2. Удерживайте клавиши ALT + F11, и откроется окно Microsoft Visual Basic for Applications.

3. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Изменение настроек нескольких полей в сводной таблице

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. Затем нажмите клавишу F5 для выполнения этого кода, и все настройки полей в выбранной сводной таблице будут преобразованы в нужный расчет сразу, см. скриншоты:

Примечание: В приведенном выше коде вы можете изменить функцию Суммы на любые другие расчеты, такие как Среднее, Максимум, Минимум, как вам нужно. Вам просто нужно изменить Сумму в этих скриптах: Public Sub SetDataFieldsToSum() и .Function = xlSum на другие функции.