Método SortFields.Add2 (Excel)

Crea un nuevo campo de ordenación y devuelve un objeto SortFields que, opcionalmente, puede ordenar los tipos de datos con el subcampo definido.

Sintaxis

expresión. Add2 (Key, SortOn, Order, CustomOrder, DataOption, SubField)

expresión Variable que representa un objeto SortFields .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Clave	Obligatorio	Rango	Especifica un valor clave para la ordenación.
SortOn	Opcional	Variant	Valor XlSortOn que especifica qué propiedad de una celda se va a usar para la ordenación.
Order	Opcional	Variant	Valor XlSortOrder que especifica el criterio de ordenación.
CustomOrder	Opcional	Variant	Especifica si se debe utilizar un criterio de ordenación personalizado.
DataOption	Opcional	Variant	Valor XlSortDataOption que especifica cómo ordenar texto.
SubField	Optional	Variant	Especifica el campo sobre el que se va a ordenar para un tipo de datos (como Population for Geography o Volume for Stocks).

Valor devuelto

SortField

Comentarios

Esta API incluye compatibilidad para ordenar un subcampo de tipos de datos, como Geography o Stocks. También puede usar el método Add si no es necesario ordenar por un tipo de datos.

A diferencia de las fórmulas, subcampos no requieren corchetes para incluir espacios.

Ejemplo

En este ejemplo se ordena una tabla, Table1 en Sheet1, por Column1 en orden ascendente en función del rellenado de subcampos en los tipos de datos Geography.

Antes se llama al método Clear para asegurarse de que se borra la ordenación anterior para que se pueda aplicar uno nuevo.

Se llama al objeto Sort para aplicar la ordenación agregada a 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.