VBA/Excel/Access/Word/Excel/Excel Sort — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 12:47, 26 мая 2010

Data Lists

 
Sub sortDemo()
     With ActiveWorkbook.Worksheets("Sheet1").sort
         .SortFields.clear
         .SortFields.add Key:=range("D3"), _
                        SortOn:=SortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
         .SetRange range("B4:D9")
         .HEADER = xlNo
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
     End With
End Sub