الكود المسئول عن البحث عن كلمة معينة

[Mohammed Farid]

السلام عليكم

أريد كود يقوم بالبحث فى الخلايا إذا ما كانت تحتوى على كلمة معينةمثلا(قلم)

بعد ذلك يقم بإضافة كلمةلى نحتوى الخلية إذا ماوجد كلمة قلم

وليس من المشترط أن تكون قيمة الخلية كلمة قلم فقط ولكن تحتوى هذه الكلمة

وشكرا

[هشام شلبى]

السلام عليكم

=====

اخى العزيز

استخدم الكود

Sub replaceHH()

What = InputBox("ضع هنا الكلمة التى تبحث عنها")

repl = InputBox("ضع هنا كلمة الاستبدال")

Sheets().Select


Selection.replace What:=What, Replacement:=repl, LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

الكود يبحث فى كل الصفحات اما لو حببت البحث والاستبدال فى صفحة معينة غير السطر

Sheets().Select

باستبداله باسم الشيت الذى تحب

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

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

والثانى ملف اكسيل به ما تريد

SEARSH HH.rar

search HH.rar

[ياسر الحافظ]

الاخ / الاستاذ المشرف هشــــــــــــــــــــــام شلبي :

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

اعمالك جميلة واخلاقك عالية ...... ماشاء الله

وفقك الله

ابو الحارث

[Mohammed Farid]

أستاذ هشام هذا الكود خاص بالإستبدال وأنا أعرفه بالفعل

ولكن طلبى هو إذا وجد الكلمة المراد البحث عنها يضيف إلى الخلية كلمة معينة

أى مثلا إذا كنا نبحث عن كلمة (الله)ونريد إ (جل جلاله)

فإذا وجد مثلا خلية مكتوب فيها (الله الرحمن الرحيم)فإن قيمة الخلية تصبح(الله الرحمن الرحيم جل جلاله)

لكن فى كود الإستبدال ستصبح قيمة الخلية(الله جل جلاله الرحمن الرحيم)

شكرا لردك على طلبى

كل عام وأنت بخير

[Mohammed Farid]

إذا أمكن يا أستاذ هشام

لو أنه يتم تجميع عدد من الدروس الخاصة بأكواد الإكسل

التى يتم الإستفسار عنها بكثرة

فى ملف واحد ويتم عرضها بالمنتدى

تم تعديل أغسطس 19, 2011 بواسطه Mohammed Farid