ترتيب الطلاب حسب المعدل بالحروف

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

اخواني الاعزاء اريد منكم أن تساعدوني في ترتيب الطلاب حسب المعدل بالحروف مثل الاول - الثاني - الثالث وهكذا ارسل لكم الملف

ترتيب الطلاب.rar

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

لك ما تريد

 

ترتيب الطلاب _salim.xlsm

[Ali Mohamed Ali]

احسنت استاذ سليم بارك الله فيك

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

بارك الله فيك أخي واستاذي سليم حاصبيا نسأل الله أن يوفقك ويسدد خطاك 

لو سمحت اريد ان يكون الطالب مكرر مثلا ألاول ألاول مكرر مثلا عندي تاسع تاسع مكرر بارك الله فيك 

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

تم التعديل على الملف كما تريد

تم ايضاً جماية المعادلات لعدم العبث بها عن طريق الخطأ

 

ترتيب الطلاب _salim (2).xlsm

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

الله يسعدك كلمة مكرر اريد ان يكون عربي فتحت الملف اجاء هذا (Dupliate) 

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

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

الله يسعدك كلمة مكرر اريد ان يكون عربي فتحت الملف اجاء هذا (Dupliate) 

تم التعديل

 

 

ترتيب الطلاب _salim (3).xlsm

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

سامحنا كثرنا عليك الاسئلة عندي شهادة بالوورد المحصلة حق المواد مثلا 16 يكون حروف ستة عشر وهكذا ارسلك الملف عليه لون  تنظر اليه كنت ارسلك الشهادة لاكن ما تحمل معي يقول ان الملف كبير 

ترتيب الطلاب _salim (3).rar

[احمد بدره]

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

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

منذ ساعه, ahmedkamelelsayed0 said:

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

نوجد دالة مغرفة للعدد حتى رقم 1000

اليك الكود لهذا الامر

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
 If cel = 100 Then
  Order_Salim = "المائة": Exit Function
 End If
 If cel > 100 Then
  Order_Salim = "too Big Number": Exit Function
 End If
cel = Int(Abs(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
       '===========================================================
 Function OrdeUP100(cel)
 If Not IsNumeric(cel) Or Int(cel) <> cel Or Int(cel) <= 0 Then
 OrdeUP100 = "ERROR": Exit Function
 End If
 If cel = 1000 Then OrdeUP100 = "الألف": Exit Function
 If cel > 1000 Then OrdeUP100 = "Too Large Integer": Exit Function
 Dim x, y
 Dim Mi3at, Free, Martab1
  If cel <= 99 Then OrdeUP100 = Order_Salim(cel): Exit Function
   Select Case Left(cel, 1)
  Case Is = 1: Mi3at = "مئة"
  Case Is = 2: Mi3at = "مئتين"
  Case Is = 3: Mi3at = "ثلاثمائة"
  Case Is = 4: Mi3at = "أربعمئة"
  Case Is = 5: Mi3at = "خمسمئة"
  Case Is = 6: Mi3at = "ستمئة"
  Case Is = 7: Mi3at = "سبعمئة"
  Case Is = 8: Mi3at = "ثمانمئة"
  Case Is = 9: Mi3at = "تسعمئة"
  End Select
  If Mid(cel, 2, 1) = 0 Then
     Free = Right(cel, 1)
      Select Case Free
       Case 0: Martab1 = ""
       Case 1: Martab1 = " وواحد"
       Case 2: Martab1 = "وإثنين"
       Case 3: Martab1 = "وثلاثة"
       Case 4: Martab1 = "وأربعة"
       Case 5: Martab1 = "وخمسة"
       Case 6: Martab1 = "وستة"
       Case 7: Martab1 = "وسبعة"
       Case 8: Martab1 = "وثمانية"
       Case 9: Martab1 = "وتسعة"
      End Select
      OrdeUP100 = Mi3at & " " & Martab1: Exit Function
      End If

OrdeUP100 = Mi3at & " و" & Order_Salim(Mid(cel, 2, 2) * 1)

 End Function

استعمال الدالة                     ( العدد ) Function OrdeUP100 

الملف مرفق

order_up_to_100.xlsm

[احمد بدره]

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

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

السلام عليكم 

جزاك الله خير لو تكرمت ادخال تقدير الطالب مثل  ضعيف - مقبول - جيد - جيد جدا - ممتاز موجود في الملف 

واريد ان يكون الجدول الى 300 طالب مفعل الله يبارك فيك ارسل لك الملف  

ترتيب الطلاب _salim (3).rar

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

في ٢٤‏/١‏/٢٠١٩ at 10:56, احمد الشوكاني said:

السلام عليكم 

جزاك الله خير لو تكرمت ادخال تقدير الطالب مثل  ضعيف - مقبول - جيد - جيد جدا - ممتاز موجود في الملف 

واريد ان يكون الجدول الى 300 طالب مفعل الله يبارك فيك ارسل لك الملف  

ترتيب الطلاب _salim (3).rar

اريد اعدل على هذا الملف  مقبول - جيد - جيد جدا - ممتاز موجود في الملف 

واريد ان يكون الجدول الى 300 طالب مفعل الله يبارك فيك ارسل لك الملف

ترتيب الطلاب _salim (3)1111.rar

[احمد بدره]

تفضل المطلوب

ترتيب الطلاب _salim (3)1111.rar

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

تم تفعيل الجدول لغاية المرتبة 1000

 

ترتيب الطلاب _Up_100.xlsm

[Ali Mohamed Ali]

عمل رائع استاذ سليم بارك الله فيك

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

بارك الله فيكم الاخ سليم والاخ علي كنت اريد ان يكون تقدير الطلاب في النسبة المؤية ليس في كل مادة تقدير الطلاب  

وياريت أن تعدلوا النسبة المؤية الى 50% مثلا 68% يكون نصف 34% وهكذا الى آخر اريد اعمل على الشهادة الموجود في الملف  

ترتيب الطلاب _salim (3)1111.xlsm

اخطار بنتيجة الفصل الاول2019.docx

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

بارك الله فيك يكون التقدير الطالب في العمود اللون الاحمر .

يكون عدد الطلاب في الجدول الى 200 طالب او كثر بارك الله فيكم   

تم تعديل يناير 24, 2019 بواسطه احمد الشوكاني

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

في ٢٤‏/١‏/٢٠١٩ at 15:58, ahmedkamelelsayed0 said:

تفضل المطلوب

ترتيب الطلاب _salim (3)1111.rar

بارك الله فيك أخي احمد كنت اريد ان يكون تقدير الطلاب في النسبة المؤية ليس في كل مادة تقدير الطلاب  

وياريت أن تعدلوا النسبة المؤية الى 50% مثلا 68% يكون نصف 34% وهكذا الى آخر اريد اعمل على الشهادة الموجود في الملف على شان اعمله دمج مراسلات لو تحاولوا باسرع وقت على شان توزيع النتائج بكرة السبت بارك الله فيكم انت واخي سليم حاصبيا

اخطار بنتيجة الفصل الاول2019.docx

ترتيب الطلاب _salim (3)1111.xlsm

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

في ٢٤‏/١‏/٢٠١٩ at 21:28, احمد الشوكاني said:

بارك الله فيكم الاخ سليم  كنت اريد ان يكون تقدير الطلاب في النسبة المؤية ليس في كل مادة تقدير الطلاب اريده ان يكون في العمود اللون الاحمر  

وياريت أن تعدلوا النسبة المؤية الى 50% مثلا 68% يكون نصف 34% وهكذا الى آخر اريد اعمل على الشهادة الموجود في الملف  

ترتيب الطلاب _salim (3)1111.xlsm

اخطار بنتيجة الفصل الاول2019.docx

اسمحلي استاذي سليم على كثرة الاسئلة اريد تهتم بالموضوع جزاك الله حير وسدد خطاك 

أخي واستاذي سليم حاصبيا  

[احمد بدره]

أولاً تعديل السنبة المئوية لا يسبب أي قلل لأن النسبة مؤخوذة من الدرجات والتقدير مؤخوذ من الدرجات

ثانيًا لا داعي لعمل دمج مراسلات فالإكسيل  يقوم ذلك

ثالثًا  إليك الملف بعد التعديل

ترتيب الطلاب _salim (3)1111.xlsm

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

في ٢٤‏/١‏/٢٠١٩ at 21:28, احمد الشوكاني said:

 

 

في ٢٥‏/١‏/٢٠١٩ at 22:42, ahmedkamelelsayed0 said:

أولاً تعديل السنبة المئوية لا يسبب أي قلل لأن النسبة مؤخوذة من الدرجات والتقدير مؤخوذ من الدرجات

ثانيًا لا داعي لعمل دمج مراسلات فالإكسيل  يقوم ذلك

ثالثًا  إليك الملف بعد التعديل

ترتيب الطلاب _salim (3)1111.xlsm

بارك الله فيك أخي واستاذي أحمد عمل طيب الله يسعدك وسهلت عليا كثير 

بس في ملاحظة عندي في الصف مثلا 80 طالب عندما ادخل في الشيت ما يتفعل كامل يتفعل الى 20 طالب اريد ان يكون الجدول او اشيت الى 200 او اكثر 

ايضا الشهادة تكون الورقة A4  عرض لو تكرمت تعدل لي وسامحني اذا كثرت عليك، ارسل لك الشهادة تكون نفس المعلومات وايضا تقدير الطالب مثلا الاول الاول مكرر وهكذا عندك في شيت تاسع تاسع لازم يكون مكرر 

ايضا رقم الجلوس ما في داعي احذفه بارك الله فيك وسدد خطاك

ايضا يطلع في تقدير الطالب (( دون المستوى )) ماريد ان يكون دون مستوى اريد ان يكون مقبول - جيد - جيد جدا - ممتاز  بارك الله فيك 

 

 

اخطار بنتيجة الفصل الاول2019.docx

تم تعديل يناير 25, 2019 بواسطه احمد الشوكاني

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

للرفع

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

للرفع

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

للرفع