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

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

قام بنشر

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

قام بنشر

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

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

والكود هو:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    ActiveSheet.Cells.UnMerge

End Sub

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

قام بنشر

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

قام بنشر

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

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

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

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information