VBA通过列表框search

我有一个代码，从文本框中search确切的值，并突出显示，但我如何使search甚至部分string像包含3个字母或更多的值，并返回他们作为search结果。

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 

Answer 2

尝试：

 If UserForm1.TextBox2.Text Like Left(.Column(j, i), 3) & "*" Then 

这将比较string的前3个字符。