عن هذا الملف
احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها
فاعددت هذا الكود
اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود
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
لاتوجد تعليقات لعرضها .
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان