Сортировка в особом порядке по полю «Наименование»
Добавление пользовательских списков
Для сортировки в особом порядке предварительно создается новый список из данных любого имеющегося столбца, который нужно отсортировать. Чтобы создать такой список, воспользуемся ранее созданным на листе Цены списком «Фрукты»:
в MS Office 2003 выполняем команду Сервис/Параметры/Списки (в MS Office 2007 -нажимаем кнопку Microsoft Office, затем кнопку Параметры Excel, выбираем раздел Основные, а затем в группе Основные параметры работы с Excel нажимаем кнопку Изменить списки).
в поле «импорт списка из ячеек» нажимаем клавишу F3 и из списка имен выбираем ФРУКТЫ;
нажимаем кнопку «Импорт»;
Для того, чтобы можно было провести особую сортировку по столбцу «Наименование» по убыванию, также сформируем соответствующий список:
сортируем исходную таблицу «Цены» по столбцу «Наименование» по убыванию;
повторяем пп.1-3.
В результате выполненных действий в перечне стандартных списков Excel появится два пользовательских списка наименований фруктов в возрастающем и убывающем порядке
Если список не был заранее подготовлен, нажимаем кнопку Добавить и вводим наименования товаров в поле Элементы списка, для разделения нажимая на клавишу Enter.
В макросе эти действия пользователя записываются в виде строки:
Application.AddCustomList ListArray:=Range("Фрукты")
Для удаления созданного списка следует выполнить команду Сервис/Параметры/Списки, в поле списки выделить созданный ранее список и нажать кнопку «Удалить».
В макросе эти действия пользователя записываются в виде строки:
Application.DeleteCustomList ListNum:=5
Особая сортировка
Для проведения особой сортировки по столбцу «Наименование» по возрастанию необходимо выполнить следующие действия:
Устанавливаем курсор за переделами таблицы (например, в ячейку J10)
Выбираем меню Сервис/Макрос/Начать запись (Разработчик/Запись макроса). Вводим имя макроса «сорт_особая_возр».
Нажимаем кнопку ОК. После этого появится панель «Остановить запись».
Выделяем ячейку A10, выполняем команду Данные/Сортировка и задаем сортировку по полю «наименование» по возрастанию.
В MS Office 2003 нажимаем кнопку «Параметры», в списке выбираем созданный ранее список и нажимаем ОК, в MS Office 2007 выполняем команду Данные/Сортировка/ Порядок/Настраиваемый список и в появившемся окне Списки выбираем список «Фрукты»
Выбираем команду Сервис/Макрос/Остановить запись (Разработчик/Остановить запись).
Текст полученного макроса с добавлением 2х строк в MS Office 2003:
Sub сорт_особая_возр()
Application.DeleteCustomList ListNum:=5
Application.AddCustomList ListArray:=Range("Фрукты")
Range("A10").Select
Range("A10:G50").Sort Key1:=Range("E11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Текст полученного макроса в MS Office 2007:
Sub сорт_особая_возр()
Range("A10").Select
ActiveWorkbook.Worksheets("Продажи").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Продажи").Sort.SortFields.Add Key:=Range("E11:E50" _
), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Апельсины,Груши,Лимоны,Мандарины,Яблоки", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Продажи").Sort
.SetRange Range("A10:G50")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Для кнопки «Сортировка в особом порядке по возрастанию» назначаем созданный макрос «сорт_особая_возр».
Для проведения особой сортировки по столбцу «Наименование» по убыванию необходимо выполнить аналогичные действия:
Устанавливаем курсор за переделами таблицы (в J40, например)
Выбираем меню Сервис/Макрос/Начать запись (Разработчик/Запись макроса). Вводим имя макроса «сорт_особая_убыв».
Нажимаем кнопку ОК. После этого появится панель «Остановить запись».
Выделяем ячейку A10, выполняем команду Данные/Сортировка и задаем сортировку по полю «наименование» по убыванию.
Нажимаем кнопку «Параметры», выбираем созданный ранее список.
Нажимаем кнопку ОК.
Выбираем команду Сервис/Макрос/Остановить запись (Разработчик/Остановить запись).
Текст полученного макроса с добавлением 2х строк:
Sub сорт_особая_убыв()
Application.DeleteCustomList ListNum:=5
Application.AddCustomList ListArray:=Range("Фрукты")
Range("A10").Select
Range("A10:G40").Sort Key1:=Range("E11"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
В MS Office 2007 выполняем команду Данные/Сортировка/Порядок/Настраиваемый список и в появившемся окне Списки выбираем созданный ранее список Фрукты, отсортированный по убыванию.
Для кнопки «Сортировка в особом порядке по убыванию» назначаем созданный макрос «сорт_особая_убыв».