Mostafa Moawad قام بنشر سبتمبر 2, 2020 مشاركة قام بنشر سبتمبر 2, 2020 السلام عليكم هل يمكن ترتيب الارقام الموجبه والسالبه معا بنفس العمود اي لو عندي عمود به الارقام 20,18,16,10,5,6,7,-7,-8,-2 فهل يمكن ترتيب الارقام الموجبه اولا ثم ترتيب الارقام السالبة بعد اخر رقم للارقام الموجبه اي ان لو الارقام الموجبه عددها 7 يقوم بترتيب الارقام السالبه بداية من 8 يفضل استخدام دوال بدلا من اكواد البرمجه رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 2, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 2, 2020 كان من الواجب ارفاق ملف (الوقت ليس كافياً لوضع ملف يحتوي على ما تريد) لكن حيث انها المرة الأولى ارفق لك هذا الملف النموذج الكود Option Explicit Sub Sorte_PLease() Dim m%, Ro%, i% Dim Obj_Pos As Object Dim Obj_Neg As Object Set Obj_Pos = CreateObject("System.Collections.ArrayList") Set Obj_Neg = CreateObject("System.Collections.ArrayList") Range("c1").CurrentRegion.ClearContents Ro = Cells(Rows.Count, 1).End(3).Row For i = 1 To Ro If Cells(i, 1) = vbNullString _ Or Not IsNumeric(Cells(i, 1)) Then GoTo Next_I If Val(Cells(i, 1)) >= 0 Then Obj_Pos.Add Cells(i, 1).Value Else Obj_Neg.Add Cells(i, 1).Value End If Next_I: Next i Obj_Pos.Sort Obj_Neg.Sort m = 1 Cells(m, 3).Resize(Obj_Pos.Count) = _ Application.Transpose(Obj_Pos.toarray) m = m + Obj_Pos.Count Cells(m, 3).Resize(Obj_Neg.Count) = _ Application.Transpose(Obj_Neg.toarray) Set Obj_Pos = Nothing: Set Obj_Neg = Nothing End Sub الملف مرفق sorts Pos and Neg.xlsm 2 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر سبتمبر 2, 2020 مشاركة قام بنشر سبتمبر 2, 2020 Mostafa Moawad فين انت من هذا الكود الممتاز ؟!!! أين الضغط على الإعــــــجـــاب لإجابة الأستاذ سليم الممتازة ؟!!!💙 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان