بحث باي حرف

[عيسى العامري]

لدي هذا الكود ولكن عندما ابحث يبحث عن بداية الكلمة فقط هل ممكن ان يظهر النتائج باي حرف تسجلة ... وشكرا

 

Private Sub ButtonFind5_Click()

Dim Ary()

Dim r As Long, rr As Long, Lr As Long

Dim c As Integer

Dim txt As String

 

txt = Me.TextFind1

Me.ListBox1.Clear

 

With Sheets("ÍÇÆá5")

    Lr = .Cells(.Rows.Count, "E").End(xlUp).Row

    

    For r = 19 To Lr

        If InStr(CStr(.Cells(r, "E")), txt) Then

            rr = rr + 1

            ReDim Preserve Ary(1 To Cont, 1 To rr)

            For c = 1 To Cont

                Ary(c, rr) = .Cells(r, c).Value

            Next

        End If

    Next

    

End With

 

If rr Then Me.ListBox1.Column = Ary

 

Erase Ary

End Sub

[إبراهيم ابوليله]

اخى عيسى

يفضل انت ترفق مرفق للعمل عليه

وذلك تسهيلا على الاخوه المشاركين فى الموضوع

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

على العموم

جرب تغير السطر التالى\

If InStr(CStr(.Cells(r, "E")), txt) Then

الى

If InStr(CStr(.Cells(r, "E")), txt)=1 Then

تقبل تحياتى