(تمت الإجابة) مطلوب كود إضافة رقم 1 في أعمدة بشرط

[الشهابي]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

في الملف المرفق :

مطلوب كود يضع رقم ( 1 ) في الأعمدة التالية R , U , X , AA , AD , AG , AJ , AM

وذلك بشرط أن كل من الأعمد التالية Q , T , W, Z , AC , AF , AI تساوي الخلية ( W2 )

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

القيد.rar

[عبدالله المجرب]

اخي الفاضل

انت قمت بوضع هذه المعادلة

=IF(R11=0;0;IF(R11=1;N11+1;IF(R11=2;N11+2;IF(R11=3;N11+3;IF(R11=4;N11+4;IF(R11=5;N11+5;IF(R11=6;N11+6)))))))

في كل الاعمدة ومعادلة مشابهة لها في الخلايا المجاورة

لكن هذه المعادلات تربط بين قيمة الخليتين والخلية التي تريد ان يكتب بها 1

وللتوضيح اكثر ناخذ الخلية P11 و الخلية المجاورة لها Q11 والخانة التي تريد وضع رقم 1 فيها هي R11

والشرط هو ان الخلية Q11 تساوي الخلية W2

لكن!!!!

الخليتين لا تظهر بهما قيمة اذا كان الخلية R11 خالية فكيف سيتحقق الشرط ؟؟

ارجو الاجابة ليتم تنفيذ المطلوب

وللعلم فهذا ينطبق على جميع الخلايا التي ذكرتها

ابو احمد

[الشهابي]

اخي الفاضل

انت قمت بوضع هذه المعادلة

=IF(R11=0;0;IF(R11=1;N11+1;IF(R11=2;N11+2;IF(R11=3;N11+3;IF(R11=4;N11+4;IF(R11=5;N11+5;IF(R11=6;N11+6)))))))

في كل الاعمدة ومعادلة مشابهة لها في الخلايا المجاورة

لكن هذه المعادلات تربط بين قيمة الخليتين والخلية التي تريد ان يكتب بها 1

وللتوضيح اكثر ناخذ الخلية P11 و الخلية المجاورة لها Q11 والخانة التي تريد وضع رقم 1 فيها هي R11

والشرط هو ان الخلية Q11 تساوي الخلية W2

لكن!!!!

الخليتين لا تظهر بهما قيمة اذا كان الخلية R11 خالية فكيف سيتحقق الشرط ؟؟

ارجو الاجابة ليتم تنفيذ المطلوب

وللعلم فهذا ينطبق على جميع الخلايا التي ذكرتها

ابو احمد

عفواً أخي أبو أحمد يبدو أني لم أوضح المطلوب بالشكل الصحيح سأذكر بعض الأمور للتوضيح أكثر فمثلا

الخليتين N11,O11 يتم التعبئة فيهما يديويا ثم الخليتينP11,Q11 تساوي كلا منهما الخلية N11,O11 بزياد أرقام من 1إلى 6 حسب المعادلة بشرط أن يكتب ذلك الرقم في الخلية R11 فالمطلوب هو أن يقوم الكود بوضع الرقم 1 بالنيابة عني إذا كانت الخلية O11 تساوي الخلية W2 وإلا تترك فارغة ثم إذا رسب التلميذ في نفس العام الدراسي يتم يتغير الرقم من 1 إلى 2 يدويا وبالتالي يزيد الرقم في الخلية P11,Q11

الغرض من ذلك ترحيل التلميذ من صف سابق إلى صف لاحق بوضع رقم 1 وإذا رسب يوضع رقم 2 وإذا رسب مرة أخرى يوضع رقم 3 وهكذا فما أطلبه فقط أن يقوم الكود بوضع رقم 1 في الخلايا المحددة سابقا بشرط أن الخلايا التي تقابلها في الصف والمحددة في المشاركة السابقة تساوي الخلية W2 وإلا لا يتم وضع رقم1 فيها وتترك كما هي بالقيمة التي فيها سوى 1 أو 2 أو 3

والعفو على الرغم اعتقد أن التوضيح اللي قدمته يحتاج إلى توضيح

المهم ضع الكود حسب ما فهمته مني ومن ثم من خلال المناقشة سيتضح أكثر ماعليش استحملوني شوية

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

[عبدالله المجرب]

اخي الشهابي انا اسف اذا لم اوصل المعلومة بالشكل الصحيح

لكن ما اردت ان اوصله هو

انت تريد الكود يكتب رقم 1 صحيح

لكن المعادلة تربط الخلية التي سيكتب فيها 1 بخلية الشرط وبذلك ستصبح في جميع الاحوال خالية ولن يفيد الكود

يعني الخلية R11 خالية هذا يعني ان الخليتين P11 و Q11 ستكونان خالية بسبب المعادلة وهذا يعني عدم تحقق شرط عمل الكود

[الشهابي]

أخي أبو احمد فضلا غير الرقم في الخلية O11 الى 2010

الخلية Q11 شرط تحقق المعادلة فيها هو وضع رقم في الخلية R11 فاذا تم وضع رقم 1 بالكود أو يدويا سيتم تحقق الشرط وبالتالي يتم وضع

المطلوب فيها حسب المعادلة ولاحظ أخي الشرط المطلوب في الكود هو مساواة الخلية O11 للخلية W2 ومن ثم الخلية الأخرى T11 يتم تطبيق المعادلة فيها إذا وضع 1 في الخلية U11 وإن كانت الخلية Q11 فارغة أو لاتساوي الخلية W2 لا يتم تغير الخلية U11 وتبقى القيمة التي فيها اما فارغة أو أكبر من واحد وبالتالي ستبقى الخلية T11 فارغة إذا كانت U11 فارغة وغير مساوية للخلية W2 إذا كانت U11 أكبر من 1

فعلا هناك مشكلة أخي وهي بعد التعديل يدويا ً سوف يضع الكود رقم 1 عند تنفيد الكود مرة ثانية لأن الشرط لازال موجودا في الخلية Q11 ، وبالتالي علي عدم تنفيد الكود بعد التعديل في الخلية U11 وإلا ستكرر العملية مرة أخرى ويلزم عندئذٍ مسح البيانات قي الخلية W2 أو تغيرها إلى رقم يمثل عام قادما آخرحتى لا يحدث ذلك .

طيب هل ممكن أن يضاف في الكود شرط آخر وهو أن تكون الخلية U11 فارغة إضافة للشرط السابق وهو مساواة الخلية Q11 للخلية W2

وهكذا ينطبق نفس الشيء على بقية الخلايا وإن لم يتحقق شرط المساواة أو كانت الخلايا المطلوب وضع رقم 1 فيها غير فارغة تبقى الخلايا كما هي دون أي تعديل أو إضافة لعلل الفكرة وصلت إن شاء الله والعفو مرة أخرى

تم تعديل أكتوبر 19, 2011 بواسطه الشهابي

[عبدالله المجرب]

اخي الشهابي

جرب المرفق

وضعت لك زر اسميته Add One

قمت بالتعديل في بعض المعادلات بحيث ازلت +1 من البعض للتجربة

اضغط الزر ولاحظ النتيجة

ابواحمد

القيد.rar

[الشهابي]

أخي أبو أحمد

عفوا هناك غلطة الأعمدة سوف تكون كاتالي : ( العمود R وشرطه العمود O والعمود U وشرطه العمود Q والعمود X وشرطه العمود T والعمود AA وشرطه W والعمود AD وشرطه العمود Z والعمود وشرطه العمود AC والعمود AJ وشرطه العمود AF والعمود وشرطه العمود AI )

لقد قمت بإعادة +1 في المعادلة وسوف أقوم بالترحيل يدوي لتتضح الفكرة أكثر

فمثلا الصف 11 ( 2011) موجودة في الصف الدراسي السابع وهو العام المطلوب

وفي الصف 12 ( 2011) في الصف الدراسي السادس وهكذا بقية الصفوف

فالمطلوب أن يضع الكود رقم 1 في الخلايا المحددة باللو الأخضر وذلك لأن الشرط تحقق وهو أن من كل الخلايا باللون الأصفر مساوية للخلية W2 والشرط الثاني أيضا تحقق وهو أن هذه الخلايا ذات اللون الأخضر فارغة .

بينما في الخلايا ذات اللون الأحمر لا يغير الكود فيها شيء لان شرط كونها فارغة لم يتحقق

كذلك الخلايا ذات اللون الأزق لا يغير الكود فيها شيء لأن الشرط الأول لم يتحقق لعدم تحقق شرط المساوة في العمود الشرط له للخلية W2

إن شاء الله اتضحت الفكرة أكثر ونفس التوضيح موجود في مربع النص في الملف المرفق

الله يوفقكم

القيد.rar

تم تعديل أكتوبر 19, 2011 بواسطه الشهابي

[الشهابي]

الأخ أبو أحمد نفدت الكود وتمام إن شاء الله فقط مطلوب إضافة شرط وهو لا بد أن تكون الخلايا فارغة لتنفيذ الكود ولك جزيل الشكر والتقدير وحفظك الله يابواحمد

[الشهابي]

للرفع

[عبدالله المجرب]

اخي الشهابي

المطلوب غير مفهوم ولكن حسب ما فهمت

استبدل هذا السطر من الكود

If Cells(i, j).Value = Range("W2").Value Then

بهذا

If Cells(i, j).Value = Range("W2").Value And Cells(i, j + x).Value = "" Then

ولاحظ النتيجة

[الشهابي]

الأخ أبو أحمد أنت سيد الفاهمين الله يبارك فيك ويزيد من أمثالك تم الاستبدال والحمد لله كل شيء تمام