تلبية طلب الأستاذ هانى أبو أدهم

[يوسف عطا]

بداية أستأذنكم فى التغيب عن المنتدى لمدة إسبوع أو عشرة ايام

فحتى نلتقى لكم أرق التمنيات

السلام عليكم استاذ يوسف

ارجو من سيادتكم تنقية العشر الأوائل من المرفق فى نفس الصفح أو فى صفحة اخرى

وتشرحلى المعادلة بتاعة فرزهم

hany.rar

مشكوور استاذ هانى انا عايز كمان العشرة الأوائل ازاى اطلعم لوحدهم

كود إستخراج الأوائل وشرحه

إنسخ الكود فى موديول وإستخدم أى زر يعجبك لتشغيل الكود

Sub أوائل()

'

' أوائل

' الماكرو مسجل ‎25/07/2012 بواسطة ‎يوسف عطا يوسف

'

'

'السطر التالى يحدد النطاق الذى يحتوى على بيانات الطلاب ودرجاتهم

Range("C11:F2000").Select

'الأسطر التالية تقوم بفرز النطاق بمعيار المجموع فرزاً تنازلياً لترتيب الطلاب

Selection.Sort Key1:=Range("E11"), Order1:=xlDescending, Header:=xlNo, _

	 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

	 DataOption1:=xlSortNormal

'السطر التالى يقوم بتحديد النطاق الذى فيه العشرة الأوائل بترتيبهم

Range("C11:F20").Select

'السطر التالى لنسخ النطاق السابق

Selection.Copy

Range("J11").Select

'الأسطر التالية تقوم بلصق قيم النطاق السابق فى جدول الأوائل بدءاً من الخلية فى السطر السابق

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

	 :=False, Transpose:=False

'الأسطر التالية تقوم بإعادة ترتيب الطلاب وفقاً لأرقام جلوسهم تصاعدياً

Range("C11:F2000").Select

Application.CutCopyMode = False

Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _

	 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

	 DataOption1:=xlSortNormal

'لتحديد أى خلية خارج نطاق البيانات

Range("A1").Select

End Sub

معادلة ترتيب جميع الطلاب توضع فى الخلية F11 ثم تسحب حتى F2000

=IF(COUNTIF($E$11:E11;E11)>=2;RANK(E11;$E$11:$E$2000;0)&" "&"مكرر";RANK(E11;$E$11:$E$2000;0))

العمود A خالى

العمود B للمسلسل

العمود C لرقم الجلوس

العمود D للإسم

العمود E للمجموع الكلى

العمود F للمعادلة الترتيب التكرارى السابقة

رؤوس الأعمدة فى السطر 10 وبداية البيانات من السطر 11 حتى 2000

[يوسف عطا]

عشمى أن تكون بخير أخى هانى ابو أدهم

[حسين شاكر]

شرح رائع اخى يوسف وفقك الله