الشهابي قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته في الملف المرفق : مطلوب كود يضع رقم ( 1 ) في الأعمدة التالية R , U , X , AA , AD , AG , AJ , AM وذلك بشرط أن كل من الأعمد التالية Q , T , W, Z , AC , AF , AI تساوي الخلية ( W2 ) وجزاكم الله خير القيد.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 اخي الفاضل انت قمت بوضع هذه المعادلة =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 خالية فكيف سيتحقق الشرط ؟؟ ارجو الاجابة ليتم تنفيذ المطلوب وللعلم فهذا ينطبق على جميع الخلايا التي ذكرتها ابو احمد رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 19, 2011 الكاتب مشاركة قام بنشر أكتوبر 19, 2011 اخي الفاضل انت قمت بوضع هذه المعادلة =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 والعفو على الرغم اعتقد أن التوضيح اللي قدمته يحتاج إلى توضيح المهم ضع الكود حسب ما فهمته مني ومن ثم من خلال المناقشة سيتضح أكثر ماعليش استحملوني شوية وجزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 اخي الشهابي انا اسف اذا لم اوصل المعلومة بالشكل الصحيح لكن ما اردت ان اوصله هو انت تريد الكود يكتب رقم 1 صحيح لكن المعادلة تربط الخلية التي سيكتب فيها 1 بخلية الشرط وبذلك ستصبح في جميع الاحوال خالية ولن يفيد الكود يعني الخلية R11 خالية هذا يعني ان الخليتين P11 و Q11 ستكونان خالية بسبب المعادلة وهذا يعني عدم تحقق شرط عمل الكود رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 19, 2011 الكاتب مشاركة قام بنشر أكتوبر 19, 2011 (معدل) أخي أبو احمد فضلا غير الرقم في الخلية 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 بواسطه الشهابي رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 اخي الشهابي جرب المرفق وضعت لك زر اسميته Add One قمت بالتعديل في بعض المعادلات بحيث ازلت +1 من البعض للتجربة اضغط الزر ولاحظ النتيجة ابواحمد القيد.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 19, 2011 الكاتب مشاركة قام بنشر أكتوبر 19, 2011 (معدل) أخي أبو أحمد عفوا هناك غلطة الأعمدة سوف تكون كاتالي : ( العمود 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 بواسطه الشهابي رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 20, 2011 الكاتب مشاركة قام بنشر أكتوبر 20, 2011 الأخ أبو أحمد نفدت الكود وتمام إن شاء الله فقط مطلوب إضافة شرط وهو لا بد أن تكون الخلايا فارغة لتنفيذ الكود ولك جزيل الشكر والتقدير وحفظك الله يابواحمد رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 21, 2011 الكاتب مشاركة قام بنشر أكتوبر 21, 2011 للرفع رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 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 ولاحظ النتيجة رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 21, 2011 الكاتب مشاركة قام بنشر أكتوبر 21, 2011 الأخ أبو أحمد أنت سيد الفاهمين الله يبارك فيك ويزيد من أمثالك تم الاستبدال والحمد لله كل شيء تمام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.