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

كود لفصل الخلايا المدمجه


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

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

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

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

أخي الكريم، أقدم لك هذا الكود البسيط تضعه في كود 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