VBA/Excel/Access/Word/Excel/Excel Sort — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (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