[الاصيله]

(30-11-15, 09:03 PM)عبده نصار كتب : أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً

---

أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب

اخي العزيز انا اعتذر منك ولكن انت بانه لايوجد بين برنامجك والملف الذي رفعته اليك اي فرق
اخي العزيز برنامجك لم يكن به اي بحث وهذا الكود الذي ضفته لبرنامجك تقبل مروري واعتذاري
List2.List(0) = Text1
Dim a
List1.Clear
For x = 0 To List2.ListCount - 1
List2.Selected(x) = True

If UCase(List2.Text) = UCase(Text1.Text) Then
 MsgBox " ok "
List1.AddItem List2.Text

End If
Next x

Text3 = List1.ListCount