اذهب الي المحتوي

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


الصوره التوضيحيه %s

عن هذا الملف

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

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

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

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

 


ماهو الجديد في الاصدار 1.0.1   اعرض سجل التغييرات

الاصدار

تعديل فى الكود




اراء المستخدمين

Recommended Comments

لاتوجد تعليقات لعرضها .

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.

×
×
  • اضف...