Как добавить несколько полей в сводную таблицу?
Когда мы создаем сводную таблицу, нам нужно вручную перетаскивать поля в метки строк или значения. Если у нас есть длинный список полей, мы можем быстро добавить несколько меток строк, но оставшиеся поля должны быть добавлены в область значений. Есть ли какие-нибудь быстрые способы добавить все остальные поля в область значений одним щелчком мыши в сводной таблице?
Добавьте несколько полей в область значений сводной таблицы с кодом VBA
Добавьте несколько полей в область значений сводной таблицы с кодом VBA
К сожалению, у нас нет флажка для быстрой проверки всех полей в списке полей сводной таблицы одним щелчком мыши, но с помощью следующего кода VBA он может помочь вам сразу добавить оставшиеся поля в область значений. Пожалуйста, сделайте следующее:
1. После создания сводной таблицы, во-первых, вы должны добавить поля меток строки по своему усмотрению и оставить поля значений в Выберите поля для добавления в отчет список, см. снимок экрана: </ p>
2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!