Pomogite s sortirovkoy
Sub Sort()
Worksheets("Table").Activate
With ActiveWorkbook.Worksheets("Table").Columns("A : X").Rows("8:65535").Select
Selection.Sort Key1:=Range("B : B"), Order1:=xlAscending, OrderCustom:=1, Orientation:=xlTopToBottom
End With
End Sub
kakie izmeneniya nado sdelat chtobi sortirovka shla po neskolkim polyam?
zaranie blagodaren
Цитата:
Originally posted by MisterFix
eta procedura sortiruet tablicu po stolbcu B
Sub Sort()
Worksheets("Table").Activate
With ActiveWorkbook.Worksheets("Table").Columns("A : X").Rows("8:65535").Select
Selection.Sort Key1:=Range("B : B"), Order1:=xlAscending, OrderCustom:=1, Orientation:=xlTopToBottom
End With
End Sub
kakie izmeneniya nado sdelat chtobi sortirovka shla po neskolkim polyam?
zaranie blagodaren
eta procedura sortiruet tablicu po stolbcu B
Sub Sort()
Worksheets("Table").Activate
With ActiveWorkbook.Worksheets("Table").Columns("A : X").Rows("8:65535").Select
Selection.Sort Key1:=Range("B : B"), Order1:=xlAscending, OrderCustom:=1, Orientation:=xlTopToBottom
End With
End Sub
kakie izmeneniya nado sdelat chtobi sortirovka shla po neskolkim polyam?
zaranie blagodaren
Sub Sort()
Worksheets("Table").Activate
With ActiveWorkbook.Worksheets("Table").Columns("A : X").Rows("8:65535").Select
Selection.Sort Key1:=Range("B : B"), Order1:=xlAscending, Key2:=Range("E : E"), Order2:=xlDescending, Key3:=Range("G : G"), Order3:=xlAscending, OrderCustom:=1, Orientation:=xlTopToBottom
End With
End Sub
Три поля - максимум.
a bolshe nikak ne poluchitsya?
Цитата:
Originally posted by MisterFix
spasibo za otvet
a bolshe nikak ne poluchitsya?
spasibo za otvet
a bolshe nikak ne poluchitsya?
А чем тебя этот способ не устраивает?
u menya est tablica s nozvaniem Table
na etoy tablice 4 stolbcov
A B C
stolbec A soderjit k primeru sleduyushiye dannie
A-B---C
1-150-a
1-100-a
1-200-a
1-100-b
1-100-b
2-150-c
2-150-c
2-150-c
2-100-c
3-200-c
3-250-c
3-100-c
3-150-c
nujno napisat progrrammu kotoraya sumiruet
i vvodit v druguyu tablicu v takom polojenii
A--B--C
1-450-a
1-200-b
2-550-c
3-800-c
pomogite pojaluysta
Ознакомься с таким явлением как Сводная Таблица. Это как раз твой случай. И не нужна никакая программа.