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

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

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

بواسطه احمد الشوكاني
في منتدى الاكسيل Excel

 مشاركة

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

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

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

قام بنشر
قام بنشر

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

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

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

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

الاول.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

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

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

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

سليم حاصبيا

سليم حاصبيا

قام بنشر
قام بنشر

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

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

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

tartib for printing salim.rar

  • Like 1
احمد الشوكاني

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

قام بنشر
  • الكاتب
قام بنشر

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

بن علية حاجي

بن علية حاجي

قام بنشر
قام بنشر

السلام عليكم

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

بن علية حاجي

tartib for printing salim.rar

  • Like 3
سليم حاصبيا

سليم حاصبيا

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

السلام عليكم

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

بن علية حاجي

tartib for printing salim.rar

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

 

 

  • Like 1
سليم حاصبيا

سليم حاصبيا

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

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

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

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

 

  • Like 2
زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع
×
×
  • اضف...

Important Information

  I accept