Как отсортировать поля сводной таблицы по алфавиту

Если постоянно добавлять данные в исходный диапазон, вы можете заметить, что новые данные автоматически не попадают в порядок сортировки существующих данных. Вместо этого, они добавляются внизу существующих данных. Это означает, что раскрывающиеся списки показывают все новые данные в самом низу, а старые данные сортируются в алфавитном порядке. Макрос дает возможность сортировать все поля сводной в алфавитном порядке.

Этот макрос сбрасывает сортировку полей, гарантируя, что новые данные встанут на место. Макрос должен запускаться каждый раз при обновлении сводной таблицы. Код проходит через каждое поле данных в сводной таблице и сортирует каждое из них. 

1. Шаг 1 объявляет две переменные объекта, используя Pt в качестве контейнера памяти для сводной таблицы и Pf в качестве контейнера памяти для полей данных. Это позволяет макросу перебрать все поля данных в сводной таблице. 

Активная ячейка должна находиться внутри сводной таблицы для запуска этого макроса. Предполагается, что, когда курсор находится внутри определенной сводной таблицы, мы хотим выполнить действие макроса на этой сводной таблице. 

2. Шаг 2 присваиваем активной сводной таблице переменную РТ. Мы делаем это, используя свойство ActiveCell.PivotTable.Name, чтобы получить имя целевого диапазона. Если активная ячейка не находится внутри сводной таблицы, выдается ошибка. Именно поэтому макрос использует On Error Resume Next Statement. Это говорит Excel продолжить макрос, если есть ошибка. 

3. Шаг 3 проверяет переменную РТ - если она пустая, то выводим пользователю сообщение о том, что необходимо поместить курсор в сводную таблицу и выходим из процедуры.

4. И, наконец, мы используем оператор For Each, чтобы перебирать поля сводной таблицы. Каждый раз, когда выбрано новое поле сводной, мы используем метод AutoSort, чтобы сбросить автоматические правила сортировки для поля. И далее сортирует все поля в порядке возрастания. После того как все поля данных были оценены, макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.