كيف يمكن اظافة5 درجات للطالب في حالة رسوبة لكي ينجح او تقليل عدد مواد الرسوب

[عبدالله بشير عبدالله]

السلام عليكم

في المرفق 3 حالات لطلبة لهم دور ثان وعدد المواد خمسة

احد الطلبة له دور ثان في الخمسة مواد ولكن يحناج الى درجة واحدة في كل مادة لكي ينجح

وطالب اخر له 3 مواد يحتاج في احداها 5 درجات لو اظيفت تبقى له مادتان للاعادة

طبعا شروط النجاح لكل مادة الحصول على 50  في المجموع الكلي للمادة والشرط الاخر الحصول علي 24 في مجموع امتحان الفصلين

=IF(AND(K4>=24;F4+K4>=50);SUM(F4+K4);"")

فضلا منكم معادلة او كود تحقق المطلوب

تقبل الله صيام الجميع

اظافة درجات للمادة.rar

[عبدالله بشير عبدالله]

up

[طارق محمود]

السلام عليكم

أخي الكريم

إضغط الزر الأسود

تفضل المرفق

اظافة درجات للمادة2.rar

[kream]

انا مش فاهم طيب ايه المطلوب

[عبدالله بشير عبدالله]

الفاضل / طارق محمود الاخوة الكرام بالمنتدي

السلام عليكم

حسب الملف الدي ارفقته فهو المطلوب فعلا ولكن حاولت ان افهم الكود لاطبقة على برنامجي فلم اتمكن حيث انه في المثال المرفق السابق خمسة مواد ولكن برنامجي الفعلي 12 مادة

على كل حال في الملف المرفق التالي وضعت الكود ووضعت التنسيق الشرطي  وكدلك النطاق Result ) ولم يتبق الا اظافة السبعة مواد اخرى ليشملها الكود

وعذرا على تعبك فالخطأ خطئي

تقبل الله صيامكم وزادكم علما ومتعكم بالصحة

درجات الرأفة.rar

[عبدالله بشير عبدالله]

السيد طارق محمود والاخوة بالمنتدي

كل شيء تمام يشتغل الكود على برنامجي

ولكن هناك ملاحظة ارجو ايجاد حل لها وهي

مثال / الطالب له 7 مواد رسوب مثلا و5 درجات الرآفة تجعله ينجح في 4 مواد ويتبقى له 3مواد دور ثان : ولكن اذا ضغظت الزر مرة اخري تضيف له خمسة اخري واذا ضغظت تضيف ايظا

فالمطلوبان يكون امر الاضافة مرة واحدة  شاهد المرفق السابق

ولك فائق احترامي

[طارق محمود]

السلام عليكم

أخي العزيز

أولا حيث ان عدد المواد أصبح 12 ، يجب تغيير سطر في الحلقة الأخيرة

 For c = S_cl To L_cl

                llimit = 50 - adds

                tot_Degrees = Cells(r, c) + Cells(r, c - 5).Value

              

ليكون

 For c = S_cl To L_cl

                llimit = 50 - adds

                tot_Degrees = Cells(r, c) + Cells(r, c - 12).Value

 

ويبدو أنك تنبهت لهذا وحللته بالفعل

 

ثانيا

لضمان عدم استعمال الرأفة أكثر من مرة لنفس الطالب

يمكنك إضافة حلقة أخري صغيرة

إذا كانت إحدي خلايا صف هذا الطالب خضراء فليتجاوزه للصف التالي

      For c = S_cl To L_cl
                If Cells(r, c).Interior.ColorIndex = 4 Then GoTo 10
            Next c

          

ويكون الكود النهائي هكذا

Sub Add_5Degrees()
    S_cl = Range("result").Column
    L_cl = Range("result").Columns.Count + S_cl - 1
    S_Rw = Range("result").Row
    L_Rw = Range("result").Rows.Count + S_Rw - 1
    For r = S_Rw To L_Rw
        adds = 5
            
            For c = S_cl To L_cl
                If Cells(r, c).Interior.ColorIndex = 4 Then GoTo 10
            Next c
            
            For c = S_cl To L_cl
                llimit = 24 - adds
                If Cells(r, c) < 24 And Cells(r, c) >= llimit Then
                    d = 24 - Cells(r, c)
                    Cells(r, c) = 24
                    adds = adds - d
                    Cells(r, c).Interior.ColorIndex = 4
                End If
                If adds < 1 Then GoTo 10
            Next c
            
            For c = S_cl To L_cl
                llimit = 50 - adds
                tot_Degrees = Cells(r, c) + Cells(r, c - 12).Value
                If tot_Degrees < 50 And tot_Degrees >= llimit Then
                    d = 50 - tot_Degrees
                    Cells(r, c) = Cells(r, c) + d
                    adds = adds - d
                    Cells(r, c).Interior.ColorIndex = 4
                End If
                If adds < 1 Then GoTo 10
            Next c
             
10  Next r
End Sub

[عبدالله بشير عبدالله]

اخي الفاضل :- مــــا شــــاء الله  , حفظك المولى من كل شر ومكروه

بالتعديل الاخير تحقق المراد بفضل رب العباد وتم بفضل ما وهبكم به من علم

 

 

 

أسأل الله لك راحة تملأ نفسك...و رضا يغمر قلبك...و عملاً يرضي ربك...

و سعادة تعلو وجهك....و نصراً يقهر عدوك....وذكراً يشغل وقتك....
و عفواً يغسل ذنبك....و فرجاً يمحو همك .......

يارب أحببته فيك...يارب...أحفظه عن معاصيك...يارب أجعل عمره فيما يرضيك....
يارب أكرمه يوم يلاقيك...يارب....ثبته في الدنيا على الدين,,,,و أبعثه يوم الآخرة من أهل اليمين...

جعلك الله ممن تتهلل وجوههم يوم الدين....فرحان بالجنان و رؤية الرحمن

اللهم احفظ اخواننا بالمنتدي واكرمهم وزدهم علما وسعة في الرزق

اللهم احفظ اهلهم وذويهم وارحم ميتهم واشفى مريضهم

اللهم اجعل عملهم وتعاونهم مع اخوانهم بالمنتدي صدقة جارية عليهم وعلى ذويهم

وصلى الله على سيد الآولين والآخرين محمد ين عبدالله اللهم صلي وسلم وبارك عليه

[طارق محمود]

السلام عليكم
أخي الكريم

جزاك الله خيرا

وأعطاك مثل مادعوت وأكثر إن شاء الله