Como: Classificar dados em planilhas programaticamente

Artigo
08/08/2011

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 por dados na primeira coluna e, em seguida, os dados na segunda coluna.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Excel 2007 e Excel 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

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

Para classificar os dados em um controle NamedRange

Chamar o Sort método o NamedRange de controle. O exemplo a seguir requer um NamedRange controle chamado Fruits em uma planilha. Este código deve ser colocado em uma classe de folha, não o ThisWorkbook classe.

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 seguinte código em Sheet1.vb ou Sheet1.cs para classificar dados em um ListObject de controle. O código pressupõe que você tenha um Microsoft.Office.Tools.Excel.ListObject controle chamado fruitList em uma planilha denominada Sheet1.

Para classificar os dados em um controle de ListObject

Chamar o Sort método o Range propriedade da ListObject controle de host.

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

Classificação de dados em um suplemento em nível de aplicativo

Para classificar os dados em um intervalo nativo

Chamar o Sort método nativo do Excel Microsoft.Office.Interop.Excel.Range de controle. O exemplo a seguir exige um controle nativo do Excel denominado 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 os dados em um controle de ListObject

Chamar o Sort método o Range propriedade de nativo do Excel Microsoft.Office.Interop.Excel.ListObject de controle. O exemplo a seguir pressupõe que você tenha um arquivo nativo do Excel Microsoft.Office.Interop.Excel.ListObject controle chamado 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);