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

محرك بحث داخل الخلية


إذهب إلى أفضل إجابة Solved by الـعيدروس,

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

السلام عليكم اخواني اعضاء المنتدى الكرام 

محتاج محرك بحث في خلية بحيث اكتب في العامود H الأسماء وعندما اريد ان ادخل الخلية يخرج لي محرك بحث من نفس الخلية وعلى ما اذكر ان هذا الموضوع قد رايته سابقا في المنتدى فهل بالأمكان تزويدي بالرابط . ولكم جزيل الشكر 

يعني مثل قائمة منسدلة ولكن تحتوي على محرك بحث 

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

وانا قد شرحت به لبعض التعديلات وانا متاكد انه سوف بعود بفائدة عظيمة لاعضاء المنتدى نتمنى المشاركة والتعديلات البسيطة من الأعضاء الكرام 

وتبقبلوا تقديري

وتقبلوا فائق التقدير 

 

 

محرك بحث.xlsm

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

السلام عليكم 

اشكرك اخي ولكن ليس هذا المطلوب انا اريد لكل عامود محرك بحث خاص بيه في صفحة الوارد وكذلك في صفحة الصادر بحيث عندما انقر على الخلية في العامود g يظهر لي في مرك البحث الحسابات الرئيسية وكذلك عندما انقر على على اي خلية بعامود يظهر محرك البحث الخاص بحسابات هذا العامود من صفحة اسماء الحسابات 

كذلك يتم ادراج الحساب من محرك البحث بالنقر على الحساب المطلوب 

مع التقدير 

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

في  حدثي كود 

Private Sub CM_ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

وهذا

Private Sub Button1_Click()

استبدل رقم العمود بـ 0 بدلا عن 1

.List(.ListIndex, 0)'

 

محرك 3بحث.rar

تم تعديل بواسطه الـعيدروس
رابط هذا التعليق
شارك

السلام عليكم 

عفوا استاذ الآن جرب الاكواد وهي ممتازة تعمل بصورة جيدة 

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

اتمنى استاذ ان تحل لي هذه المشكلة بحيث اذا كتبنا شيء غير موجود يكون يكون خالي من اي اسم 

وانا تعبتك معي ... بارك الله بك وحقيق كود ممتاز وعمل اكثر من روعة 

اخوكم 

ابو شرف

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

  • أفضل إجابة

السلام عليكم

ضيف هذا السطر اول كود Private Sub Find_T

On Error Resume Next

ليصبح كالتالي

Private Sub Find_T()
Dim Ar()
Dim cel As Range
Dim i As Long
Me.CM_ListFind.Clear
On Error Resume Next ' <<<
i = 1
For Each cel In MRng
    If InStr(1, cel, CStr(Me.CM_TextFind), vbTextCompare) Then
        ReDim Preserve Ar(i)
        Ar(i) = cel.Value
        i = i + 1
    End If
Next
If i Then Me.CM_ListFind.List = Ar
Erase Ar
End Sub

وهذا هو الملف

 

محرك 3بحث.xlsm

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information