اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

سلام عليكم

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

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

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

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

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

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

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

وشكرا

تم تعديل بواسطه 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 ("لايوجد نتائج")

رابط هذا التعليق
شارك

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

عوداً حميد

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information