ترتيب الطلاب على الصف

[احمد الشوكاني]

السلام عليكم ورحمة الله وبركاته 

اريد ترتيب الطلاب على الصف انا استخدمت دالة RANK اعطاني ترتيب الارقام 

وانا اريد ان يكون الترتيب حروف ابجدية مثل الاول - الثاني - الثالث وهكذا الى آخر الصف انا ارسل لكم الملف

بارك الله فيكم 

الاول.rar

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

جرب هذا الملف

 

Degree Salim.rar

[احمد الشوكاني]

بارك الله فيك اخي سليم  كنت اريد الترتيب الصف الطلاب كامل ليس العشرة الاوائل 

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

6 ساعات مضت, احمد الشوكاني said:

بارك الله فيك اخي سليم  كنت اريد الترتيب الصف الطلاب كامل ليس العشرة الاوائل 

جرب هذا الملف

Degree for_class.rar

[احمد الشوكاني]

احسنت بارك الله فيك اخي ومشكور

لما انسخ الدالة الى ملف آخر ما تطلع معي ترتيب الطلاب ارسل لك الملف   

 

 

الرابع.rar

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

كي تعمل الدالة يجب وضع هذا الماكرو في مودول مستقل ثم استعمال الدالة

الماكرو

Option Explicit

Function Order_Salim(cel#)
Dim degree$, i%, My_num1%, My_num2%
Dim aHad$, Asharat$
If Not IsNumeric(cel) Then Order_Salim = "N/A": Exit Function

cel = Abs(cel): cel = Int(cel)
Dim deg1$, deg2$, deg3$, deg4$, deg5$, deg6$, deg7$, deg8$, deg9$, deg10$
   deg1 = "الأوّل": deg2 = "الثّاني": deg3 = "الثّالث": deg4 = "الرّابع"
   deg5 = "الخامس": deg6 = "السّادس": deg7 = "السّابع": deg8 = "الثّامن": deg9 = "التّاسع": deg10 = "العاشر"
Dim deg01$, deg02$, deg03$, deg04$, deg05$, deg06$, deg07$, deg08$, deg09$
    deg01 = "عشر": deg02 = "والعشرون": deg03 = "والثّلاثون": deg04 = "والأربعون": deg05 = "والخمسون"
    deg06 = "والستون": deg07 = "والسّبعون": deg08 = "والثّمانون": deg09 = "والتّسعون"
    If cel < 11 Then
    Select Case cel
            Case Is = 1:   degree = deg1
            Case Is = 2:   degree = deg2
            Case Is = 3:   degree = deg3
            Case Is = 4:   degree = deg4
            Case Is = 5:   degree = deg5
            Case Is = 6:   degree = deg6
            Case Is = 7:   degree = deg7
            Case Is = 8:   degree = deg8
            Case Is = 9:   degree = deg9
            Case Is = 10: degree = deg10
    End Select
Order_Salim = degree: Exit Function
Else
  My_num1 = Mid(cel, 2, 1)
  '===========================
  Select Case My_num1
                           
        '=======================
            Case Is = 1:   aHad = "الحادي"
            Case Is = 2:  aHad = deg2
            Case Is = 3:   aHad = deg3
            Case Is = 4:   aHad = deg4
            Case Is = 5:   aHad = deg5
            Case Is = 6:   aHad = deg6
            Case Is = 7:  aHad = deg7
            Case Is = 8:  aHad = deg8
            Case Is = 9:  aHad = deg9

  End Select
  '======================
    My_num2 = Mid(cel, 1, 1)
  Select Case My_num2
            Case Is = 1:   Asharat = deg01
            Case Is = 2:   Asharat = deg02
             Case Is = 3:   Asharat = deg03
             Case Is = 4:   Asharat = deg04
             Case Is = 5:   Asharat = deg05
             Case Is = 6:   Asharat = deg06
             Case Is = 7:   Asharat = deg07
            Case Is = 8:    Asharat = deg08
            Case Is = 9:    Asharat = deg09

    End Select
  
     If My_num1 = 0 Then
        Order_Salim = Right(aHad & " " & Asharat, Len(aHad & " " & Asharat) - 2)
        Else
        Order_Salim = aHad & " " & Asharat
    End If
  End If
End Function

الملف مرفق

 

الرابع Salim.rar

[احمد الشوكاني]

حفظك الله اخي سليم 

انا ممتدا في تعليم الاكسل ما عندي خلفية في الماكرو 

[احمد الشوكاني]

اخي سليم تقدر تعمل لطالب مكرر  

مثل الاول - الاول مكرر وهكذا الى آخر الصف 

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

يمكن عمل ذلك

 

الرابع Salim with repitition.rar

[ظفر الله عسكر]

ترتيب دون ماكرو.zip

[احمد الشوكاني]

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

[احمد الشوكاني]

اريد فرز الطلاب مثل الاول - الثاني - الثالث وهكذا الى آخر الصف ان يكون ترتيب الطلاب وجزاكم الله خيراً

[احمد الشوكاني]

للرفع

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

تم معالجة الامر

 

الرابع Salim with repitition_sorting.rar

[احمد الشوكاني]

شكرا اخي سليم ربنا يعطيك العافية 

[احمد الشوكاني]

اخي سليم المعذرة كثرة عليك الاسئلة 

ما تفعل معي الطلاب كامل ارسل لك الملف 

اشي الثاني اريد اخراج الطلاب مع علاماتهم في الطباعة يكون مرتب مثل الاول - الثاني - الثالث وهكذا  لأني استخدمت دمج المراسلات 

ترتيب الطلاب ابجدي في الطباعة.rar

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

استبدل الرقم 36 بالرقم 52 (الذي هو رقم الصف لاخر طالب  في الجدول) في كل المعادلات

بالنسية لدمج المرسلات انسخ البيانات المطلوبة الى صفحة اخرى و اجعل هذه الصفحة(الاخرى) مصدراً لدمج المرسلات

الملف مرفق و هو يقوم اوتوماتيكياً بادراج المعادلات اللازمة حسب عدد الطلاب مع نسخ المعاومات المطلوبة الى الورقة 2

tartib for printing salim.rar

[احمد الشوكاني]

اخي سليم اخرجت حوالي 500 شهادة للطلاب حصل في خطاء في ترتيب الطلاب مثل جاء الطالب الرابع والطالب الآخر ياتي الرابع بس العلامات تختلف بينهم 20 علامة  واحيانا اذا جاء الطالب الرابع ما يذكر الخامس يذكر السادس 

[بن علية حاجي]

السلام عليكم

تم التعديل على معادلات عمود "المراتب" في ملف أخي سليم الأخير حتى لا يكون تجاوز لبعض الرتب في حالات تكرارات الرتب التي تسبقها... أرجو أن يكون هو المطلوب...

بن علية حاجي

tartib for printing salim.rar

[احمد الشوكاني]

جزاك الله خير بن علية الحاجي بس باقي المكرر للطلاب مثلا الاول -الاول مكرر الى اخر الصف لوتعدل الملف بارك الله فيكم 

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

4 ساعات مضت, بن علية حاجي said:

السلام عليكم

تم التعديل على معادلات عمود "المراتب" في ملف أخي سليم الأخير حتى لا يكون تجاوز لبعض الرتب في حالات تكرارات الرتب التي تسبقها... أرجو أن يكون هو المطلوب...

بن علية حاجي

tartib for printing salim.rar

شكراً اخي بن علية على هذه المعادلة الرائعة 

 

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

1 ساعه مضت, احمد الشوكاني said:

جزاك الله خير بن علية الحاجي بس باقي المكرر للطلاب مثلا الاول -الاول مكرر الى اخر الصف لوتعدل الملف بارك الله فيكم 

هذه المعادلة في AE2

=IF(X2="","",IF(COUNTIF($AD$2:AD2,AD2)=1,Order_Salim(AD2),Order_Salim(AD2)&" مكرر : "&COUNTIF($AD$2:AD2,AD2)-1))

 

[احمد الشوكاني]

تقدر اخي سليم تسوي لي في الملف اذا امكن جزاك الله خيرا

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

25 دقائق مضت, احمد الشوكاني said:

تقدر اخي سليم تسوي لي في الملف اذا امكن جزاك الله خيرا

تفضل يا سيدي

 

tartib for printing final.rar

[احمد الشوكاني]

بارك الله فيك اخي سليم