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

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

Когда вы создаете сводную таблицу на листе, после перетаскивания полей в Ценности список в Список полей сводной таблицывы можете получить все то же самое Количество как показано на следующем скриншоте. Но теперь ты хочешь Сумма функции для замены Количество функции сразу, как вы можете изменить расчет сразу нескольких полей сводной таблицы в Excel?

doc-change-field-setting-1

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

Измените настройки нескольких полей в сводной таблице с помощью кода VBA

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2021 и 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. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код 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

Внимание: В приведенном выше коде вы можете изменить функцию Sum на любые другие вычисления, такие как Average, Max, Min, как хотите. Вам просто нужно изменить Sum в этих скриптах: Открытый Sub SetDataFieldsToSum () и .Функция = кслсум к другим функциям.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (28)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Советы и макросы VB действительно полезны. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день, Замечательный. Это действительно очень помогает. Ваши советы Pivot настолько замечательны, что я ищу много лет, и я получил реальную помощь. Как мы можем добавить функцию для десятичных дробей. Большое спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за решение. По какой-то причине я получаю сообщение об ошибке .NumberFormat = "#,##0". Я переключаюсь с Sum на Average, который отлично работает, но я также хочу изменить NumberFormat на Number с 1 десятичным знаком. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет, спасибо за очень хорошее решение! Можно ли сделать его автоматическим? Поэтому всякий раз, когда я добавляю новое поле к значениям, этот макрос должен запускаться. заранее спасибо, Джани
Этот комментарий был сведен к минимуму модератором на сайте
Это так полезно. Эта проблема беспокоила меня много лет, и теперь она решена.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за это! Есть ли способ использовать StdDev вместо Sum? Мне удалось изменить ваш код для Average & Count, но я не могу заставить работать StdDev. Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Келси. Мне интересно, ты когда-нибудь получала ответ на этот вопрос? Я пытаюсь сделать то же самое. Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Келси, ты получила ответ на этот вопрос или разобралась с этим? Я пытался отредактировать код, но пока не смог разобраться. Я не был уверен, есть ли способ быстро изменить его для различных вариантов суммирования. Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Келси, я только что создал макрос и изменил его вручную, а затем проверил код макроса в VBA. Чтобы заставить StdDev работать, используйте StDev. Код становится следующим:


Общедоступная подсистема SetDataFieldsToStDev()
'Обновление 20141127
Dim xPF как PivotField
Dim WorkRng As Range
Установите WorkRng = Application.Selection
С WorkRng.PivotTable
.ManualUpdate = Истина
Для каждого xPF в .DataFields
С xPF
.Функция = кслстдев
.NumberFormat = "#,##0"
Конец с
Далее
.ManualUpdate = Ложь
Конец с
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
привет это очень полезно спасибо за это. Мне просто интересно, можно ли установить только несколько или определенные параметры поля значений столбцов? я имею в виду, например, у меня есть значения в первых 20 столбцах, и я хочу видеть данные в SUM, но из 21-го столбца поступает другой тип данных (например, распределение), и из этого столбца я хотел бы видеть данные в MAX значение. так можно ли как-то найти, например, имя заголовка, и если там есть «распределение», измените все столбцы «распределения» на максимальное значение. имеет ли это смысл? ура Золтан
Этот комментарий был сведен к минимуму модератором на сайте
вы когда-нибудь получали ответ на это? У меня такой же вопрос
Этот комментарий был сведен к минимуму модератором на сайте
Как раз то, что я искал !! Сразу после строки .NumberFormat я добавил переименование заголовка столбца в сводной таблице, поэтому у меня не было «Суммы» во всех из них. .Caption = " " & xPF.SourceName Еще раз спасибо!!
Этот комментарий был сведен к минимуму модератором на сайте
Изменить несколько параметров поля в сводной таблице с помощью кода VBA


Удивительно! Большое спасибо. Так помогает в моей работе.
Этот комментарий был сведен к минимуму модератором на сайте
Это невероятно. Я был разочарован этой проблемой в течение многих лет с некоторыми документами с более чем 50 полями. Это такая экономия времени!
Этот комментарий был сведен к минимуму модератором на сайте
Удивительно - я не силен в VBA и чувствую себя чемпионом - это давно сводило меня с ума! Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
SuperB... Я был разочарован этой проблемой
Этот комментарий был сведен к минимуму модератором на сайте
Блестяще!!!! Спасибо большое это было восхитительно!!!
Этот комментарий был сведен к минимуму модератором на сайте
Как насчет среднего, стандартного отклонения, максимального и минимального значений для каждого поля последовательно?
Этот комментарий был сведен к минимуму модератором на сайте
В прошлом я с большим успехом использовал решение VBA, но оно не работает с моделью данных. Знаете ли вы, есть ли решение для этого?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо. Код работал прекрасно и сэкономил мне много потраченного времени и энергии!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за код VBA, я люблю его!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо!!! Это ооочень полезно и гениально! Сэкономил мне оооочень много времени
Этот комментарий был сведен к минимуму модератором на сайте
Я получил эту ошибку: «Невозможно получить свойство сводной таблицы класса Range». Вы знаете, как я могу это исправить?
Этот комментарий был сведен к минимуму модератором на сайте
Я получил сообщение об ошибке «Невозможно получить свойство сводной таблицы класса диапазона». Вы знаете, как я могу это исправить?
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, этот код VBA работает потрясающе. 
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL