kareembaghdad69 قام بنشر أغسطس 7, 2022 مشاركة قام بنشر أغسطس 7, 2022 السلام عليكم ارجو المساعدة في موضوع وهو الحفاظ على احرف محدده بالجملة وحذف الباقي الاحرف المطلوب ابقائها هي ..ر ا ل ط ح ن ق م س ك ه ي ع ...اما باقي حروف الجملة فتحذف مع الشكر حذف الحروف.xlsx رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 7, 2022 مشاركة قام بنشر أغسطس 7, 2022 السلام عليكم ورحمة الله استخدم هذا الكود 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 3 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أغسطس 8, 2022 أفضل إجابة مشاركة قام بنشر أغسطس 8, 2022 السلام عليكم و رحمة الله اليك الملف السابق بعد تنفيذ الكود فى نفس الخلية المحتوية للعبارة و هى الخلية C2 ان كان الكود يؤدى نتيجة مختلفة . ارجو ارسال ملف موضحا فيه النتيجة المطلوبة حذف الحروف.xlsm 2 رابط هذا التعليق شارك More sharing options...
kareembaghdad69 قام بنشر سبتمبر 14, 2022 الكاتب مشاركة قام بنشر سبتمبر 14, 2022 السلام عليكم ورحمة الله وبركاته هل من طريقه لابدال زر الماكرو بــ ... كود يعمل بمجرد كتابة الجملة وبدون الحاجة الى الضغط على زر الماكرو حيث كنت قد طلبت مساعدة في الملف المرفق واسعف طلبي الاستاذ ابراهيم الحداد مشكورا وجزاه الله خيرا ولكن هذه المعلومة ابحث عنها منذ زمن وجزاكم الله عنا احسن الجزاء ملاحظة:- الملف المرفق ليس فيه نقص وهو شغال بفضل الاستاذ ابراهيم الحداد وانما ارفقته لانه يحوي على ماكرو فقط لاغير اي كنموذج تغيير الماكرو.xlsm رابط هذا التعليق شارك More sharing options...
kareembaghdad69 قام بنشر سبتمبر 19, 2022 الكاتب مشاركة قام بنشر سبتمبر 19, 2022 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.