الابقاء على احرف محددة في الجملة

[kareembaghdad69]

السلام عليكم

ارجو المساعدة في موضوع وهو الحفاظ على احرف محدده بالجملة وحذف الباقي

الاحرف المطلوب ابقائها هي   ..ر ا ل ط ح ن ق م س ك ه ي ع  ...اما باقي حروف الجملة فتحذف مع الشكر

حذف الحروف.xlsx

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub DelCaps()
Dim Wrd As String, Arr As Variant
Dim i As Long, j As Long
Wrd = Range("C2").Value
Arr = Array("ر", "ا", "ل", "ط", "ح", _
"ن", "ق", "م", "س", "ك", "ه", "ي", "ع")
For i = 1 To Len(Wrd)
x = Mid(Wrd, i, 1)
For j = LBound(Arr) To UBound(Arr)
y = Arr(j)
If x = y Then
m = m & " " & x
Range("C2") = m
End If
Next
Next
End Sub

 

[ابراهيم الحداد]

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

اليك الملف السابق بعد تنفيذ الكود فى نفس الخلية المحتوية للعبارة و هى الخلية C2

ان كان الكود يؤدى نتيجة مختلفة . ارجو ارسال ملف موضحا فيه النتيجة المطلوبة

حذف الحروف.xlsm

[kareembaghdad69]

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

هل من طريقه لابدال زر الماكرو بــ ... كود  يعمل  بمجرد كتابة الجملة وبدون الحاجة الى الضغط على زر الماكرو

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

ولكن هذه المعلومة ابحث عنها منذ زمن وجزاكم الله عنا احسن الجزاء

ملاحظة:- الملف المرفق ليس فيه نقص وهو شغال بفضل الاستاذ ابراهيم الحداد وانما ارفقته لانه يحوي على ماكرو فقط لاغير اي كنموذج 

تغيير الماكرو.xlsm

[kareembaghdad69]

للرفع