التعديل على كود ترتيب

[سالم سالم]

السلام عليكم ورحمة الله وبركاته

برجاء التعديل على كود الترتيب الموجود بحيث المجموع الأكبر أولاً

وإذا تساوى المجموع فالسن الأصغر يكون أولاً

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

sort.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

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

Sub sort()
Range("b3:f24").Select
Selection.sort Key1:=Range("D3"), Order1:=xlDescending, Key2:=Range("e3"), Order2:=xlAscending
Dim C As Range, x As Integer
For Each C In Range("D3:D24")
x = WorksheetFunction.Rank(C, Range("D3:D24"))
If C.Offset(-1, 0) = C.Value Then
C.Offset(0, 3) = x + 1
Else
C.Offset(0, 3) = x
End If
Next
Range("b3").Select
End Sub

 

[بن علية حاجي]

السلام عليكم ورحمة الله

أولا أبدل الكود الموجود في الملف بالكود التالي (تبسيط):

Sub sort()
  Range("B3:F24").sort Key1:=Range("D3"), Order1:=xlDescending, _
        key2:=Range("E3"), Order2:=xlAscending
End Sub

وثانيا أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية...

والله أعلى وأعلم

 

[سالم سالم]

السلام عليكم

الأخ /ابراهيم الحداد بارك الله فيك تم استبدال الكود ولم يتم المطلوب

الأخ/ بن علية حاجي  بارك الله فيك تم استبدال الكود ولم يتم المطلوب

شاهدا المرفق

sort.xlsm

[بن علية حاجي]

السلام عليكم ورحمة الله

نعم قمت باستبدال الكود ولكن لم تقم بما طلبته منك ثانيا: "أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية..."

وأرسل لك الملف ثانية بعد إعادة حجز قيم المجاميع (من جديد) بالنسبة للمجاميع المتساوية... ثم تنفيذ الكود الذي أرسلته لك والذي قام بالعملية بنجاح...

والله أعلى وأعلم

 

sort (2).xlsm

[سالم سالم]

السلام عليكم

الأخ/ بن علية حاجي  بارك الله فيك وجزاك خيراً ... الملف اصبح تمام  .... ولكن كيف تتم ثانيا

وثانيا أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية...

[سالم سالم]

السلام عليكم

الأخ/ بن علية حاجي  بارك الله فيك وجزاك خيراً ... الملف اصبح تمام  .... ولكن كيف تتم ثانيا

وثانيا أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية...