تعديل كود حذف الهمزة من الألف والنقطة من التاء المربوطة

[وليد فتحي]

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

 

الملف المرفق يحتوي على كود يقوم بحذف الهمزة من الألف والنقطة من التاء المربوطة اتوماتيك بمجرد كتابة أي اسم

 

وقد حملته من هنا بالمنتدي لاحد الزملاء ومش فاكر بالظبط لمين

 

أتمني تعديل الكود حتي استطيع ربطه بزر حتي استطيع استخدامة وقت الحاجة وليس بمجرد الكتابة

 

ولكم جزيل الشكر مقدما

حذف الهمزة من الالف والنقطة من التاء المربوطة.rar

[sarab1618]

ألف شكر أستاذ وليد .... كنت ابحث عن هذا الكود منذ زمن .... ولكن هل يمكن تطبيق هذا الكود على أعمدة محددة .... وشكرا ....

[وليد فتحي]

ألف شكر أستاذ وليد .... كنت ابحث عن هذا الكود منذ زمن .... ولكن هل يمكن تطبيق هذا الكود على أعمدة محددة .... وشكرا ....

 

استاذ sarab1618

هذا الذي اطلبه من الاخوة الزملاء بالمنتدي

ان يتم تعديل الكود بحيث اقدر استخدمة على الجزء الذي أريده

سواء كان عمود أو صف أو خليه معين

وبإنتظار الرد من أحد الأساتذة الافاضل

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

السلام عليكم

على افتراض ان النطاق المطلوب  B4:B100

 

جرب الكود التالي:

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

المرفق 2003

 

حذف الهمزة والتاء المربوطه.rar

[محمد ابو البـراء]

رائع استاذنا الكبير/ استاذ عبد الله

كود خيف ومميز بارك الله فيك

[وليد فتحي]

السلام عليكم

على افتراض ان النطاق المطلوب  B4:B100

 

جرب الكود التالي:

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

المرفق 2003

 

جزاك الله كل خير استاذنا الفاضل عبدالله

فعلا كود أكثر من رائع وخفيف

وجربته على اوفس 2010 ويعمل بكفائة

بارك الله فيك وزادك من علمه

[محمود_الشريف]

أخى فى الله

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

بارك الله فيكم

وجزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[دغيدى]

أثابك الله