عبدالله بشير عبدالله قام بنشر يوليو 21, 2013 قام بنشر يوليو 21, 2013 السلام عليكم في المرفق 3 حالات لطلبة لهم دور ثان وعدد المواد خمسة احد الطلبة له دور ثان في الخمسة مواد ولكن يحناج الى درجة واحدة في كل مادة لكي ينجح وطالب اخر له 3 مواد يحتاج في احداها 5 درجات لو اظيفت تبقى له مادتان للاعادة طبعا شروط النجاح لكل مادة الحصول على 50 في المجموع الكلي للمادة والشرط الاخر الحصول علي 24 في مجموع امتحان الفصلين =IF(AND(K4>=24;F4+K4>=50);SUM(F4+K4);"") فضلا منكم معادلة او كود تحقق المطلوب تقبل الله صيام الجميع اظافة درجات للمادة.rar 1
طارق محمود قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 السلام عليكم أخي الكريم إضغط الزر الأسود تفضل المرفق اظافة درجات للمادة2.rar
عبدالله بشير عبدالله قام بنشر يوليو 22, 2013 الكاتب قام بنشر يوليو 22, 2013 الفاضل / طارق محمود الاخوة الكرام بالمنتدي السلام عليكم حسب الملف الدي ارفقته فهو المطلوب فعلا ولكن حاولت ان افهم الكود لاطبقة على برنامجي فلم اتمكن حيث انه في المثال المرفق السابق خمسة مواد ولكن برنامجي الفعلي 12 مادة على كل حال في الملف المرفق التالي وضعت الكود ووضعت التنسيق الشرطي وكدلك النطاق Result ) ولم يتبق الا اظافة السبعة مواد اخرى ليشملها الكود وعذرا على تعبك فالخطأ خطئي تقبل الله صيامكم وزادكم علما ومتعكم بالصحة درجات الرأفة.rar
عبدالله بشير عبدالله قام بنشر يوليو 22, 2013 الكاتب قام بنشر يوليو 22, 2013 السيد طارق محمود والاخوة بالمنتدي كل شيء تمام يشتغل الكود على برنامجي ولكن هناك ملاحظة ارجو ايجاد حل لها وهي مثال / الطالب له 7 مواد رسوب مثلا و5 درجات الرآفة تجعله ينجح في 4 مواد ويتبقى له 3مواد دور ثان : ولكن اذا ضغظت الزر مرة اخري تضيف له خمسة اخري واذا ضغظت تضيف ايظا فالمطلوبان يكون امر الاضافة مرة واحدة شاهد المرفق السابق ولك فائق احترامي
أفضل إجابة طارق محمود قام بنشر يوليو 23, 2013 أفضل إجابة قام بنشر يوليو 23, 2013 السلام عليكم أخي العزيز أولا حيث ان عدد المواد أصبح 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
عبدالله بشير عبدالله قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 اخي الفاضل :- مــــا شــــاء الله , حفظك المولى من كل شر ومكروه بالتعديل الاخير تحقق المراد بفضل رب العباد وتم بفضل ما وهبكم به من علم أسأل الله لك راحة تملأ نفسك...و رضا يغمر قلبك...و عملاً يرضي ربك... و سعادة تعلو وجهك....و نصراً يقهر عدوك....وذكراً يشغل وقتك....و عفواً يغسل ذنبك....و فرجاً يمحو همك .......يارب أحببته فيك...يارب...أحفظه عن معاصيك...يارب أجعل عمره فيما يرضيك....يارب أكرمه يوم يلاقيك...يارب....ثبته في الدنيا على الدين,,,,و أبعثه يوم الآخرة من أهل اليمين...جعلك الله ممن تتهلل وجوههم يوم الدين....فرحان بالجنان و رؤية الرحمن اللهم احفظ اخواننا بالمنتدي واكرمهم وزدهم علما وسعة في الرزق اللهم احفظ اهلهم وذويهم وارحم ميتهم واشفى مريضهم اللهم اجعل عملهم وتعاونهم مع اخوانهم بالمنتدي صدقة جارية عليهم وعلى ذويهم وصلى الله على سيد الآولين والآخرين محمد ين عبدالله اللهم صلي وسلم وبارك عليه
طارق محمود قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 السلام عليكم أخي الكريم جزاك الله خيرا وأعطاك مثل مادعوت وأكثر إن شاء الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.