Yasser Fathi Albanna قام بنشر مايو 9, 2015 قام بنشر مايو 9, 2015 أعزانى وأحبابى أعضاء وأساتذة المنتدى الكريم والعظيم أقدم لكم كود خفيف يقوم بعمل ترتيب تنازلى لمجموعة أرقام بعمود ما كل ما عليك هو تحديد الأرقام المراد عمل الترتيب لها بالعمود ثم الضغط على 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
ياسر خليل أبو البراء قام بنشر مايو 9, 2015 قام بنشر مايو 9, 2015 أخي الحبيب ياسر ممكن أعترض .. ايه فايدة الكود ؟؟!! طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !! بحاول أشوف أي فايدة تانية للكود بس مش لاقي تقبل اعتراضي 1
Yasser Fathi Albanna قام بنشر مايو 9, 2015 الكاتب قام بنشر مايو 9, 2015 (معدل) أخي الحبيب ياسر ممكن أعترض .. ايه فايدة الكود ؟؟!! طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !! بحاول أشوف أي فايدة تانية للكود بس مش لاقي تقبل اعتراضي بنحاول نجرب الأكواد أيضا يا أ / ياسر تلميذك تم تعديل مايو 9, 2015 بواسطه Eng : Yasser Fathi Albanna 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.