اذهب الي المحتوي
أوفيسنا

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

قام بنشر

اخواني الاعزاء تحية طيبه لدي ملفات تتضمن بعض اوراقها خلايا مدمجه تعيق عمل بعض الاكواد ولعدم التوصل الى كافة هذه الخلايا اتساءل عن امكانية فصل الخلايا المدمجه في كل ورقة في الملف عن طريق الكود مع الامتنان

قام بنشر

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

أخي الكريم، أقدم لك هذا الكود البسيط تضعه في كود ThisWorkbook وهو يعمل إلغاء دمج كل خلايا أي ورقة من المصنف بمجرد فتح هذه ورقة... ويمكن الاستفادة من الأمر الوحيد في الكود لوضعه في بداية أي كود تعمل به ليقوم بالعملية قبل تنفيذ هذا الكود...

والكود هو:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    ActiveSheet.Cells.UnMerge

End Sub

ملاحظة: الخلايا التي كانت مدمجة لا يمكن إعادة دمجها بعد تنفيذ الكود... وأعتقد أنه يوجد كود لأحد الإخوة الكرام في موضوع سابق (لا أتذكر لا الأخ الكريم الذي وضعه ولا الموضوع) يقوم بإلغاء الدمج ثم يعيد الدمج مرة أخرى (كما كان) في نهاية العمليات...

قام بنشر

اخواني الاعزاء اشكركم على تجاوبكم السريع حلول رائعه جزاكم الرحمن كل خير وارجو من الله ان يسهل تذكر موضوع الدمج لتكون الاستفادة ممتعة اكثر مع الامتنان

قام بنشر

اخي الكريم هذا كود اخر تقوم بتحديد الخلية ثم تقوم بالدمج او العكس

هذا ما فهمت من السؤال

كود جميل يا اخي يحياوي

جزاك الله كل خير :fff: :fff: :fff: :fff:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information