Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Сортирует диапазон значений.
Синтаксис
выражение. Сортировка (ключ1, порядок1, ключ2, тип, порядок2, ключ3, порядок3, заголовок, OrderCustom, MatchCase, ориентация, SortMethod, DataOption1, DataOption2, DataOption3)
выражение: переменная, представляющая объект Range.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Клавиша1 | Необязательный | Variant | Указывает первое поле сортировки либо как имя диапазона (String), либо как объект Range ; Определяет значения для сортировки. |
| Заказ1 | Необязательный | XlSortOrder | Определяет порядок сортировки для значений, указанных в ключе1. |
| Клавиша2 | Необязательный | Variant | Второе поле сортировки; нельзя использовать при сортировке сводных таблиц. |
| Type | Необязательный | Variant | Определяет тип элементов, которые нужно отсортировать в сводной таблице. Укажите xLSortLabels для сортировки по меткам диапазона экспериментав области "Названия строк" и "Столбцы" в диапазоне сводной таблицы или значения xLSortValues , если Key1 дополнительно нацеливается на ячейку в области "Значения" или "Суб/Общие итоги" с помощью нотации R1C1. |
| Заказ2 | Необязательный | XlSortOrder | Определяет порядок сортировки для значений, указанных в ключе Key2. |
| Клавиша3 | Необязательный | Variant | Третье поле сортировки; нельзя использовать при сортировке сводных таблиц. |
| Заказ3 | Необязательный | XlSortOrder | Определяет порядок сортировки для значений, указанных в разделе Key3. |
| Header | Необязательный | XlYesNoGuess | Указывает, содержит ли первая строка сведения о заголовке. xlNo — значение по умолчанию; укажите xlGuess , если хотите, чтобы Excel попытался определить заголовок. |
| ЗаказПользовательский | Необязательный | Variant | Задает целочисленное смещение в списке пользовательских порядков сортировки, отсчитывающее от единицы. |
| MatchCase | Необязательный | Variant | Установите значение True для выполнения сортировки с учетом регистра, False для выполнения сортировки без учета регистра; нельзя использовать со сводными таблицами. |
| Orientation | Необязательный | XlSortOrientation | Указывает, где должна выполняться сортировка: по строке (по умолчанию) или по столбцу. Задайте значение xlSortColumns равным 1 для сортировки по столбцам. Задайте значение xlSortRows равным 2 для сортировки по строкам (это значение по умолчанию). |
| SortMethod | Необязательный | XlSortMethod | Определяет способ сортировки. |
| DataOption1 | Необязательный | XlSortDataOption | Определяет, как сортировать текст в диапазоне, указанном клавишей Key1; не применяется к сортировке в сводных таблицах. |
| DataOption2 | Необязательный | XlSortDataOption | Определяет, как сортировать текст в диапазоне, указанном в клавише Key2; не применяется к сортировке в сводных таблицах. |
| DataOption3 | Необязательный | XlSortDataOption | Определяет, как сортировать текст в диапазоне, указанном клавишей Key3; не применяется к сортировке в сводных таблицах. |
Возвращаемое значение
Variant
Пример
В этом примере мы получаем значение цвета ячейки в столбце A с помощью свойства ColorIndex , а затем сортируем диапазон по цвету.
Sub ColorSort()
'Set up your variables and turn off screen updating.
Dim iCounter As Integer
Application.ScreenUpdating = False
'For each cell in column A, go through and place the color index value of the cell in column C.
For iCounter = 2 To 55
Cells(iCounter, 3) = _
Cells(iCounter, 1).Interior.ColorIndex
Next iCounter
'Sort the rows based on the data in column C
Range("C1") = "Index"
Columns("A:C").Sort key1:=Range("C2"), _
order1:=xlAscending, header:=xlYes
'Clear out the temporary sorting value in column C, and turn screen updating back on.
Columns(3).ClearContents
Application.ScreenUpdating = True
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.