搜索并显示搜索结果功能

yjgy6669

搜索并显示搜索结果功能！感谢老师帮忙！万分感谢！

Qs18

Dim arr
Sub qs()
t = Me.TextBox1.Text
With Sheet1
    arr = .Range("D4:L" & .Cells(Rows.Count, "d").End(xlUp).Row)
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr)
        s = Application.Transpose(Application.Transpose(Application.Index(arr, i)))
        s = Join(s)
        If s Like "*" & t & "*" Then
            m = m + 1
            For j = 1 To UBound(arr, 2)
                brr(m, j) = arr(i, j)
            Next
        End If
    Next
End With
With ListBox1
    .Clear
    .ColumnCount = UBound(brr, 2)
    .List = brr
End With
End Sub

Private Sub TextBox1_Change()
Call qs
End Sub

Private Sub UserForm_Initialize()
Call qs
End Sub

Qs18

试试..........

Qs18

试试.......

yjgy6669

Qs18 发表于 2024-8-31 14:02
试试.......

能不能做到，比如我要搜索第二行的数据，我在搜索框里输入更多符合第二行的数据，让匹配更加精装！例如：输入：王者22302王者名12411111111112存在212     或者   输入一般的数据王者22302王者名124，也可以照样匹配！

Qs18

yjgy6669 发表于 2024-8-31 14:35
能不能做到，比如我要搜索第二行的数据，我在搜索框里输入更多符合第二行的数据，让匹配更加精装！例如： ...

输得越多越准确