Метод SortFields.Add (Excel)

Создает новое поле сортировки и возвращает объект SortFields .

Синтаксис

expression. Add (Key, SortOn, Order, CustomOrder, DataOption)

выражение Переменная, представляющая объект SortFields .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Ключ	Обязательный	Range	Задает значение ключа для сортировки.
SortOn	Необязательный	Variant	Значение XlSortOn , указывающее, какое свойство ячейки следует использовать для сортировки.
Order	Необязательный	Variant	Значение XlSortOrder , указывающее порядок сортировки.
CustomOrder	Необязательный	Variant	Указывает, следует ли использовать пользовательский порядок сортировки.
DataOption	Необязательный	Variant	Значение XlSortDataOption , указывающее способ сортировки текста.

Возвращаемое значение

SortField

Замечания

Этот API не включает поддержку типов данных, таких как Geography или Stocks. Чтобы определить порядок сортировки на основе подполя одного из этих типов, см. метод Add2 .

Пример

В этом примере таблица Table1 на листе1 сортируется по столбцу Column1 в порядке возрастания.

Метод Clear вызывается перед, чтобы обеспечить очистку предыдущей сортировки, чтобы можно было применить новую.

Объект Sort вызывается для применения добавленной сортировки к Table1.

ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
 Key:=Range("Table1[[#All],[Column1]]"), _
 SortOn:=xlSortOnValues, _
 Order:=xlAscending, _
 DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
 .Header = xlYes
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.