البحث من خلال تكست بوكس بأستخدام كلمتين

[نايف - م]

السلام عليكم

أنا أستخدم خاصية البجث كثيرا , و هي خاصية متعبة - البحث ثم عرض النتائج ثم المسح و اعادة البحث عن كلمة أحرى

 ثم خطر ببالي ان أسأل هل يمكن وضع كلمات البحث بمربع البحث _التكستبوكس _ ثم البحث عن كل الكلمات باستخدام أمر 

Split(TextBox.Text, vbCrLf)

ثم بحثت بالموقع و بالنت و حاولت كثيرا و لم أصل لحل

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

 

بحث بدلالة كلمتين.rar

تم تعديل أغسطس 3, 2017 بواسطه نايف - م

[ياسر خليل أبو البراء]

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

جرب الكود التالي (مع استبدال اسم ورقة العمل في الكود باسم ورقة العمل لديك حيث أنني أحبذ التعامل مع أسماء أوراق العمل باللغة الإنجليزية)

Private Sub CommandButton1_Click()
    Dim m   As Integer
    Dim r   As Integer
    Dim t   As Integer
    Dim i   As Integer
    Dim x   As Variant

    ListBox1.Clear

    With Sheets("Sheet1")
        m = .Cells(.Rows.Count, 1).End(xlUp).Row
        x = Split(TextBox1.Text, vbCrLf)

        If UBound(x) = -1 Then Exit Sub

        For i = LBound(x) To UBound(x)
            For r = 2 To m
                If .Cells(r, 2) Like x(i) & "*" Then
                    ListBox1.AddItem
                    ListBox1.List(t, 0) = .Cells(r, 1)
                    ListBox1.List(t, 1) = .Cells(r, 2)
                    t = t + 1
                End If
            Next r
        Next i
    End With
End Sub

 

[نايف - م]

تمام و هو المطلوب بارك الله بك و بأعمالك

شكرا جزيلا لسرعة و دقة الأستجابة

 

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات