Метод SortFields.Add2 (Excel)

Создает новое поле сортировки и возвращает объект SortFields , который при необходимости может сортировать типы данных с заданным подполем.

Синтаксис

expression. Add2 (Key, SortOn, Order, CustomOrder, DataOption, SubField)

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

Параметры

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

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

SortField

Замечания

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

В отличие от формул, для вложенных полей не требуются квадратные скобки для включения пробелов.

Пример

В этом примере таблица Table1 на листе1 сортируется по столбцу 1 в порядке возрастания в зависимости от типа данных SubField Population on Geography.

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

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

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

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

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