Как изменить несколько настроек полей в сводной таблице?
После создания сводной таблицы на листе и перетаскивания полей в список Значения в Списке полей сводной таблицы вы можете увидеть, что для всех полей применяется одна и та же функция — Подсчёт, как показано на следующем снимке экрана. Но что если вы хотите сразу заменить функцию Сумма на функцию Подсчёт для всех полей одновременно? Как быстро изменить расчёт сразу для нескольких полей сводной таблицы в Excel?
Изменение Настройки полей в Сводная таблица вручную по одному
Изменение нескольких Настройки полей в Сводная таблица с помощью кода VBA
Изменение Настройки полей в Сводная таблица вручную по одному
В Excel вы можете изменить расчёт настройки полей, последовательно меняя функцию в диалоговом окне Поле значений Настройки полей. Выполните следующие действия:
1. В сводной таблице выберите поле в области «Значения», для которого нужно изменить итоговую функцию, щёлкните его правой кнопкой мыши и выберите Поле значений → Настройки полей. См. снимок экрана:
2. Затем в диалоговом окне Поле значений Настройки полей выберите нужный тип вычисления на вкладке Итоги по полю, см. снимок экрана:
3. После этого нажмите ОК, чтобы закрыть диалоговое окно. Теперь вы увидите, что функция «Подсчёт» заменена на «Сумму» — см. снимок экрана:
4. Повторите описанные выше действия, чтобы поочерёдно изменить параметры вычисления для остальных полей.
Примечание: Вы также можете изменить настройки полей, щёлкнув правой кнопкой мыши ячейку поля и выбрав Итоги по полю, а затем указав нужное вычисление в контекстном меню.
Изменение нескольких Настройки полей в Сводная таблица с помощью кода VBA
Описанный выше метод может оказаться трудоёмким и утомительным, если нужно изменить множество полей. В этом случае воспользуйтесь приведённым ниже кодом, чтобы настроить сразу несколько полей одновременно.
1. Щёлкните любую ячейку в вашей сводной таблице.
2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
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, чтобы выполнить этот код. Все поля «Настройки полей» в выбранной вами сводной таблице мгновенно преобразуются к требуемому типу вычисления — см. снимки экрана:
|
 |
 |
Примечание: В приведённом выше коде вы можете заменить функцию «Сумма» на любые другие — например, «Среднее», «Максимум» или «Минимум». Для этого достаточно изменить слово «Sum» в следующих строках кода:Public Sub SetDataFieldsToSum() и .Function = xlSum на соответствующие значения.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек