Пользовательский автофильтр в Excel

Что делает макрос: В некоторых случаях, требуется применить пользовательскую сортировку элементов данных в сводной таблице.

Как макрос работает

Вы можете автоматизировать пользовательскую сортировку ваших полей с помощью свойства положения объекта PivotItems. С помощью свойства Position, можно присвоить номер позиции, который определяет порядок, в котором вы хотели бы видеть каждый элемент сводной.
В этом примере кода мы сначала указываем на поле сводной области в Pvt1 сводной таблице. Затем мы перечисляем каждый элемент вместе с номером позиции, указывающей порядок сортировки, который нам нужен.

Код макроса

Sub PolzovatelskayaSortirovkaSvodnoi()
With Sheets("Лист1").PivotTables("Pvt1").PivotFields("Регион ")
.PivotItems("Запад").Position = 1
.PivotItems("Север").Position = 2
.PivotItems("Юг").Position = 3
End With
End Sub

Другим решением является создание пользовательского списка сортировки. Список пользовательской сортировки – это определенный список, который хранится в вашем экземпляре Excel. Для того, чтобы создать собственный список сортировки, перейдите в
диалоговое окно Параметры Excel и выберите Редактировать пользовательские списки.
Здесь вы можете ввести Запад, Север, и Юг в поле Элементы списка и нажмите кнопку Добавить. После настройки пользовательского списка, элементы данных в области сводной таблицы будут соответствовать пользовательскому списку и отсортируют поле соответственно вашему пользовательскому списку.
Пользовательские списки не перемещаются из вашей книги, поэтому макрос помогает в тех случаях, когда нецелесообразно ждать, пока ваши клиенты или члены команды создадут свои собственные списки пользовательских сортировок.

Как использовать

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

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