احمد الشوكاني قام بنشر يناير 11, 2018 قام بنشر يناير 11, 2018 السلام عليكم ورحمة الله وبركاته اريد ترتيب الطلاب على الصف انا استخدمت دالة RANK اعطاني ترتيب الارقام وانا اريد ان يكون الترتيب حروف ابجدية مثل الاول - الثاني - الثالث وهكذا الى آخر الصف انا ارسل لكم الملف بارك الله فيكم الاول.rar
احمد الشوكاني قام بنشر يناير 11, 2018 الكاتب قام بنشر يناير 11, 2018 بارك الله فيك اخي سليم كنت اريد الترتيب الصف الطلاب كامل ليس العشرة الاوائل
سليم حاصبيا قام بنشر يناير 11, 2018 قام بنشر يناير 11, 2018 6 ساعات مضت, احمد الشوكاني said: بارك الله فيك اخي سليم كنت اريد الترتيب الصف الطلاب كامل ليس العشرة الاوائل جرب هذا الملف Degree for_class.rar
احمد الشوكاني قام بنشر يناير 11, 2018 الكاتب قام بنشر يناير 11, 2018 احسنت بارك الله فيك اخي ومشكور لما انسخ الدالة الى ملف آخر ما تطلع معي ترتيب الطلاب ارسل لك الملف الرابع.rar
سليم حاصبيا قام بنشر يناير 11, 2018 قام بنشر يناير 11, 2018 كي تعمل الدالة يجب وضع هذا الماكرو في مودول مستقل ثم استعمال الدالة الماكرو 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
احمد الشوكاني قام بنشر يناير 12, 2018 الكاتب قام بنشر يناير 12, 2018 حفظك الله اخي سليم انا ممتدا في تعليم الاكسل ما عندي خلفية في الماكرو
احمد الشوكاني قام بنشر يناير 12, 2018 الكاتب قام بنشر يناير 12, 2018 اخي سليم تقدر تعمل لطالب مكرر مثل الاول - الاول مكرر وهكذا الى آخر الصف
سليم حاصبيا قام بنشر يناير 12, 2018 قام بنشر يناير 12, 2018 يمكن عمل ذلك الرابع Salim with repitition.rar 3
احمد الشوكاني قام بنشر يناير 12, 2018 الكاتب قام بنشر يناير 12, 2018 جزاكم الله خيرا بارك الله فيكم اخي سلم واخي ظفر جعل الله في ميزان حسناتكم 1
احمد الشوكاني قام بنشر يناير 15, 2018 الكاتب قام بنشر يناير 15, 2018 اريد فرز الطلاب مثل الاول - الثاني - الثالث وهكذا الى آخر الصف ان يكون ترتيب الطلاب وجزاكم الله خيراً
سليم حاصبيا قام بنشر يناير 15, 2018 قام بنشر يناير 15, 2018 تم معالجة الامر الرابع Salim with repitition_sorting.rar 3
احمد الشوكاني قام بنشر يناير 15, 2018 الكاتب قام بنشر يناير 15, 2018 شكرا اخي سليم ربنا يعطيك العافية 2
احمد الشوكاني قام بنشر يناير 16, 2018 الكاتب قام بنشر يناير 16, 2018 اخي سليم المعذرة كثرة عليك الاسئلة ما تفعل معي الطلاب كامل ارسل لك الملف اشي الثاني اريد اخراج الطلاب مع علاماتهم في الطباعة يكون مرتب مثل الاول - الثاني - الثالث وهكذا لأني استخدمت دمج المراسلات ترتيب الطلاب ابجدي في الطباعة.rar
سليم حاصبيا قام بنشر يناير 16, 2018 قام بنشر يناير 16, 2018 استبدل الرقم 36 بالرقم 52 (الذي هو رقم الصف لاخر طالب في الجدول) في كل المعادلات بالنسية لدمج المرسلات انسخ البيانات المطلوبة الى صفحة اخرى و اجعل هذه الصفحة(الاخرى) مصدراً لدمج المرسلات الملف مرفق و هو يقوم اوتوماتيكياً بادراج المعادلات اللازمة حسب عدد الطلاب مع نسخ المعاومات المطلوبة الى الورقة 2 tartib for printing salim.rar 1
احمد الشوكاني قام بنشر يناير 21, 2018 الكاتب قام بنشر يناير 21, 2018 اخي سليم اخرجت حوالي 500 شهادة للطلاب حصل في خطاء في ترتيب الطلاب مثل جاء الطالب الرابع والطالب الآخر ياتي الرابع بس العلامات تختلف بينهم 20 علامة واحيانا اذا جاء الطالب الرابع ما يذكر الخامس يذكر السادس
بن علية حاجي قام بنشر يناير 21, 2018 قام بنشر يناير 21, 2018 السلام عليكم تم التعديل على معادلات عمود "المراتب" في ملف أخي سليم الأخير حتى لا يكون تجاوز لبعض الرتب في حالات تكرارات الرتب التي تسبقها... أرجو أن يكون هو المطلوب... بن علية حاجي tartib for printing salim.rar 3
احمد الشوكاني قام بنشر يناير 21, 2018 الكاتب قام بنشر يناير 21, 2018 جزاك الله خير بن علية الحاجي بس باقي المكرر للطلاب مثلا الاول -الاول مكرر الى اخر الصف لوتعدل الملف بارك الله فيكم
سليم حاصبيا قام بنشر يناير 21, 2018 قام بنشر يناير 21, 2018 4 ساعات مضت, بن علية حاجي said: السلام عليكم تم التعديل على معادلات عمود "المراتب" في ملف أخي سليم الأخير حتى لا يكون تجاوز لبعض الرتب في حالات تكرارات الرتب التي تسبقها... أرجو أن يكون هو المطلوب... بن علية حاجي tartib for printing salim.rar شكراً اخي بن علية على هذه المعادلة الرائعة 1
سليم حاصبيا قام بنشر يناير 21, 2018 قام بنشر يناير 21, 2018 1 ساعه مضت, احمد الشوكاني said: جزاك الله خير بن علية الحاجي بس باقي المكرر للطلاب مثلا الاول -الاول مكرر الى اخر الصف لوتعدل الملف بارك الله فيكم هذه المعادلة في AE2 =IF(X2="","",IF(COUNTIF($AD$2:AD2,AD2)=1,Order_Salim(AD2),Order_Salim(AD2)&" مكرر : "&COUNTIF($AD$2:AD2,AD2)-1)) 2
احمد الشوكاني قام بنشر يناير 21, 2018 الكاتب قام بنشر يناير 21, 2018 تقدر اخي سليم تسوي لي في الملف اذا امكن جزاك الله خيرا
سليم حاصبيا قام بنشر يناير 21, 2018 قام بنشر يناير 21, 2018 25 دقائق مضت, احمد الشوكاني said: تقدر اخي سليم تسوي لي في الملف اذا امكن جزاك الله خيرا تفضل يا سيدي tartib for printing final.rar 2
الردود الموصى بها