زياد علي قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم وجمعة مباركة على الجميع اخواني الاعزاء قد يضطر احد منا لاضافة صف أو حذفه وتكون ورقة العمل التي يعمل بها محمية ،،، وبالتالي يجب عليه أن يقوم بما يلي : 1- فك الحماية عن الورقة . 2- اضافة الصف . 3- نسخ المعادلات للصف الجديد (في حالة الاضافة) . بالمرفق كود يقوم بإضافة صف أو حذف صف بمجرد تفعيل الكود ، وذلك بظهور رسالة تفيد أنه في حالة الاضافة اكتب A ، وفي حالة الحذف اكتب D ، وبناء عليه تظهر رسالة لتحديد الخلية في الصف المراد حذفه أو اضافته ،، وتنسخ المعادلة بشكل تلقائي في حالة اضافة الصف ... اتمنى من الله أن يكون المثال مفيد لكم جميعاً ... لكم خالص الود والتحية .... Insert_Delete_Rows_with_formulas.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم جزاك الله كل خير يا حبذا لو تم التعديل على الكود ليقوم بنسخ كل المعادلات التي بالصف عند إدراج صف تحياتي رابط هذا التعليق شارك More sharing options...
engineer.saleh قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 فكرة لذيذة ذذذذ يعطيك العافية و تقبل مروري رابط هذا التعليق شارك More sharing options...
زياد علي قام بنشر يوليو 10, 2009 الكاتب مشاركة قام بنشر يوليو 10, 2009 السلام عليكم اخواني الاعزاء شكراً على المرور الطيب اخي المهندس صالح حياك الله يالغالي . اخي ايسم الكود يعمل كما قلت اشرت حضرتك منذ قليل ،،، ولكن بمثالي المرفق اعلاه اقتصرت على جعل العمود الذي به المعادلات هو واحد ،، واليك المرفق يشمل عدد ثلاث أعمدة لتنسخ جميع المعادلات الخاصة بها . تستطيع اخي ايسم أن تعدل الكود من هذا السطر Cells(mpRow.Row, "i").Resize(, 3).Copy Cells(mpRow.Row + 1, "i") Insert_Delete_Rows_with_formulas1.rar رابط هذا التعليق شارك More sharing options...
سعيد بيرم قام بنشر نوفمبر 10, 2013 مشاركة قام بنشر نوفمبر 10, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان