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

Як додати кілька полів у зведену таблицю?

Коли ми створюємо зведену таблицю, нам потрібно вручну перетягувати поля в Мітки рядків або Значення вручну. Якщо у нас довгий список полів, ми можемо швидко додати кілька міток рядків, але решта полів слід додати до області Значення. Чи існують швидкі методи додавання всіх інших полів до області Значення одним клацанням у зведеній таблиці?

Додайте кілька полів у область значень зведеної таблиці з кодом VBA

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

стрілка синя права міхур Додайте кілька полів у область значень зведеної таблиці з кодом VBA

На жаль, для нас немає прапорця для швидкого перевірки всіх полів у списку полів зведеної таблиці одним клацанням миші, але за допомогою наступного коду VBA це може допомогти вам одночасно додати решту полів у область Значення. Будь ласка, виконайте наступне:

1. Після створення зведеної таблиці, по-перше, слід додати поля міток рядків, як вам потрібно, і залишити поля значень у Виберіть поля, які потрібно додати до звіту список, див. знімок екрана: </ p>

doc-add-multiple-fields-1

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: додайте кілька полів у область значень зведених таблиць на активному аркуші

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Потім натисніть F5 для запуску цього коду, усі залишені поля одночасно були додані до області Значення, див. знімок екрана:

doc-add-multiple-fields-1

примітки: Цей код VBA застосовується до всіх зведених таблиць активного аркуша.


Статті по темі:

Як перерахувати всі зведені таблиці з книги?

Як перевірити, чи існує зведена таблиця в книзі?


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці

 

Коментарі (23)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Справді гарний і корисний макрос. Однак я вже додав половину своїх полів у значення, і коли я запустив цей макрос, він знову додав усі ті самі поля. Маєте уявлення, чому?
Цей коментар був мінімізований модератором на сайті
Ого. Це працює дуже добре. Велике дякую! Тим не менш, я трохи вражений тим, що Microsoft не мала вбудованої функції для досить простого завдання...
Цей коментар був мінімізований модератором на сайті
Це фантастично. Чи можна змінити макрос, щоб додати всі до міток рядків замість значень?
Цей коментар був мінімізований модератором на сайті
Чи є спосіб запустити це лише для виключених полів, щоб під час його запуску я не отримував повторювані поля? тобто. "Поле" і "Поле_2"
Цей коментар був мінімізований модератором на сайті
[quote]Чи є спосіб запустити це лише для виключених полів, щоб під час його запуску я не мав дублікатів полів? тобто. "Поле" і "Поле_2"Від Шона[/quote] Так, два приклади Використовуйте це, щоб додати всі елементи, що залишилися без прапорців, до ROWS Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count Для iCol = 1 До iColEnd з .PivotFields(iCol) Якщо .Orientation = 0 Тоді .Orientation = xlRowField End Якщо End With Next iCol End With End Sub Використовуйте це, щоб додати елементи, що залишилися без прапорців, до VALUES Sub AddAllFields()V Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Встановити pt = ActiveSheet.PivotTables(1) З pt iCol = 1 iColEnd = .PivotFields.Count Для iCol = 1 Для iColEnd з .PivotFields With .PivotFields, Тоді =(iCol) If .Orientation = xlDataField End If End With Next iCol End With End Sub
Цей коментар був мінімізований модератором на сайті
Чи є спосіб додати лише деякі додаткові поля, не решту чи всі, а лише пару тих, які ще не перевірені? :)
Цей коментар був мінімізований модератором на сайті
Так, щоб повторити markus, чи є спосіб редагувати код, щоб додати лише поля без прапорців, які, безперечно, мають мітки полів (наприклад, якщо функція містить)? Наприклад, у мене є запитання, яке насправді становить 50 значень "так/ні" за темою, і я хотів би перемістити всі ці значення в поле значень. Усі вони починаються з одного мітка запитання q9_[конкретна тема запитання].
Цей коментар був мінімізований модератором на сайті
У будь-якому випадку ми хочемо додати деякі вибрані стовпці з основного файлу замість усіх.?
Цей коментар був мінімізований модератором на сайті
Його значення як count. як я можу перетворити всі рахунки як суму
Цей коментар був мінімізований модератором на сайті
Ви можете натиснути на своє поле (в області, куди ви перетягуєте поля: мітки стовпців, мітки рядків тощо), потім натисніть «Налаштування поля значення», і ви отримаєте спадний список, з якого ви можете вибрати «Сума»!
A     El
Цей коментар був мінімізований модератором на сайті
Код VBA: змініть параметри декількох полів у зведеній таблиці
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
Цей коментар був мінімізований модератором на сайті
Це чудово! Спасибі.
Цей коментар був мінімізований модератором на сайті
Чи не працює "xlDataField" з PowerPivot? У мене є код нижче, який використовується для додавання всіх показників до зведеної таблиці. Він працює з "xlColumnField" і "xlRowField". Є ідеї, як це зробити?

Sub AddAllFieldsValues()
Dim pt Як зведена таблиця
Dim iCol As Long
Dim iColEnd As Long

Встановити pt = ActiveSheet.PivotTables(1)

З пт

iCol = 1
iColEnd = .CubeFields.Count

Для iCol = 1 До iColEnd
З .CubeFields(iCol)
Якщо .Orientation = xlHidden Тоді
.Орієнтація = xlDataField
End If
Кінець з
Наступний iCol

Кінець з

End Sub
Цей коментар був мінімізований модератором на сайті
Привіт.

Це дає мені помилку компіляції, коли я натискаю Виконати

Будь ласка, допоможіть
Цей коментар був мінімізований модератором на сайті
Працює як шарм. Спасибі
Цей коментар був мінімізований модератором на сайті
Дякую, мені дуже допомогло
Цей коментар був мінімізований модератором на сайті
ДУЖЕ ДЯКУЮ!!!
Цей коментар був мінімізований модератором на сайті
Примітка: повідомлення про помилку Че:




Sub AddAllFieldsValues()




'Оновлення 20141112



Dim
pt Як зведена таблиця





Дим я як
Довго





Для кожного
pt У ActiveSheet.PivotTables





для
I = 1 До pt.PivotFields.Count





Кінець з







Далі



Далі




End Sub










Примітка: Че намагається додати наступне
поля/знімок- "Сума ІНШої різниці, сума 4096
Різниця» понад 80 полів
доданий







ІНША різниця



4096 Різниця



4016 Різниця
Цей коментар був мінімізований модератором на сайті
Якщо «Цінності є
"0" або "Null", як придушити відображення значень рядків

(наприклад, сума різниці 2743)





Поворот "Рядки"
Зведення "Цінності"





Етикетки рядків





NP9 – Всього невитрачено
Асигнування





Сума ІНШої різниці 1,045,355,165.31 XNUMX XNUMX XNUMX




Сума різниці 3200
0.00




Сума різниці 0108
12,873,630.29



Сума різниці 4586
(33,024,706.93)



Сума різниці 0148
(72,046,783.14)



Сума різниці 0129
(5,583,891.98)



Сума різниці 4598
(929,574.56)



Сума різниці 2743



Сума різниці 4041
0.00



Сума різниці 2799
Цей коментар був мінімізований модератором на сайті
Чи є спосіб редагувати макрос, який надсилатиме поля в мітку рядків замість значень?
Цей коментар був мінімізований модератором на сайті
Задача же не завжди стоїть в отриманні списку, хочеться дозволити подати таблицю назв або джерел даних. Можете реалізувати?
Цей коментар був мінімізований модератором на сайті
Привіт, чи є спосіб додати лише невибрані стовпці? Спасибі. 
Цей коментар був мінімізований модератором на сайті
Я запускаю цей код. Скільки часу потрібно для завершення? Зараз 45 хвилин, він все ще працює. Будь ласка, допоможи мені. До речі, моє загальне число стовпців поля становить 3600.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL