م الاسم النوع
1 ياسر ذكر
2 اسلام ذكر
3 حسام ذكر
4 محمد ذكر
5 عمرو ذكر
6 عماد ذكر
7 محمود ذكر
8 يوسف ذكر
9 مروه أنثى
10 رؤى أنثى
11 أميرة أنثى
12 آية أنثى
13 نور ذكر
14 إيناس أنثى
15 لمياء أنثى
16 أحمد ذكر
17 إبراهيم ذكر
18 سارة أنثى
19 عز ذكر
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1:C20").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B20") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:C20")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Range("A1:C20").Sort Key1:=Range("B1:B20"), Order1:=xlAscending, Header:=xlYesRange("A2:C20").Sort Key1:=Range("B2:B20"), Order1:=xlAscending, Header:=xlNoRange("A1:C20").Sort Key1:=Range("C1:C20"), Order1:=xlDescending, Key2:=Range("B1:B20"), Order2:=xlAscending, Header:=xlYesKey1:=Range("C1:C20"), Order1:=xlDescendingKey2:=Range("B1:B20"), Order2:=xlAscending Range("A100").Select
Selection.End(xlUp).SelectRange("A100").End(xlUp).SelectRange("A" & Rows.Count).End(xlUp).SelectRange("A" & Rows.Count).End(xlUp).Row Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
MsgBox LR
Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox LR
Sub SortData()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:C" & LR).Sort Key1:=Range("C1:C" & LR), Order1:=xlDescending, Key2:=Range("B1:B" & LR), Order2:=xlAscending, Header:=xlYes
End Sub
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
[1]
الحلقة الثالثة عشر مهارات الفرز والترتيب
