كود لعمل ترتيب تنازلى لعدة أرقم بعمود ما

[Yasser Fathi Albanna]

أعزانى وأحبابى أعضاء وأساتذة المنتدى الكريم والعظيم

أقدم لكم كود خفيف يقوم بعمل ترتيب تنازلى لمجموعة أرقام بعمود ما

كل ما عليك هو تحديد الأرقام المراد عمل الترتيب لها بالعمود ثم الضغط على Alt+F8

ثم Run وشاهد

Sub bubble_sort()
Dim sortingArray As Variant, i As Long, j As Long, temp As Variant

sortingArray = Selection.Value

For i = 1 To (UBound(sortingArray, 1) - 1)
For j = i To UBound(sortingArray, 1)
If Val(sortingArray(j, 1)) < Val(sortingArray(i, 1)) Then
temp = sortingArray(i, 1)
sortingArray(i, 1) = sortingArray(j, 1)
sortingArray(j, 1) = temp
End If
Next j
Next i

Selection.Value = sortingArray

End Sub

ترتيب ارقام تنازليا بالاكسيل.rar

[ياسر خليل أبو البراء]

أخي الحبيب ياسر

ممكن أعترض ..

ايه فايدة الكود ؟؟!!

طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا

هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !!

بحاول أشوف أي فايدة تانية للكود بس مش لاقي

 

تقبل اعتراضي

[Yasser Fathi Albanna]

أخي الحبيب ياسر

ممكن أعترض ..

ايه فايدة الكود ؟؟!!

طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا

هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !!

بحاول أشوف أي فايدة تانية للكود بس مش لاقي

 

تقبل اعتراضي

بنحاول نجرب الأكواد أيضا يا أ / ياسر

تلميذك

تم تعديل مايو 9, 2015 بواسطه Eng : Yasser Fathi Albanna