اذهب الي المحتوي
أوفيسنا

ترتيب العشره الاوائل فى النتيجة


tharwt

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

اولا عندى ملف بة درجات طلاب  تم استخراج العشره الاوائل عن طريق الدالة Rank اريد ان اكتب فى حقل اخر  الترتيب  بـ  العربى  مثلاً رقم 1 تكتب  الاول    2  الثانى   3  الثالث  بالعربى   الى اخر النتيجة  ارجو الاجابة او ارشادى ماذا افعل ولكم وللمنتدى العظيم هذا  الشكر والتقدير  

تم تعديل بواسطه tharwt
رابط هذا التعليق
شارك

عمل رائع ولكن بعد المائة  يعطى نتيجة  الرقم كبير  فارجو التعديل  علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طالب فارجو منكم التعديل فى اقرب فرصة  وللكم جزيل الشكر  مرفق ملف

الترتيب.xlsx

تم تعديل بواسطه tharwt
رابط هذا التعليق
شارك

10 دقائق مضت, tharwt said:

عمل رائع ولكن بعد المائة  يعطى نتيجة  الرقم كبير  فارجو التعديل  علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طالب فارجو منكم التعديل فى اقرب فرصة  وللكم جزيل الشكر  مرفق ملف

الترتيب.xlsx

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

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

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

عمل رائع ولكن بعد المائة  ويعطى نتيجة  الرقم كبير  فارجو التعديل  علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طال فارجو منكم التعديل فى اقرب فرصة  وللكم جزيل الشكر  مرفق ملف

 

لا اقصد الطمع ولكن ان اعمل فى معهد خاص  بالفرق التدريبية ويمكن ان يصل بالفرقة الواحده الى 400  او 500   

اعرف بان كتابة الدالة ليس بالامر السهل اخى الكريم ولكن متطلبات العمل الذى انا بة تحتم على ذلك  سيدى الفاضل اذا كان تعب عليل فان متنازل عنها تمام  واشكر تعبك الذى لا يضيع معى بل اقدرة وادعو لك  واشكرك   وهذا تقديرى لك  واشكر سعة صدرك معى 

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

عمل رائع ولكن بعد المائة  ويعطى نتيجة  الرقم كبير  فارجو التعديل  علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طال فارجو منكم التعديل فى اقرب فرصة  وللكم جزيل الشكر  مرفق ملف

 

لا اقصد الطمع ولكن ان اعمل فى معهد خاص  بالفرق التدريبية ويمكن ان يصل بالفرقة الواحده الى 400  او 500   

شاكر مجهود ولكن عند فتح الملف يعطى رسالة " هل تريد تحديث الملف  مرف الصور 

Capture1.PNG

Capture2.PNG

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

عمل رائع ولكن بعد المائة  ويعطى نتيجة  الرقم كبير  فارجو التعديل  علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طال فارجو منكم التعديل فى اقرب فرصة  وللكم جزيل الشكر  مرفق ملف

 

لا اقصد الطمع ولكن ان اعمل فى معهد خاص  بالفرق التدريبية ويمكن ان يصل بالفرقة الواحده الى 400  او 500   

تم الضغط على تحديث تعطى 

Capture2.PNG

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

جرب هذه الكود

Option Explicit
'Created By Salim Hasbaya 25/10/2018
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)
      'Created By Salim Hasbaya 25/10/2018
 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 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

الملف مرفق

 

order_up_to_1000.xlsm

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

عزيزى الاستاذ  سليم   غير قادر على الشكر غير قادر على ان اقول كلمة شكر لسانى عاجز بالوفاء لك بكلمات الشكر والعرفان  الملف الاخير  مش تمام وبس  دة مليار تمام اشكرك اشكرك  استاذى الكبير  اكثر من رائع وجميل   ودعائى لك ان الله يزيدك ويعطيك اكثر مما تطلب وتتوقع الله يحفظك    

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

  • 2 weeks later...

عزيزى الاستاذ  سليم   غير قادر على الشكر غير قادر على ان اقول كلمة شكر لسانى عاجز بالوفاء لك بكلمات الشكر والعرفان  الملف الاخير  مش تمام وبس  دة مليار تمام اشكرك اشكرك  استاذى الكبير  اكثر من رائع وجميل   ودعائى لك ان الله يزيدك ويعطيك اكثر مما تطلب وتتوقع الله يحفظك    

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information