كود البحث والإضافة

[Mohammed Farid]

سلام عليكم

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

الأستاذ هشام شلبى(جزاه الله خيرا) أعطانى الكود الخاص بالإستبدال الذى يبحث عن كلمة معينه

ثم يضيف لها كلمة أخرى بعدها مباشرة

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

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

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

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

وشكرا

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

[الخالدي]

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

جرب الكود التالي على الورقة النشطة

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 ("لايوجد نتائج")

[عبدالله المجرب]

الاستاذ الفاضل الخالدي

عوداً حميد

كود رائع جداً تسلم يدك

ان شاء الله نراك باستمرار على صفحات المنتدى

[الخالدي]

اخي الفاضل عبدالله المجرب

اشكر مرورك الكريم و ثنائك الطيب

واعتذر عن التأخير في الرد عليك او المشاركة بالمنتدى وذلك بسبب الظروف

في امان الله

[محمد يحياوي]

الاستاذ الخالدي ابداع و تالق شكرا جزيلا

[ريان أحمد]

كود رائع جزاك الله كل خير

[الخالدي]

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

الاخوة الافاضل

يحياوي

طاهر

شكرا للثناء الطيب

و بارك الله فيكم