Cómo: Ordenar datos en hojas de cálculo mediante programación

Actualización: Julio de 2008

Puede ordenar los datos contenidos en rangos y listas de hojas de cálculo en tiempo de ejecución. El código siguiente ordena un rango con varias columnas llamado Fruits por los datos de la primera columna y, después, por los de la segunda.

A partir de Visual Studio 2008 Service Pack 1 (SP1), puede ordenar datos en tiempo de ejecución en los complementos en el nivel de la aplicación.

Ordenar datos en una personalización del nivel de documento

Para ordenar los datos de un control NamedRange

• Llame al método Sort del control NamedRange. El ejemplo siguiente requiere una hoja de cálculo con un control NamedRange denominado Fruits. Este código debe colocarse en una clase Sheet, no en la clase ThisWorkbook.

  Me.Fruits.Sort( _
      Key1:=Me.Fruits.Columns(1), Order1:=Excel.XlSortOrder.xlAscending, _
      Key2:=Me.Fruits.Columns(2), Order2:=Excel.XlSortOrder.xlAscending, _
      Orientation:=Excel.XlSortOrientation.xlSortColumns, _
      Header:=Excel.XlYesNoGuess.xlNo, _
      SortMethod:=Excel.XlSortMethod.xlPinYin, _
      DataOption1:=Excel.XlSortDataOption.xlSortNormal, _
      DataOption2:=Excel.XlSortDataOption.xlSortNormal, _
      DataOption3:=Excel.XlSortDataOption.xlSortNormal)
  

  this.Fruits.Sort(
      this.Fruits.Columns[1, missing], Excel.XlSortOrder.xlAscending,
      this.Fruits.Columns[2, missing], missing, Excel.XlSortOrder.xlAscending,
      missing, Excel.XlSortOrder.xlAscending,
      Excel.XlYesNoGuess.xlNo, missing, missing, 
      Excel.XlSortOrientation.xlSortColumns,
      Excel.XlSortMethod.xlPinYin,
      Excel.XlSortDataOption.xlSortNormal,
      Excel.XlSortDataOption.xlSortNormal,
      Excel.XlSortDataOption.xlSortNormal); 
  

Coloque el código siguiente en Sheet1.vb o Sheet1.cs para ordenar los datos de un control ListObject. En el código se supone que tiene un control Microsoft.Office.Tools.Excel.ListObject denominado fruitList en una hoja de cálculo denominada Sheet1.

Para ordenar los datos de un control ListObject

• Llame al método Sort de la propiedad Range del control host ListObject.

  Me.fruitList.Range.Sort( _
      Key1:=Me.fruitList.ListColumns(1).Range, Order1:=Excel.XlSortOrder.xlAscending, _
      Key2:=Me.fruitList.ListColumns(2).Range, Order2:=Excel.XlSortOrder.xlAscending, _
      Orientation:=Excel.XlSortOrientation.xlSortColumns, _
      Header:=Excel.XlYesNoGuess.xlYes)
  

  this.fruitList.Range.Sort(
      this.fruitList.ListColumns[1].Range, Excel.XlSortOrder.xlAscending,
      this.fruitList.ListColumns[2].Range, missing, Excel.XlSortOrder.xlAscending,
      missing, Excel.XlSortOrder.xlAscending, 
      Excel.XlYesNoGuess.xlYes, missing, missing, 
      Excel.XlSortOrientation.xlSortColumns,
      Excel.XlSortMethod.xlPinYin, 
      Excel.XlSortDataOption.xlSortNormal,
      Excel.XlSortDataOption.xlSortNormal,
      Excel.XlSortDataOption.xlSortNormal);
  

Ordenar los datos de un complemento en el nivel de la aplicación

Para ordenar los datos de un rango nativo

• Llame al método Sort del control nativo Microsoft.Office.Interop.Excel.Range de Excel. El ejemplo siguiente requiere un control nativo de Excel denominado Fruits en una hoja de cálculo.

  Dim Fruits As Excel.Range = Me.Application.Range("A1", "B2")
  Fruits.Sort( _
      Key1:=Fruits.Columns(1), Order1:=Excel.XlSortOrder.xlAscending, _
      Key2:=Fruits.Columns(2), Order2:=Excel.XlSortOrder.xlAscending, _
      Orientation:=Excel.XlSortOrientation.xlSortColumns, _
      Header:=Excel.XlYesNoGuess.xlNo, _
      SortMethod:=Excel.XlSortMethod.xlPinYin, _
      DataOption1:=Excel.XlSortDataOption.xlSortNormal, _
      DataOption2:=Excel.XlSortDataOption.xlSortNormal, _
      DataOption3:=Excel.XlSortDataOption.xlSortNormal)
  

  Excel.Range Fruits = Application.get_Range("A1", "B3");
      Fruits.Sort(
      Fruits.Columns[1, missing], Excel.XlSortOrder.xlAscending,
      Fruits.Columns[2, missing], missing, Excel.XlSortOrder.xlAscending,
      missing, Excel.XlSortOrder.xlAscending,
      Excel.XlYesNoGuess.xlNo, missing, missing,
      Excel.XlSortOrientation.xlSortColumns,
      Excel.XlSortMethod.xlPinYin,
      Excel.XlSortDataOption.xlSortNormal,
      Excel.XlSortDataOption.xlSortNormal,
      Excel.XlSortDataOption.xlSortNormal); 
  

Para ordenar los datos de un control ListObject

• Llame al método Sort de la propiedad Range del control nativo Microsoft.Office.Interop.Excel.ListObject de Excel. En el ejemplo siguiente se supone que hay un control nativo Microsoft.Office.Interop.Excel.ListObject de Excel denominado fruitList en la hoja de cálculo activa.

  Dim fruitList As Excel.ListObject = CType(Application.ActiveSheet,  _
      Excel.Worksheet).ListObjects.AddEx(Excel.XlListObjectSourceType.xlSrcRange, _
      Application.Range("A1", "B2"))
  fruitList.Range.Sort( _
  Key1:=fruitList.ListColumns(1).Range, Order1:=Excel.XlSortOrder.xlAscending, _
  Key2:=fruitList.ListColumns(2).Range, Order2:=Excel.XlSortOrder.xlAscending, _
  Orientation:=Excel.XlSortOrientation.xlSortColumns, _
  Header:=Excel.XlYesNoGuess.xlYes)
  

  Excel.ListObject fruitList = 
       ((Excel.Worksheet)Application.ActiveSheet).
           ListObjects.Add(Microsoft.Office.Interop.Excel.XlListObjectSourceType.xlSrcRange,
           Application.get_Range("A1", "B3"), 
           missing, Microsoft.Office.Interop.Excel.XlYesNoGuess.xlNo, missing); 
      fruitList.Range.Sort(
          fruitList.ListColumns[1].Range, Excel.XlSortOrder.xlAscending,
          fruitList.ListColumns[2].Range, missing, Excel.XlSortOrder.xlAscending,
          missing, Excel.XlSortOrder.xlAscending,
          Excel.XlYesNoGuess.xlYes, missing, missing,
          Excel.XlSortOrientation.xlSortColumns,
          Excel.XlSortMethod.xlPinYin,
          Excel.XlSortDataOption.xlSortNormal,
          Excel.XlSortDataOption.xlSortNormal,
          Excel.XlSortDataOption.xlSortNormal);
  

Vea también

Tareas

Cómo: Rellenar rangos automáticamente con datos que cambian de forma incremental

Cómo: Hacer referencia a rangos de hojas de cálculo en el código

Cómo: Aplicar estilos a los rangos de los libros

Conceptos

Trabajar con hojas de cálculo

NamedRange (Control)

ListObject (Control)

Descripción de los parámetros opcionales en las soluciones de Office

Historial de cambios