Как изменить настройки нескольких полей в сводной таблице?
Когда вы создаете сводную таблицу на листе, после перетаскивания полей в Наши ценности список в Список полей сводной таблицывы можете получить все то же самое Количество как показано на следующем скриншоте. Но теперь ты хочешь Сумма функции для замены Количество функции сразу, как вы можете изменить расчет сразу нескольких полей сводной таблицы в Excel?
Измените настройки полей в сводной таблице вручную по одному
Измените настройки нескольких полей в сводной таблице с помощью кода VBA
Измените настройки полей в сводной таблице вручную по одному
В Excel вы можете изменить расчет параметров поля, изменяя функцию одну за другой в Настройки поля значений диалоговое окно, сделайте следующее:
1. Выберите поле в области значений, для которого вы хотите изменить функцию сводки в сводной таблице, и щелкните правой кнопкой мыши, чтобы выбрать Настройки поля значений, см. снимок экрана:
2. Тогда в Настройки поля значений диалоговом окне выберите один тип вычислений, который вы хотите использовать под Суммировать ценность по вкладку, см. снимок экрана:
3, Затем нажмите OK чтобы закрыть это диалоговое окно, и вы увидите, что ваша функция Count была изменена на функцию Sum, см. снимок экрана:
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 на любые другие вычисления, такие как Average, Max, Min, как хотите. Вам просто нужно изменить Sum в этих скриптах: Открытый Sub SetDataFieldsToSum () и .Функция = кслсум к другим функциям.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!