Як змінити параметри декількох полів у зведеній таблиці?
Коли ви створюєте зведену таблицю на аркуші, після перетягування полів до Цінності список у Список полів зведеної таблиці, ви можете отримати все те саме Рахувати функція, як показано на наступному скріншоті. Але тепер ви хочете Сума функції для заміни Рахувати функції відразу, як можна змінити обчислення кількох полів зведеної таблиці одночасно в Excel?
Змінюйте параметри полів у зведеній таблиці вручну по черзі
Змініть параметри декількох полів у зведеній таблиці за допомогою коду VBA
Змінюйте параметри полів у зведеній таблиці вручну по черзі
В Excel ви можете змінити обчислення параметрів поля, змінивши функцію по черзі в Параметри поля значення діалогове вікно, будь ласка, зробіть так:
1. Виберіть поле в області Значення, для якого потрібно змінити функцію зведення у зведеній таблиці, та клацніть правою кнопкою миші, щоб вибрати Параметри поля значення, див. скріншот:
2. Потім у Параметри поля значення діалоговому вікні, виберіть один тип обчислення, який ви хочете використовувати під Підсумуйте значення за вкладку, див. знімок екрана:
3. А потім клацніть OK щоб закрити це діалогове вікно, і ви побачите, що ваша функція Count була змінена на функцію Sum, див.
4. Повторіть наведені вище кроки, щоб змінити параметри розрахунку інших полів по черзі.
Примітка: Ви також можете змінити налаштування поля, клацнувши правою кнопкою миші одну клітинку поля та вибрати Підсумуйте значення за і виберіть одне необхідне вам обчислення з контекстних меню.
Змініть параметри декількох полів у зведеній таблиці за допомогою коду VBA
Вищевказаний метод буде трудомістким і нудним, якщо потрібно змінити багато польових обчислень, тут я можу ввести вам код для одночасної зміни кількох налаштувань поданих файлів.
1. Клацніть будь-яку комірку у зведеній таблиці.
2. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.
3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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 () та .Функція = xlSum до інших функцій.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
