VBA 通过列表框搜索

Question

我有一个代码，可以从文本框中搜索确切的值并突出显示，但我如何让它搜索部分字符串，比如包含 3 个或更多字母的值，并将它们作为搜索结果返回。

Sub search()
    Dim i As Integer
    Dim j As Integer


    With UserForm1.ListBox1
        .MultiSelect = fmMultiSelectSingle
        .ListIndex = -1
        .MultiSelect = fmMultiSelectMulti


        For i = 0 To .ListCount - 1
            For j = 0 To .ColumnCount - 1
                If UserForm1.TextBox2.Text = .Column(j, i) Then
                    .ListIndex = i
                    .Selected(i) = True
                End If
            Next j
        Next i


    End With
End Sub

Answer 1

尝试改变

If UserForm1.TextBox2.Text = .Column(j, i) Then

至

If InStr(1, .Column(j, i), UserForm1.TextBox2.Text, vbTextCompare) Then