تعديل الاسماء

[احمد حبيبه]

الاخوه الاعزاء :

هل يوجد كود يقوم  بتعديل الاسماء مثل

حذف الهمزه  من أحمد ومن إبراهيم

وايضا حذف نقطتى الهاء من هالة

واخيرا حذف نقطتى الياء من هدي ومصطفي

وذلك فى عامود مكون من الف اسم 

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

تعديل الاسماء.rar

تم تعديل مارس 13, 2014 بواسطه Ahmed Habiba

[عبدالله باقشير]

السلام عليكم

Sub kh_Replace()
Dim ch
With Range("C5:C1000")
    For Each ch In Array("إ", "أ", "آ")
        .Replace CStr(ch), "ا", , , True
    Next
    .Replace "ة", "ه", , , True
    .Replace "ي ", "ى ", , , True
End With
End Sub

تحياتي

[الجموعي]

السلام عليكم

Sub kh_Replace()
Dim ch
With Range("C5:C1000")
    For Each ch In Array("إ", "أ", "آ")
        .Replace CStr(ch), "ا", , , True
    Next
    .Replace "ة", "ه", , , True
    .Replace "ي ", "ى ", , , True
End With
End Sub

تحياتي

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

أستاذي عبد الله باقشير

ماشاء الله

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

[احمد حبيبه]

استاذى  العبقرى

عبدالله باقشير

لا اجد ما يوفيك حقك ...... كل يوم تعطينا  درس رائع  نتعلم منه الكثير......

ربنا ما يحرمناش منك ومن ابداعاتك ومن بحر علمك الذى لا ينضب ..........

وفقك الله لكل خير وجزاك الله عنا خير الجزاء