Mohammed Farid قام بنشر أغسطس 20, 2011 مشاركة قام بنشر أغسطس 20, 2011 (معدل) سلام عليكم كنت قد طلبت كود يقوم بالبحث عن كلمة معينة ويضيف كلمة للخلايا المحتوية على هذه الكلمة الأستاذ هشام شلبى(جزاه الله خيرا) أعطانى الكود الخاص بالإستبدال الذى يبحث عن كلمة معينه ثم يضيف لها كلمة أخرى بعدها مباشرة ولكن طلبى هو إذا وجد الكلمة المراد البحث عنها يضاف إلى اّخر الخلية كلمة معينة أى إذا كنا نبحث عن كلمة (الله)ونريد إضافة (جل جلاله) فإذا وجد على سبيل المثال خلية مكتوب فيها (الله الرحمن الرحيم)فإن قيمة الخلية بعد الإضافة تصبح(الله الرحمن الرحيم جل جلاله) لكن فى كود الإستبدال ستصبح قيّمة الخلية(الله جل جلاله الرحمن الرحيم) وشكرا تم تعديل أغسطس 20, 2011 بواسطه Mohammed Farid رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر أغسطس 21, 2011 مشاركة قام بنشر أغسطس 21, 2011 السلام عليكم ورحمة الله وبركاته جرب الكود التالي على الورقة النشطة x1 = InputBox(" ادخل نص البحث", "بحث وإضافة") If IsNull(x1) Or x1 = "" Then Exit Sub x2 = InputBox("البحث عن : " & x1 & Chr(13) & Chr(13) & " ادخل نص الإضافة", "بحث وإضافة") If IsNull(x2) Or x2 = "" Then Exit Sub On Error GoTo Error: r1 = "$A$1" r2 = "$A$1" 1: r3 = Cells.Find(What:=x1, After:=Range(r2), LookIn:=xlValues, LookAt:=xlPart).Address s = s + 1 r2 = r3 If s = 1 Then r1 = r3 Else If r1 = r3 Then GoTo 2 x3 = Range(r2).Value x4 = x3 & " " & x2 Range(r2).Replace What:=x3, Replacement:=x4, LookAt:=xlPart GoTo 1 2: MsgBox ("عدد النتائج:" & s - 1) Exit Sub Error: MsgBox ("لايوجد نتائج") رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 22, 2011 مشاركة قام بنشر أغسطس 22, 2011 الاستاذ الفاضل الخالدي عوداً حميد كود رائع جداً تسلم يدك ان شاء الله نراك باستمرار على صفحات المنتدى رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر أغسطس 26, 2011 مشاركة قام بنشر أغسطس 26, 2011 اخي الفاضل عبدالله المجرب اشكر مرورك الكريم و ثنائك الطيب واعتذر عن التأخير في الرد عليك او المشاركة بالمنتدى وذلك بسبب الظروف في امان الله رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر أغسطس 26, 2011 مشاركة قام بنشر أغسطس 26, 2011 الاستاذ الخالدي ابداع و تالق شكرا جزيلا رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أغسطس 27, 2011 مشاركة قام بنشر أغسطس 27, 2011 كود رائع جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر أغسطس 27, 2011 مشاركة قام بنشر أغسطس 27, 2011 السلام عليكم ورحمة الله وبركاته الاخوة الافاضل يحياوي طاهر شكرا للثناء الطيب و بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان