Jump to content
أوفيسنا

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


1 Screenshot

About This File

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

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

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

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

 


What's New in Version 1.0.1   See changelog

Released

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


User Feedback

Recommended Comments

There are no comments to display.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Add a comment...

×   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.

×
×
  • Create New...