Как изменить настройки нескольких полей в сводной таблице?
Когда вы создаете сводную таблицу на листе, после перетаскивания полей в список Значения в списке полей сводной таблицы, вы можете получить все те же функции Подсчета, как показано на следующем скриншоте. Но теперь вы хотите, чтобы функция Сумма заменила функцию Подсчета сразу. Как можно изменить расчет нескольких полей сводной таблицы одновременно в 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 на другие функции.
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек