tharwt قام بنشر أكتوبر 25, 2018 قام بنشر أكتوبر 25, 2018 (معدل) اولا عندى ملف بة درجات طلاب تم استخراج العشره الاوائل عن طريق الدالة Rank اريد ان اكتب فى حقل اخر الترتيب بـ العربى مثلاً رقم 1 تكتب الاول 2 الثانى 3 الثالث بالعربى الى اخر النتيجة ارجو الاجابة او ارشادى ماذا افعل ولكم وللمنتدى العظيم هذا الشكر والتقدير تم تعديل أكتوبر 25, 2018 بواسطه tharwt
سليم حاصبيا قام بنشر أكتوبر 25, 2018 قام بنشر أكتوبر 25, 2018 يمكنك الاستعانة بهذا الملف Salim's Order.xlsm 2
Ali Mohamed Ali قام بنشر أكتوبر 25, 2018 قام بنشر أكتوبر 25, 2018 رائع استاذ سليم بارك الله فيك وجعله فى ميزان حسناتك 1
tharwt قام بنشر أكتوبر 25, 2018 الكاتب قام بنشر أكتوبر 25, 2018 (معدل) عمل رائع ولكن بعد المائة يعطى نتيجة الرقم كبير فارجو التعديل علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طالب فارجو منكم التعديل فى اقرب فرصة وللكم جزيل الشكر مرفق ملف الترتيب.xlsx تم تعديل أكتوبر 25, 2018 بواسطه tharwt
سليم حاصبيا قام بنشر أكتوبر 25, 2018 قام بنشر أكتوبر 25, 2018 10 دقائق مضت, tharwt said: عمل رائع ولكن بعد المائة يعطى نتيجة الرقم كبير فارجو التعديل علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طالب فارجو منكم التعديل فى اقرب فرصة وللكم جزيل الشكر مرفق ملف الترتيب.xlsx في بداية المشاركة كنت تريد الترتيب حتى الرقم 10 و انت مقتنع بهذا الأمر أعطيتك حتى 100 (ماذا جرى ولما الترتيب حتى 500 ) هذا ليس بالأمر السهل اعادة كتابة الدالة المعرفة من جديد
tharwt قام بنشر أكتوبر 25, 2018 الكاتب قام بنشر أكتوبر 25, 2018 عمل رائع ولكن بعد المائة ويعطى نتيجة الرقم كبير فارجو التعديل علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طال فارجو منكم التعديل فى اقرب فرصة وللكم جزيل الشكر مرفق ملف لا اقصد الطمع ولكن ان اعمل فى معهد خاص بالفرق التدريبية ويمكن ان يصل بالفرقة الواحده الى 400 او 500 اعرف بان كتابة الدالة ليس بالامر السهل اخى الكريم ولكن متطلبات العمل الذى انا بة تحتم على ذلك سيدى الفاضل اذا كان تعب عليل فان متنازل عنها تمام واشكر تعبك الذى لا يضيع معى بل اقدرة وادعو لك واشكرك وهذا تقديرى لك واشكر سعة صدرك معى
tharwt قام بنشر أكتوبر 25, 2018 الكاتب قام بنشر أكتوبر 25, 2018 عمل رائع ولكن بعد المائة ويعطى نتيجة الرقم كبير فارجو التعديل علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طال فارجو منكم التعديل فى اقرب فرصة وللكم جزيل الشكر مرفق ملف لا اقصد الطمع ولكن ان اعمل فى معهد خاص بالفرق التدريبية ويمكن ان يصل بالفرقة الواحده الى 400 او 500 شاكر مجهود ولكن عند فتح الملف يعطى رسالة " هل تريد تحديث الملف مرف الصور
tharwt قام بنشر أكتوبر 25, 2018 الكاتب قام بنشر أكتوبر 25, 2018 عمل رائع ولكن بعد المائة ويعطى نتيجة الرقم كبير فارجو التعديل علماً بانة ممكن يكون عدد الطلاب يصل الى 500 طال فارجو منكم التعديل فى اقرب فرصة وللكم جزيل الشكر مرفق ملف لا اقصد الطمع ولكن ان اعمل فى معهد خاص بالفرق التدريبية ويمكن ان يصل بالفرقة الواحده الى 400 او 500 تم الضغط على تحديث تعطى
سليم حاصبيا قام بنشر أكتوبر 26, 2018 قام بنشر أكتوبر 26, 2018 جرب هذه الكود 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 1
tharwt قام بنشر أكتوبر 26, 2018 الكاتب قام بنشر أكتوبر 26, 2018 عزيزى الاستاذ سليم غير قادر على الشكر غير قادر على ان اقول كلمة شكر لسانى عاجز بالوفاء لك بكلمات الشكر والعرفان الملف الاخير مش تمام وبس دة مليار تمام اشكرك اشكرك استاذى الكبير اكثر من رائع وجميل ودعائى لك ان الله يزيدك ويعطيك اكثر مما تطلب وتتوقع الله يحفظك
tharwt قام بنشر نوفمبر 6, 2018 الكاتب قام بنشر نوفمبر 6, 2018 عزيزى الاستاذ سليم غير قادر على الشكر غير قادر على ان اقول كلمة شكر لسانى عاجز بالوفاء لك بكلمات الشكر والعرفان الملف الاخير مش تمام وبس دة مليار تمام اشكرك اشكرك استاذى الكبير اكثر من رائع وجميل ودعائى لك ان الله يزيدك ويعطيك اكثر مما تطلب وتتوقع الله يحفظك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.