SortFields.Add2 method (Excel) (Método SortFields.Add2 [Excel])
Cria um novo campo de ordenação e devolve um objeto SortFields que pode, opcionalmente, ordenar tipos de dados com o SubField definido.
Sintaxe
expressão. Add2 (Key, SortOn, Order, CustomOrder, DataOption, SubField)
expressão Uma variável que representa um objeto SortFields .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Tecla | Obrigatório | Range | Especifica um valor de tecla para a classificação. |
| SortOn | Opcional | Variant | Um valor XlSortOn que especifica a propriedade de uma célula a utilizar para a ordenação. |
| Order | Opcional | Variant | Um valor XlSortOrder que especifica a sequência de ordenação. |
| CustomOrder | Opcional | Variant | Especifica se uma ordem de classificação personalizada deve ser usada. |
| DataOption | Opcional | Variant | Um valor XlSortDataOption que especifica como ordenar texto. |
| SubField | Optional | Variant | Especifica o campo a ordenar para um tipo de dados (como População para Geografia ou Volume para Ações). |
Valor de retorno
SortField
Comentários
Esta API inclui suporte para ordenar um SubCampo a partir de tipos de dados, como Geografia ou Ações. Também pode utilizar o método Adicionar se a ordenação por um tipo de dados não for necessária.
Ao contrário das fórmulas, os SubCampos não requerem parênteses retos para incluir espaços.
Exemplo
Este exemplo ordena uma tabela, Tabela1 na Folha1, por Coluna1 por ordem ascendente com base nos tipos de dados População de Subcampos em Geografia.
O método Clear é chamado antes para garantir que a ordenação anterior é limpa para que uma nova possa ser aplicada.
O objeto Ordenar é chamado para aplicar a ordenação adicionada à Tabela1.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.