Note: The other languages of the website are Google-translated. Back to English

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

Коли ви створюєте зведену таблицю на аркуші, після перетягування полів до Цінності список у Список полів зведеної таблиці, ви можете отримати все те саме Рахувати функція, як показано на наступному скріншоті. Але тепер ви хочете Сума функції для заміни Рахувати функції відразу, як можна змінити обчислення кількох полів зведеної таблиці одночасно в Excel?

doc-change-field-setting-1

Змінюйте параметри полів у зведеній таблиці вручну по черзі

Змініть параметри декількох полів у зведеній таблиці за допомогою коду VBA

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2019 та 365; Підтримує всі мови; Простота розгортання на вашому підприємстві чи в організації.

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


В Excel ви можете змінити обчислення параметрів поля, змінивши функцію по черзі в Параметри поля значення діалогове вікно, будь ласка, зробіть так:

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

doc-change-field-setting-1

2. Потім у Параметри поля значення діалоговому вікні, виберіть один тип обчислення, який ви хочете використовувати під Підсумуйте значення за вкладку, див. знімок екрана:

doc-change-field-setting-1

3. А потім клацніть OK щоб закрити це діалогове вікно, і ви побачите, що ваша функція Count була змінена на функцію Sum, див.

doc-change-field-setting-1

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

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

doc-change-field-setting-1


стрілка синя права міхур Змініть параметри декількох полів у зведеній таблиці за допомогою коду 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 клавішу для виконання цього коду, і всі налаштування полів у вибраній зведеній таблиці були перетворені відразу на розрахунок потреби, див. скріншоти:

doc-change-field-setting-1
-1
doc-change-field-setting-6

примітки: У наведеному вище коді ви можете змінити функцію Суми на будь-які інші обчислення, такі як Середнє, Макс., Мінімальне, як хочете. Вам просто потрібно змінити суму в цих сценаріях: Public Sub SetDataFieldsToSum () і .Функція = xlSum до інших функцій.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (25)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, поради та макроси VB дійсно корисні. Спасибі
Цей коментар був мінімізований модератором на сайті
Доброго дня, Чудово. Це дійсно дуже допомагає. Ваші підказки Pivot такі чудові, що я шукав багато років і отримав реальну допомогу. Як ми також можемо додати функцію для десяткових дробів. Дуже дякую
Цей коментар був мінімізований модератором на сайті
Дякую за рішення. З причини я отримую помилку на .NumberFormat = "#,##0". Я змінюю із суми на середнє, що працює нормально, але я також хочу змінити NumberFormat на Number з 1 десятковим. Спасибі
Цей коментар був мінімізований модератором на сайті
Привіт, дякую за дуже гарне рішення! Чи можна зробити це автоматично? Тому кожен раз, коли я додаю нове поле до значень, цей макрос повинен запускатися. Наперед дякую, Яні
Цей коментар був мінімізований модератором на сайті
Це так корисно. Ця проблема турбувала мене роками, а тепер вона вирішена.
Цей коментар був мінімізований модератором на сайті
Дякую за це! Чи є спосіб використовувати StdDev замість Sum? Мені вдалося змінити ваш код для Average & Count, але я не можу змусити StdDev працювати. Спасибі!
Цей коментар був мінімізований модератором на сайті
Привіт, Келсі. Мені цікаво, чи отримували ви коли-небудь відповідь на це? Я намагаюся зробити те ж саме. Спасибі!
Цей коментар був мінімізований модератором на сайті
Келсі - ти отримав відповідь на це чи зрозумів це? Я спробував відредагувати код, але поки що не зміг його зрозуміти. Я не був упевнений, чи є спосіб швидко змінити його для різних варіантів підсумовування. Спасибі!
Цей коментар був мінімізований модератором на сайті
Келсі, я щойно створив макрос і змінив його вручну, а потім перевірив код макросу у VBA. Щоб запустити StdDev, використовуйте StDev. Код стає таким:


Загальнодоступний підпорядок SetDataFieldsToStDev()
'Оновлення 20141127
Dim xPF як PivotField
Dim WorkRng як діапазон
Встановіть WorkRng = Application.Selection
З WorkRng.PivotTable
.ManualUpdate = Правда
Для кожного xPF в .DataFields
З xPF
.Function = xlStDev
.NumberFormat = "#,##0"
Кінець з
Далі
.ManualUpdate = Неправда
Кінець з
End Sub
Цей коментар був мінімізований модератором на сайті
привіт, це дуже корисно, дякую за це. Мені просто цікаво, чи можна встановити параметри поля значення лише для кількох або окремих стовпців? я маю на увазі, наприклад, у мене є значення в перших 20 стовпцях, і я хочу бачити дані в SUM, але з 21-го стовпця надходять дані іншого типу (наприклад, розподіл), і з цього стовпця я хотів би бачити дані в значенні MAX. то чи можна якось знайти, наприклад, ім'я заголовка, і якщо "розподіл" є, змінити кожен стовпець "розподіл" на значення MAX. це має сенс? вітає Золтан
Цей коментар був мінімізований модератором на сайті
ти коли-небудь отримував відповідь на це? У мене таке саме запитання
Цей коментар був мінімізований модератором на сайті
Саме те, що я шукав!! Відразу після рядка .NumberFormat я додав перейменування для заголовка стовпця в зведеній точці, тому у мене не було "Sum of" у всіх з них. .Caption = " " & xPF.SourceName Ще раз дякую !!
Цей коментар був мінімізований модератором на сайті
Змініть параметри кількох полів у зведеній таблиці за допомогою коду VBA


Дивовижний! Дуже дякую. Так корисно в моїй роботі.
Цей коментар був мінімізований модератором на сайті
Це неймовірно. Я був розчарований цією проблемою протягом багатьох років, з деякими документами з 50+ полями. Це така економія часу!
Цей коментар був мінімізований модератором на сайті
Дивовижно - я не дуже люблю VBA і відчуваю себе чемпіоном - це вже давно зводить мене з розуму! Дякую
Цей коментар був мінімізований модератором на сайті
SuperB... Я був розчарований цією проблемою
Цей коментар був мінімізований модератором на сайті
Геніально!!!! Щиро дякую, це було неймовірно!!!
Цей коментар був мінімізований модератором на сайті
Як щодо Average, Stddev, Max і Min для кожного поля послідовно?
Цей коментар був мінімізований модератором на сайті
Раніше я з великим успіхом використовував рішення VBA, але воно не працює з моделлю даних. Ви знаєте, чи є рішення для цього?
Цей коментар був мінімізований модератором на сайті
Дякую. Код працював чудово і заощадив мені багато витраченого часу та енергії!
Цей коментар був мінімізований модератором на сайті
Щиро дякую за код VBA, мені він подобається!
Цей коментар був мінімізований модератором на сайті
Дуже дякую!!! Це дуже корисно та блискуче! Заощадила мені дуже багато часу
Цей коментар був мінімізований модератором на сайті
Я отримав цю помилку: "Не вдається отримати властивість зведеної таблиці класу Range". Ви знаєте, як я можу це виправити?
Цей коментар був мінімізований модератором на сайті
Я отримав помилку «Не вдається отримати властивість зведеної таблиці класу діапазону». Ви знаєте, як я можу це виправити?
Цей коментар був мінімізований модератором на сайті
Щиро дякую, цей код VBA чудово працює. 
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця