كود لدمج محتويات عدة خلايا فى جدول ، و اضافة فاصلة بينها فى الخلية المدمجة

[محمد طاهر عرفه]

احتجت لدمج محتويات  عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها

فاعددت هذا الكود

اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود

Sub mergitwithcomma()

Selection.Cells.merge

       
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "، "
        
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
     
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

لتنزل الملف

[مصطفى شاهين]

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

إن شاء الله في ميزان حسناتك

يعطيك ألف عافية

[Ali Mohamed Ali]

بارك الله فيك استاذ محمد وجزاك الله خير الثواب

[شحادة بشير]

جزاكم الله خيراً على الكود المميز

[محمد حسن المحمد]

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

ما شاء الله لا قوة إلا بالله

جزاكم الله خيراً🙂

[السعيد سعيدي]

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

[هكرز المنتديات]

بارك الله فيك أستاذ محمد طاهر على جهودك الطيبة

[أ / محمد صالح]

رائعة جدا هذه الحيلة البسيطة

جزاكم الله كل خير باشمهندس محمد