ترتيب درجات الطلبة

[كعبلاوى]

مطلوب من أساتذتى الافاضل مشرفى الموقع ترتيب درجات الطلبة باستخدام الاكواد

من المجموع الاكبر الى المجموع الاصغر

لتوزيعهم على الاقسام المختلفة بالمدرسة 

ترتيب المجموع.rar

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

جرب هذا الملف

 

ترتيب المجموع salim.rar

[كعبلاوى]

سعدت بمشاركتك استاذى الكبير / سليم حاصبيا 

بخصوص الملف  الملف لايعمل بالضغط على ترتيب المجموع فانه لاينفذ شىء 

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

r = r + k + 3

استبدل الرقم 3 بالرقم 2 قي هذا السطر

تأكد من ذلك بوضع بعض البيانات الجديدة في العامود C

 

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

جرب هذا الملف الجديد

ربما يكون اسرع قليلاً

 

ترتيب المجموع salim corriger.rar

[كعبلاوى]

أسف للاطالة ومشكور استاذنا الفاضل على الاستجابة ومحاولات الوصول للحل

مرفق ملف يسهل معرفة المطلوب تنفيذه بالصبط

Book1.rar

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

جرب هذا الماكرو

Sub filter_me()
lre = Cells(Rows.Count, 5).End(3).Row
Range("e3:g" & lre).Copy Range("k3")
 Range("l4:m" & lre).SortSpecial , key1:=Range("m4"), order1:=xlDescending

End Sub

 

[كعبلاوى]

تسلم ايديك أستاذى الفاضل / سليم حاصبيا

بارك الله فيك  هذا هو المطلوب جزاك الله عنا الف خير

 

Book1.rar