أكواد في الإكسل_001_الترتيب التصاعدي والتنازلي كود سهل جدا
الأكواد
Sub wترتيب_تصاعديw(x As Long)
Dim rng As Range
Set rng = Range("A1").CurrentRegion
rng.Sort Key1:=rng.Columns(x), Order1:=xlAscending, Header:=xlYes
End Sub
Sub wترتيب_تنازليw(x As Long)
Dim rng As Range
Set rng = Range("A1").CurrentRegion
rng.Sort Key1:=rng.Columns(x), Order1:=xlDescending, Header:=xlYes
End Sub
تحميل برنامج أكوادي
السلام عليكم استاذي الفاضل الكود لا يعمل
ردحذف