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

[يوسف عطا]

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

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

  في 25‏/7‏/2012 at 17:19, يوسف عطا said:

  في 15‏/7‏/2012 at 21:35, هانى ابو ادهم said:

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

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

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

hany.rar

  في 18‏/7‏/2012 at 19:55, هانى ابو ادهم said:

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

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

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

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

[يوسف عطا]

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

[حسين شاكر]

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