Mohammed Farid قام بنشر أغسطس 18, 2011 قام بنشر أغسطس 18, 2011 السلام عليكم أريد كود يقوم بالبحث فى الخلايا إذا ما كانت تحتوى على كلمة معينةمثلا(قلم) بعد ذلك يقم بإضافة كلمةلى نحتوى الخلية إذا ماوجد كلمة قلم وليس من المشترط أن تكون قيمة الخلية كلمة قلم فقط ولكن تحتوى هذه الكلمة وشكرا
هشام شلبى قام بنشر أغسطس 18, 2011 قام بنشر أغسطس 18, 2011 السلام عليكم ===== اخى العزيز استخدم الكود 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
ياسر الحافظ قام بنشر أغسطس 19, 2011 قام بنشر أغسطس 19, 2011 الاخ / الاستاذ المشرف هشــــــــــــــــــــــام شلبي : جزالك الله كل الخير اعمالك جميلة واخلاقك عالية ...... ماشاء الله وفقك الله ابو الحارث
Mohammed Farid قام بنشر أغسطس 19, 2011 الكاتب قام بنشر أغسطس 19, 2011 أستاذ هشام هذا الكود خاص بالإستبدال وأنا أعرفه بالفعل ولكن طلبى هو إذا وجد الكلمة المراد البحث عنها يضيف إلى الخلية كلمة معينة أى مثلا إذا كنا نبحث عن كلمة (الله)ونريد إ (جل جلاله) فإذا وجد مثلا خلية مكتوب فيها (الله الرحمن الرحيم)فإن قيمة الخلية تصبح(الله الرحمن الرحيم جل جلاله) لكن فى كود الإستبدال ستصبح قيمة الخلية(الله جل جلاله الرحمن الرحيم) شكرا لردك على طلبى كل عام وأنت بخير
Mohammed Farid قام بنشر أغسطس 19, 2011 الكاتب قام بنشر أغسطس 19, 2011 (معدل) إذا أمكن يا أستاذ هشام لو أنه يتم تجميع عدد من الدروس الخاصة بأكواد الإكسل التى يتم الإستفسار عنها بكثرة فى ملف واحد ويتم عرضها بالمنتدى تم تعديل أغسطس 19, 2011 بواسطه Mohammed Farid
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.