زياد علي قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم وجمعة مباركة على الجميع اخواني الاعزاء قد يضطر احد منا لاضافة صف أو حذفه وتكون ورقة العمل التي يعمل بها محمية ،،، وبالتالي يجب عليه أن يقوم بما يلي : 1- فك الحماية عن الورقة . 2- اضافة الصف . 3- نسخ المعادلات للصف الجديد (في حالة الاضافة) . بالمرفق كود يقوم بإضافة صف أو حذف صف بمجرد تفعيل الكود ، وذلك بظهور رسالة تفيد أنه في حالة الاضافة اكتب A ، وفي حالة الحذف اكتب D ، وبناء عليه تظهر رسالة لتحديد الخلية في الصف المراد حذفه أو اضافته ،، وتنسخ المعادلة بشكل تلقائي في حالة اضافة الصف ... اتمنى من الله أن يكون المثال مفيد لكم جميعاً ... لكم خالص الود والتحية .... Insert_Delete_Rows_with_formulas.rar
أيسم إبراهيم قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم جزاك الله كل خير يا حبذا لو تم التعديل على الكود ليقوم بنسخ كل المعادلات التي بالصف عند إدراج صف تحياتي
engineer.saleh قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 فكرة لذيذة ذذذذ يعطيك العافية و تقبل مروري
زياد علي قام بنشر يوليو 10, 2009 الكاتب قام بنشر يوليو 10, 2009 السلام عليكم اخواني الاعزاء شكراً على المرور الطيب اخي المهندس صالح حياك الله يالغالي . اخي ايسم الكود يعمل كما قلت اشرت حضرتك منذ قليل ،،، ولكن بمثالي المرفق اعلاه اقتصرت على جعل العمود الذي به المعادلات هو واحد ،، واليك المرفق يشمل عدد ثلاث أعمدة لتنسخ جميع المعادلات الخاصة بها . تستطيع اخي ايسم أن تعدل الكود من هذا السطر Cells(mpRow.Row, "i").Resize(, 3).Copy Cells(mpRow.Row + 1, "i") Insert_Delete_Rows_with_formulas1.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.