اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارجو التعديل على كود اضافه سطر


الردود الموصى بها

الاخوه الافاضل

تحيه طيبه وبعد

وكل عام وانتم جميعا بخير

اريد عند اضافة سطر ان يتم الاضافه للخلايا من b الى g

مدموجه مع بعضها

هل يمكن عمل ذلك

ارجو المساعده بارك الله فيكم

SHER.rar

رابط هذا التعليق
شارك

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

أخي الكريم إبراهيم، تم تعديل طفيف على الكود بإضافة الأسطر التالية (في عدة مواضع) :

    Range(Cells(Target.Row + 1, 4), Cells(Target.Row + 1, 7)).Select

    Selection.Merge

    Cells(Target.Row + 1, 1).Select

الكل تجده في الملف المرفق (ملف إكسيل 2003)...

أخوك بن علية

SHER.rar

رابط هذا التعليق
شارك

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

أخي الكريم إبراهيم، الإضافة التي وضعتها في الكود والتي تتمثل في الأسطر التالية

        Range(Cells(Target.Row + 1, 4), Cells(Target.Row + 1, 7)).Select

        Selection.Merge

        Cells(Target.Row + 1, 1).Select

لا تحتاج إلى شرح ولكن أحاول تقريب مفهومها لتتضح الصورة... أولا هذه الإضافات وُضعت مباشرة بعد إدراج السطر في نهاية الجداول...

* السطر الأول يقوم بتحديد الخلايا في السطر المضاف من العمود رقم 4 (أي العمود D) إلى العمود رقم 7 (أي العمود G)

* السطر الثاني يقوم بدمج Merge للخلايا المحددة من هذا السطر

* السطر الثالث يعيد المؤشر (التحديد) إلى الخلية الأولى (من العمود A) من السطر المضاف

أرجو أني وُفقت في الشرح...

أخوك بن علية

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information