سليم حاصبيا

و من أين يأخذ الجدول معلوماته؟؟؟

اليك الكود لهذا الامر Option Explicit Sub My_formula() Range("h2:h" & Cells(Rows.Count, "j").End(3).Row).Formula = _ "=J2 " & "& "" Done""" End Sub او هذا Sub My_formula1() Range("h2:h" & Cells(Rows.Count, "j").End(3).Row).FormulaArray = _ "=(j2:J" & Cells(Rows.Count, "j").End(3).Row & ")" & "& "" Done""" End Sub

الكود ده بتحاهل الارقام والخلايا الفارغة

تم معالجة الامر Book2 _Salim.rar

يمكن عمل ذلك الرابع Salim with repitition.rar

اعرف ذلك و لكن ما هو الشرط (او الشروط ) لتلوين الخلية اذ ممكن ان اجد لك معادلة اقصر و بالتالي اخف ثقلاً على الذاكرة

لم افهم شروطها

ارجو شرح الخوارزمية التي تريد ها

الأقضل هذه المعادلة للتنسيق الشرطي التي تقوم بنفس العمل =LEN(C2)*ISNUMBER(C2)=10

كي تعمل الدالة يجب وضع هذا الماكرو في مودول مستقل ثم استعمال الدالة الماكرو 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

جرب هذا الملف Degree for_class.rar

جرب هذا الملف Degree Salim.rar

اخي علي يالنسية للمعادلة المقترحة من الاخ بن علية هناك شرط وهو (يجب ان تكون اسماء الكل الشعب مرتبة) بمعني اولاً كل 6-A ثم كل6-B و الا يحدث خطأ اذ يمكن ان يندرج اسم او عذة اسماء في العامودين معاً بينما المعادلة الثّانية لا تراعي هذا الشرط

يمكن ان يكون الحل Ali Salim.rar

شاهد هذا الفيديو https://www.youtube.com/watch?v=7mtcySxOX74

عند تعبئة البيانات في الصفحتين بيانات الموظفين و بيانات الإجازات يتم ادراج كافة المعلومات في الصفحة رصيد الإجازات أوتو ماتيكباً لا حاجة للكود في هذه الحالة الملف مرفق رصيد اجازات 5ا Salim.rar

انا لا املك الخبرة الكافية باليوزرفورم

بالضبط كما ترى كان قياس الخط 10 و اصبح 12 والخط هو نفسه Arail لكن تختلف اللغة والـــ Bold

كبسة يمين على اسم اي شيت ثم Unhide وتختار Sheet1

نوع الفونت الي تراه هو الفونت في الخلية المحددة C11 و ليس حيث انت تشير بالدائرة الحمراء

sheet1 هي ورقة مخفية في الملف حاول اظهارها لترى ما فيها و ستفهم المعادلة

جرب هذا الملف تم ازالة الحلايا المدمجة من جدول النتائج لحسن عمل المعادلات المعادلات محمية ضد الكتابة وليس ضد المسح (لعدم العبث بها عن طريق الخطأ) سؤال Salim.rar

الملف المرفق فيه تعديل على المعادلة و النتيجة صحيحة ان شاء الله (Ctrl+Shift+Enter) =IF(N(O5)=0,O5,SUM(IF(ISNUMBER($O$5:$O$129)*(O5<$O$5:$O$129),1/COUNTIF($O$5:$O$129,$O$5:$O$129)))+1) الملف ترتيب4 Salim.rar

ممكن هذه المعادلة (CRL+Shift+Enter) =CHOOSE((COUNT($O$5:$O$129)=125)+1,IF(N(O5)=0,O5,SUM(IF(O5<$O$5:$O$129,1/COUNTIF($O$5:$O$129,$O$5:$O$129)))-(COUNTA($O$5:$O$129)-COUNT($O$5:$O$129)-(SUM(IF(ISTEXT($O$5:$O$129),1,0))-1))),SUM(IF(O5<$O$5:$O$129,1/COUNTIF($O$5:$O$129,$O$5:$O$129)))+1)

المعادلة النهائية(Ctrl+Shift+Enter) =CHOOSE((COUNT($O$5:$O$129)=125)+1,IF(N(O5)=0,O5,SUM(IF(O5<$O$5:$O$129,1/COUNTIF($O$5:$O$129,$O$5:$O$129)))-(COUNTA($O$5:$O$129)-COUNT($O$5:$O$129)-2)),SUM(IF(O5<$O$5:$O$129,1/COUNTIF($O$5:$O$129,$O$5:$O$129)))+1) الملف مرفق ترتيب3 Salim.rar