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

دمج خليتين بالكود


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

علي استحياء أضع هذه المشاركة الخفيفة

و باذن الله أعود للمشاركة معكم كالسابق قريبا باذن الله

هذا الماكرو البسيط احتجته اثناء العمل ، و سبب الحاجة له

هو أنه عند تصدير بعض البيانات الي الاكسيل

تأتي بعد السجلات منقسمة علي سطرين

فالاصل مثلا

ان يكون فى الخلية

Mohamed Taher arfa

و اذا بها فى بعض السجلات تأتي

Mohamed

Taher arfa

و في بعضها

Mohamed Taher

arafa

و الماكرو بتشغيله بعد اختيار الخلية العلوية و مد الاختيار الي الخلية السفلية و تشغيله

يقوم بدمج القيمتان فى الخلية العلوية و مسح القيمة فى الخلية السفلية

و اسم الماكرو merg2

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

ليقوم بمسح كل الصفوف الزائدة

و اسم الماكرو deleteemptyRow

merge2.zip

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

السلام عليكم ...

سلمت يداك أخي محمد طاهر

أكثر شيء أعجبني في البرنامج هذه الأسطر :

Application.StatusBar = "Parsing / deleting ...." & _
   Format(i / origraw, "0.0%") & "       Please Wait......."

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

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

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

Important Information