Como: Classificar dados em planilhas por programação

Artigo
08/25/2010

Se aplica a
As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office. Tipo de Projeto Projetos de nível de documento Projetos de nível de aplicativo Versão do Microsoft Office O Excel 2003 O Excel 2007 For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office.

Tipo de Projeto

Projetos de nível de documento
Projetos de nível de aplicativo

Versão do Microsoft Office

O Excel 2003
O Excel 2007

For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

Você pode classificar os dados contidos nas listas e intervalos de planilha em tempo de execução.O código a seguir classifica um intervalo de várias colunas chamado Fruits pelos dados na Primeiro coluna e, em seguida, pelos dados no segundo coluna.

Iniciando no Visual Studio 2008 Serviço Pack 1 (SP1), você pode classificar dados em tempo de execução em nível de aplicativo Adicionar-ins.

Classificando dados em uma personalização em nível de documento

Para classificar dados em um Controlarar NamedRange

Chame o método Sort do Controlarar NamedRange.O exemplo a seguir requer um Controlarar de NamedRange chamado Fruits em uma planilha.Este código deve ser colocado em uma classe de Planilha, não na classe 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 o código a seguir no Sheet1.vb ou Sheet1.cs para classificar dados em um Controlarar de ListObject.O código pressupõe que você tenha um Controlarar de Microsoft.Office.Tools.Excel.ListObject denominado fruitList em uma planilha chamada Sheet1.

Para classificar dados em um Controlarar de ListObject

Chame o método Sort da propriedade Range do Controlarar de 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);

Classificando dados em um aplicativo-nível Adicionar - no

Para classificar dados em um intervalo nativo

Chame o método Sort do Excel Microsoft.Office.Interop.Excel.Range Controlarar nativo.O exemplo a seguir requer um Controlarar de Excel nativo chamado Fruits em uma planilha.

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 classificar dados em um Controlarar de ListObject

Chame o método Sort da propriedade Range do Excel Microsoft.Office.Interop.Excel.ListObject Controlarar nativo.O exemplo a seguir pressupõe que você tenha um Controlarar de Microsoft.Office.Interop.Excel.ListObject nativo do Excel denominado fruitList na planilha ativa.

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);