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

( تمت الاجابة) سؤال بخصوص List Box


Intel®

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

السلام عليكم اخواني الكرام

لو سمحتم عندي استفسار على listbox وهو عملية البحث خلالها

متلا

لدي listbox بها بيانات اي متلا 10 صفوف من البيانات

كيف اعمل بحت على جملة موعينة متلا في العمود الاول بحيت عندما يتطابق الجملة المرادة مع الجملة الموجودة في list box يعمل على صف هده الجملة Select

انا عمال تكست اكتب فيه جملة وبعد ضغط زر بحث عاوزة يبحث في list box وعندما يجدها يعملي سلكت على الصف

"البحث جملة كاملة / مثلا صحيح البخاري

انا بعد ادنكم عاوز الامر الي يجعل select تنعمل على صف معين بدون عمل كلك

ولكم مني الف شكر

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

هل يمكن أن ترفق مثالا للتطبيق و التعديل حيث أن بعض الامور يجب مراعاتها ، ولا داعي لإرفاق تطبيق نعود للتعديل عليه حسب ما لديك

الحل جاهز وبإنتظار المثال من تطبيقك الأصلي

..............

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

على كل حال وحتى لا أنسى ما جهزت أرفقه ويمكنك الإستفادة منه في تطبيقك


Dim strSearch As String

Dim i As Long

Dim iContinueSearch As Integer

strSearch = InputBox("Enter Search String")

strSearch = "*" & strSearch & "*"

With Me.lstMyListBox

If .ListCount > 0 Then

For i = 0 To .ListCount - 1

If .Column(1, i) Like strSearch Then

.Selected(i) = True

iContinueSearch = MsgBox("Do you want to continue searching?", vbQuestion + vbYesNo)

If iContinueSearch = vbNo Then

Exit For

End If

End If

Next i

End If

End With

والله من وراء القصد

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

اخي الكريم nart lebzo

انا اخي عاجز عن شكرك بارك الله فيك ورحم الله والديك

هدا فعلا ما هو مطلوب بالتحديد وهدا ما انا اريده اخي الغالي

اسف على تعبك والف الف الف شكر

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

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

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



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

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

Important Information