Як додати кілька полів у зведену таблицю?
Коли ми створюємо зведену таблицю, нам потрібно вручну перетягувати поля в Мітки рядків або Значення вручну. Якщо у нас довгий список полів, ми можемо швидко додати кілька міток рядків, але решта полів слід додати до області Значення. Чи існують швидкі методи додавання всіх інших полів до області Значення одним клацанням у зведеній таблиці?
Додайте кілька полів у область значень зведеної таблиці з кодом VBA
Додайте кілька полів у область значень зведеної таблиці з кодом VBA
На жаль, для нас немає прапорця для швидкого перевірки всіх полів у списку полів зведеної таблиці одним клацанням миші, але за допомогою наступного коду VBA це може допомогти вам одночасно додати решту полів у область Значення. Будь ласка, виконайте наступне:
1. Після створення зведеної таблиці, по-перше, слід додати поля міток рядків, як вам потрібно, і залишити поля значень у Виберіть поля, які потрібно додати до звіту список, див. знімок екрана: </ p>
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 для запуску цього коду, усі залишені поля одночасно були додані до області Значення, див. знімок екрана:
примітки: Цей код VBA застосовується до всіх зведених таблиць активного аркуша.
Статті по темі:
Як перерахувати всі зведені таблиці з книги?
Як перевірити, чи існує зведена таблиця в книзі?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!