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

[الأستاذ / محمد الدسوقى]

الأخوة الأفاضل عشاق الإكسيل ... كل عام وأنتم بخير ...

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

بناء على عدة شروط وهى كالتالى :

1) الأكبر مجموعا

2) فى حالة تساوى المجموع فيكون الأصغر سنا

3) فى حالة تساوى المجموع والسن فيكون الترتيب الأبجدى

.. ولكم جزيل الشكر ...... ( خيركم من تعلم العلم وعلمه )

مرفق ملف يوضح المشكلة فرجاء الحل سريعا

استخراج الأوائل.rar

[ابو عبدالبارى]

اخى الأستاذ / محمد الدسوقى

ارجو ان يفى الملف التالى بالغرض

 

abo_abary_حساب الفترة بين تاريخين.rar

[الأستاذ / محمد الدسوقى]

أخى الفاضل / الأستاذ أبو عبد البارى

شكرا لتفضلك بمتابعة الموضوع ولكن ذلك ليس المطلوب من الملف

المطلوب هو استخراج العشرة الأوائل على مستوى المدرسة فى الصف الدراسى

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

[ابو عبدالبارى]

9 ساعات مضت, الأستاذ / محمد الدسوقى said:

أخى الفاضل / الأستاذ أبو عبد البارى

شكرا لتفضلك بمتابعة الموضوع ولكن ذلك ليس المطلوب من الملف

المطلوب هو استخراج العشرة الأوائل على مستوى المدرسة فى الصف الدراسى

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

الأخ الكريم الأستاذ / محمد الدسوقى

عذرا لأرفاق ملف خطأ وهذا هو الملف المطلوب

 

abo_abary_استخراج الأوائل.rar

[asdhamdey]

Sub mh1()


Application.GoTo Reference:="mh"
    Selection.Sort Key1:=Range("q9"), Order1:=xlDescending, Key2:=Range( _
        "t9"), Order2:=xlDescending, Key3:=Range("p9"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
Range("a1").Select
End Sub

ربنا يجزيك خيرا  استاذ ابو عبد الباري

 

16 ساعات مضت, ابو عبدالبارى said:

abo_abary_استخراج الأوائل.rar

 

هل يمكن الاتيان بالعشره الاوائل في المواد ايضا

[ابو عبدالبارى]

7 ساعات مضت, asdhamdey said:

Sub mh1()


Application.GoTo Reference:="mh"
    Selection.Sort Key1:=Range("q9"), Order1:=xlDescending, Key2:=Range( _
        "t9"), Order2:=xlDescending, Key3:=Range("p9"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
Range("a1").Select
End Sub

ربنا يجزيك خيرا  استاذ ابو عبد الباري

 

 

هل يمكن الاتيان بالعشره الاوائل في المواد ايضا

جرب الملف التالى لعلة يفى بالغرض

 

abo_abary_ استخراج الأوائل بالمواد.rar

[asdhamdey]

استاذ ابو عبد الباري

انت بحق متميز في حلولك التي تمتاز بجمال الرونق ودقه الحل مع السهوله

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

 

[ابو عبدالبارى]

اخى الكريم asdhamdey

منذ ساعه, asdhamdey said:

استاذ ابو عبد الباري

انت بحق متميز في حلولك التي تمتاز بجمال الرونق ودقه الحل مع السهوله

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

 

مشكور لكلماتك الجميلة وبارك الله لنا فيك فى كل الأخوة فى هذا الصرح الشامخ

[الأستاذ / محمد الدسوقى]

أخى الفاضل / الأستاذ أبو عبد البارى

تعجز الكلمات عن شكرك فى سرعة الاجابة وحل المشكلة

وجعله الله فى ميزان حسانتك و جزاك الله خيرا

هل هناك معادلات بدلا من الكود لأنه لا يعمل فى الورقة المحمية بكلمة مرور

وإذ تفضلتم لى طلب أخير بشأن هذا الملف وهو ............

على فرض أن الخمسة طلاب الأوائل كانوا كالتالى ( الأول ـ الأول مكرر ـ الأول مكرر ، ... ، ... ، .. )

فيكون الطالب التالى فى الترتيب هو ( المركز  السادس ) وهذا من وجهة نظرى المتواضعة حرام فيجب أن يكون ترتيبه ( الثانى ) وليس ( السادس )

هذا والله أعلم

فهلا تفضلتم برأيكم ورأى الأعضاء الكرام بالمنتدى

[ابو عبدالبارى]

اخى الكريم الأستاذ / محمد الدسوقى

يمكن حماية الملف بالأكواد ثم فك الحماية قبل تنغيذ الكود وحماية الملف بعد تنفيذ الكود كما بالملف المرفق

 

abo_abary_ استخراج الأوائل بالمواد.rar

[asdhamdey]

Sub mh1()


Application.GoTo Reference:="mh"
    Selection.Sort Key1:=Range("al9"), Order1:=xlDescending, Key2:=Range( _
        "ao9"), Order2:=xlDescending, Key3:=Range("ak9"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
Range("a1").Select
End Sub

الاستاذ المحترم ابو عبد الباري يبدو انك ارفقت نفس الملف قبل اضافه الحمايه وفكها

انا من محبين اعمالك

الملف المرفق هات  العشره الاوائل للمجموع  مش هايشتغل صح

[ابو عبدالبارى]

4 ساعات مضت, asdhamdey said:

Sub mh1()


Application.GoTo Reference:="mh"
    Selection.Sort Key1:=Range("al9"), Order1:=xlDescending, Key2:=Range( _
        "ao9"), Order2:=xlDescending, Key3:=Range("ak9"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
Range("a1").Select
End Sub

الاستاذ المحترم ابو عبد الباري يبدو انك ارفقت نفس الملف قبل اضافه الحمايه وفكها

انا من محبين اعمالك

الملف المرفق هات  العشره الاوائل للمجموع  مش هايشتغل صح

الأخ العزيز  asdhamdey

الأخ العزيزالأستاذ / محمد الدسوقى

عذرا بارفاقى الملف الخطأ وارجو ان يفى الملف التالى بالغرض

abo_abary_استخراج الأوائل المواد.rar

[asdhamdey]

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

عند تغيير الخليه الخاصه بالماده لايتم التغيير والصفحه محميه

عند تغيير الباسوورد الموجود بالفيجوال  ياتي بخط اصفر عليها

 

[ابو عبدالبارى]

جرب الملف التالى

abo_abary_استخراج الأوائل المواد.rar

[asdhamdey]

في ١٩‏/٦‏/٢٠١٦ at 23:50, الأستاذ / محمد الدسوقى said:

على فرض أن الخمسة طلاب الأوائل كانوا كالتالى ( الأول ـ الأول مكرر ـ الأول مكرر ، ... ، ... ، .. )

فيكون الطالب التالى فى الترتيب هو ( المركز  السادس ) وهذا من وجهة نظرى المتواضعة حرام فيجب أن يكون ترتيبه ( الثانى ) وليس ( السادس )

40 دقائق مضت, asdhamdey said:

عند تغيير الباسوورد الموجود بالفيجوال  ياتي بخط اصفر عليها

 

من فضلك

[ابو عبدالبارى]

بالنسبة لموضوع ترتيب الطلبة دى قواعد الكنترول .

اما بتغيير الباس لابد أولا من فك الحماية من الملف بالباس القديم ثم اضافة الباس الجديد الى الكود

[الأستاذ / محمد الدسوقى]

أخى ومعلمى الأستاذ الفاضل / أبو عبد البارى

كالعادة تعجز الكلمات عن التعبير عن مدى شكرى وامتنانى بفضلك علىّ

زادك الله من علمه الذى تنفع به غيرك  ، وجعله فى ميزان حسانتك

وجزاك الله خيرا

وأشكر كل الخوة الأعضاء الذين شاركوا فى إثراء هذا الموضوع

[ابو عبدالبارى]

الأستاذ / محمد الدسوقى

شكرا لكلماتك الرقيقة قال رسول الله صل الله علية وسلم ( من كتم علماً اتى به مكبلاً يوم القيامه)