بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'ترتيب تنازلى'.
تم العثور علي 1 نتيجه
-
أعزانى وأحبابى أعضاء وأساتذة المنتدى الكريم والعظيم أقدم لكم كود خفيف يقوم بعمل ترتيب تنازلى لمجموعة أرقام بعمود ما كل ما عليك هو تحديد الأرقام المراد عمل الترتيب لها بالعمود ثم الضغط على 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
