احمد الشوكاني قام بنشر يناير 23, 2019 قام بنشر يناير 23, 2019 اخواني الاعزاء اريد منكم أن تساعدوني في ترتيب الطلاب حسب المعدل بالحروف مثل الاول - الثاني - الثالث وهكذا ارسل لكم الملف ترتيب الطلاب.rar
احمد الشوكاني قام بنشر يناير 23, 2019 الكاتب قام بنشر يناير 23, 2019 بارك الله فيك أخي واستاذي سليم حاصبيا نسأل الله أن يوفقك ويسدد خطاك لو سمحت اريد ان يكون الطالب مكرر مثلا ألاول ألاول مكرر مثلا عندي تاسع تاسع مكرر بارك الله فيك
سليم حاصبيا قام بنشر يناير 23, 2019 قام بنشر يناير 23, 2019 تم التعديل على الملف كما تريد تم ايضاً جماية المعادلات لعدم العبث بها عن طريق الخطأ ترتيب الطلاب _salim (2).xlsm 2
احمد الشوكاني قام بنشر يناير 23, 2019 الكاتب قام بنشر يناير 23, 2019 الله يسعدك كلمة مكرر اريد ان يكون عربي فتحت الملف اجاء هذا (Dupliate)
سليم حاصبيا قام بنشر يناير 23, 2019 قام بنشر يناير 23, 2019 21 دقائق مضت, احمد الشوكاني said: الله يسعدك كلمة مكرر اريد ان يكون عربي فتحت الملف اجاء هذا (Dupliate) تم التعديل ترتيب الطلاب _salim (3).xlsm
احمد الشوكاني قام بنشر يناير 23, 2019 الكاتب قام بنشر يناير 23, 2019 سامحنا كثرنا عليك الاسئلة عندي شهادة بالوورد المحصلة حق المواد مثلا 16 يكون حروف ستة عشر وهكذا ارسلك الملف عليه لون تنظر اليه كنت ارسلك الشهادة لاكن ما تحمل معي يقول ان الملف كبير ترتيب الطلاب _salim (3).rar
احمد بدره قام بنشر يناير 23, 2019 قام بنشر يناير 23, 2019 رائع أستاذ سليم بارك الله فيك أستاذنا الفاضل وجعله في ميزان حساناتك وياريت تجعل تفقيط الترتيب يأخذ المئات حتى يعرف كل طالب ترتيبه
سليم حاصبيا قام بنشر يناير 23, 2019 قام بنشر يناير 23, 2019 منذ ساعه, 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 2
احمد الشوكاني قام بنشر يناير 24, 2019 الكاتب قام بنشر يناير 24, 2019 السلام عليكم جزاك الله خير لو تكرمت ادخال تقدير الطالب مثل ضعيف - مقبول - جيد - جيد جدا - ممتاز موجود في الملف واريد ان يكون الجدول الى 300 طالب مفعل الله يبارك فيك ارسل لك الملف ترتيب الطلاب _salim (3).rar
احمد الشوكاني قام بنشر يناير 24, 2019 الكاتب قام بنشر يناير 24, 2019 في ٢٤/١/٢٠١٩ at 10:56, احمد الشوكاني said: السلام عليكم جزاك الله خير لو تكرمت ادخال تقدير الطالب مثل ضعيف - مقبول - جيد - جيد جدا - ممتاز موجود في الملف واريد ان يكون الجدول الى 300 طالب مفعل الله يبارك فيك ارسل لك الملف ترتيب الطلاب _salim (3).rar اريد اعدل على هذا الملف مقبول - جيد - جيد جدا - ممتاز موجود في الملف واريد ان يكون الجدول الى 300 طالب مفعل الله يبارك فيك ارسل لك الملف ترتيب الطلاب _salim (3)1111.rar
احمد بدره قام بنشر يناير 24, 2019 قام بنشر يناير 24, 2019 تفضل المطلوب ترتيب الطلاب _salim (3)1111.rar
سليم حاصبيا قام بنشر يناير 24, 2019 قام بنشر يناير 24, 2019 تم تفعيل الجدول لغاية المرتبة 1000 ترتيب الطلاب _Up_100.xlsm 1
احمد الشوكاني قام بنشر يناير 24, 2019 الكاتب قام بنشر يناير 24, 2019 بارك الله فيكم الاخ سليم والاخ علي كنت اريد ان يكون تقدير الطلاب في النسبة المؤية ليس في كل مادة تقدير الطلاب وياريت أن تعدلوا النسبة المؤية الى 50% مثلا 68% يكون نصف 34% وهكذا الى آخر اريد اعمل على الشهادة الموجود في الملف ترتيب الطلاب _salim (3)1111.xlsm اخطار بنتيجة الفصل الاول2019.docx
احمد الشوكاني قام بنشر يناير 24, 2019 الكاتب قام بنشر يناير 24, 2019 (معدل) بارك الله فيك يكون التقدير الطالب في العمود اللون الاحمر . يكون عدد الطلاب في الجدول الى 200 طالب او كثر بارك الله فيكم تم تعديل يناير 24, 2019 بواسطه احمد الشوكاني
احمد الشوكاني قام بنشر يناير 25, 2019 الكاتب قام بنشر يناير 25, 2019 في ٢٤/١/٢٠١٩ at 15:58, ahmedkamelelsayed0 said: تفضل المطلوب ترتيب الطلاب _salim (3)1111.rar بارك الله فيك أخي احمد كنت اريد ان يكون تقدير الطلاب في النسبة المؤية ليس في كل مادة تقدير الطلاب وياريت أن تعدلوا النسبة المؤية الى 50% مثلا 68% يكون نصف 34% وهكذا الى آخر اريد اعمل على الشهادة الموجود في الملف على شان اعمله دمج مراسلات لو تحاولوا باسرع وقت على شان توزيع النتائج بكرة السبت بارك الله فيكم انت واخي سليم حاصبيا اخطار بنتيجة الفصل الاول2019.docx ترتيب الطلاب _salim (3)1111.xlsm
احمد الشوكاني قام بنشر يناير 25, 2019 الكاتب قام بنشر يناير 25, 2019 في ٢٤/١/٢٠١٩ at 21:28, احمد الشوكاني said: بارك الله فيكم الاخ سليم كنت اريد ان يكون تقدير الطلاب في النسبة المؤية ليس في كل مادة تقدير الطلاب اريده ان يكون في العمود اللون الاحمر وياريت أن تعدلوا النسبة المؤية الى 50% مثلا 68% يكون نصف 34% وهكذا الى آخر اريد اعمل على الشهادة الموجود في الملف ترتيب الطلاب _salim (3)1111.xlsm اخطار بنتيجة الفصل الاول2019.docx اسمحلي استاذي سليم على كثرة الاسئلة اريد تهتم بالموضوع جزاك الله حير وسدد خطاك أخي واستاذي سليم حاصبيا
احمد بدره قام بنشر يناير 25, 2019 قام بنشر يناير 25, 2019 أولاً تعديل السنبة المئوية لا يسبب أي قلل لأن النسبة مؤخوذة من الدرجات والتقدير مؤخوذ من الدرجات ثانيًا لا داعي لعمل دمج مراسلات فالإكسيل يقوم ذلك ثالثًا إليك الملف بعد التعديل ترتيب الطلاب _salim (3)1111.xlsm 1
احمد الشوكاني قام بنشر يناير 25, 2019 الكاتب قام بنشر يناير 25, 2019 (معدل) في ٢٤/١/٢٠١٩ at 21:28, احمد الشوكاني said: في ٢٥/١/٢٠١٩ at 22:42, ahmedkamelelsayed0 said: أولاً تعديل السنبة المئوية لا يسبب أي قلل لأن النسبة مؤخوذة من الدرجات والتقدير مؤخوذ من الدرجات ثانيًا لا داعي لعمل دمج مراسلات فالإكسيل يقوم ذلك ثالثًا إليك الملف بعد التعديل ترتيب الطلاب _salim (3)1111.xlsm بارك الله فيك أخي واستاذي أحمد عمل طيب الله يسعدك وسهلت عليا كثير بس في ملاحظة عندي في الصف مثلا 80 طالب عندما ادخل في الشيت ما يتفعل كامل يتفعل الى 20 طالب اريد ان يكون الجدول او اشيت الى 200 او اكثر ايضا الشهادة تكون الورقة A4 عرض لو تكرمت تعدل لي وسامحني اذا كثرت عليك، ارسل لك الشهادة تكون نفس المعلومات وايضا تقدير الطالب مثلا الاول الاول مكرر وهكذا عندك في شيت تاسع تاسع لازم يكون مكرر ايضا رقم الجلوس ما في داعي احذفه بارك الله فيك وسدد خطاك ايضا يطلع في تقدير الطالب (( دون المستوى )) ماريد ان يكون دون مستوى اريد ان يكون مقبول - جيد - جيد جدا - ممتاز بارك الله فيك اخطار بنتيجة الفصل الاول2019.docx تم تعديل يناير 25, 2019 بواسطه احمد الشوكاني
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.