ميكرو لترتيب (sort) عامود به ارقام بالاكسل

[ahmedkamalali]

هذا الميكرو يستخدم لترتيب ارقام تنازليا بالاكسيل

كل مافى الامر ان تقوم بتحديد العمود المراد ترتيبه ثم تقوم بتشغيل الميكرو alt+f8

الكود

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

[mesalamy]

جزاك الله كل خييييييييييييييييييييييييييير

[mesalamy]

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

[ياسر فتحى البنا]

تعديل الكود
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