اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

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

  • Like 2
رابط هذا التعليق
شارك

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:

 

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

رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

اخى الكريم asdhamdey

منذ ساعه, asdhamdey said:

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

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

من فضلك

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information