ترتيب الارقام الموجبة والسالبة

[Mostafa Moawad]

السلام عليكم

هل يمكن ترتيب الارقام الموجبه والسالبه معا بنفس العمود اي لو عندي عمود به الارقام 20,18,16,10,5,6,7,-7,-8,-2 فهل يمكن ترتيب الارقام الموجبه اولا ثم ترتيب الارقام السالبة بعد اخر رقم للارقام الموجبه اي ان لو الارقام الموجبه عددها 7 يقوم بترتيب الارقام السالبه بداية من 8

يفضل استخدام دوال بدلا من اكواد البرمجه

[سليم حاصبيا]

كان من الواجب ارفاق ملف (الوقت ليس كافياً لوضع ملف يحتوي على ما تريد)

لكن حيث انها المرة الأولى ارفق لك هذا الملف النموذج 

الكود

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

[أحمد يوسف]

  

Mostafa Moawad

فين انت من هذا الكود الممتاز ؟!!!

أين الضغط على الإعــــــجـــاب لإجابة الأستاذ سليم  الممتازة ؟!!!💙