ازلة الهمزة في بداية الكلمة فقط

[محمد الورفلي1]

السلام عليكم     المطلوب كود لازالة الهمزة مع الابقاء على الالف المكسور    ازلة الهمزة في بداية الكلمة فقط.rar

 

تم تعديل سبتمبر 5, 2015 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

أخي الغالي محمد الخازمي

وحشتنا مشاركاتك القيمة

جرب الكود التالي عله يفي بالغرض

Sub ReplaceAll()
    With Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row)
        .Replace "أ", "ا", , 1
        .Replace "إ", "ا", , 1
        .Replace "آ", "ا", , 1
    End With
End Sub

 

[محمد الورفلي1]

السلام عليكم استاذ ياسر

 

لم تفلح النتيجة

هي(     وئام       -- اصبحت  واام           )   و اخصائي -- اصبحت  اخصااي

واام

اخصااي

[ياسر خليل أبو البراء]

الأمر غريب تماما

أنا لا أرفق كود إلا بد تجربته وبعد التجربة على أوفيس 2013 لا يستبدل كلمة وئام أو اخصائي أي لا يستبدل ئـ الهمزة اللي على نبرة

يبدو أن إصدارات الأوفيس لها دور في الأمر

[محمد الورفلي1]

 شكراً استاذ ياسر على المحاول

 

بارك الله فيك

 

[ياسر خليل أبو البراء]

جرب الكود التالي (مع العلم انه سيتعامل مع الحرف الأول فقط)

Sub ReplaceAll()
    Dim Cel As Range
    For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row)
        If Left(Cel, 1) = "أ" Or Left(Cel, 1) = "إ" Or Left(Cel, 1) = "آ" Then
            Cel = "ا" & Right(Cel, Len(Cel) - 1)
        End If
    Next Cel
End Sub

 

[محمد الورفلي1]

استاذ ياسر

 

ممتاز جداً هو المطلوب بارك الله فيك

 

س: اين مفتاح افضل إجابة

[ياسر خليل أبو البراء]

هذا كود آخر جربه يمكن يتعامل معاك مع الهمزة على نبرة

Sub ReplaceChars()
    Dim ToRemove(), Itm
    Dim Cel As Range
    ToRemove() = Array("أ", "إ", "آ")

    For Each Itm In ToRemove()
        For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row)
            Cel.Replace What:=Itm, Replacement:="ا", MatchCase:=True
        Next Cel
    Next Itm
End Sub

 

يبدو من مشاركتك الأخيرة انك تريد استبدال الحرف الأول فقط

عموماً جرب الكود ولن تخسر شيئاً

[محمد الورفلي1]

لقد حيرتناً استاذ ياسر 

كود جميل وأدق (( ازالة الهمزة من وسط الكلمة كذالك ........ شكراً في ميزان حسناتك

لم تخبرني اين مفتاح ....افضل اجابة لم تظهر عند

[ياسر خليل أبو البراء]

أخي محمد

يبدو أن التحديث قد أطاح بأشياء تعودنا عليها

ولكن ما باليد حيلة

[محمد الورفلي1]

أفضل إجابة

نحن نصنعها إذاً

[إبراهيم ابوليله]

اخى واستاذى ياسر

بالفعل والله

دائما ما احب متابعت مواضيعك ومشاركاتك

ودائما ما استفيد منها

بارك الله فيك تقبل تحياتى

[ياسر خليل أبو البراء]

أخي الغالي إبراهيم

لكم يسعدني مرورك بالموضوع

بارك الله فيك وجزاك الله خيراً على تشجيعك الدائم لي

تقبل وافر حبي وتقديري