求教VBA窗口控制实现模糊查询，还差一点点了

xiaoxiaowai

Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
N = ListBox3.Value
    ActiveSheet.Cells(ActiveCell.Row, 1) = N
    ActiveSheet.Cells(ActiveCell.Row, 5).Activate
    Unload Me
End Sub
-------------------------------------
Private Sub UserForm_Initialize()
On Error Resume Next
    MultiPage1.Value = 0
    With Sheets("sheet1")
        N = .[B65536].End(xlUp).Row
        For r = 2 To N
                  ListBox3.AddItem .Cells(r, 1)
        Next r
    End With
End Sub
-----------------------------
Private Sub CommandButton1_Click()
-
-这里应该这么写？根据TextBox1的值查询ListBox3中含有TextBox1的字符
-（模糊查询）
End Sub

xiaoxiaowai

请各位大侠指点一二，谢谢！

xiaoxiaowai

Private Sub CommandButton1_Click()
-
-这里应该这么写？根据TextBox1的值查询ListBox3中含有TextBox1的字符
-（模糊查询）
End Sub
各位大侠指点一下，谢谢

xiaoxiaowai

dlookup不行喔，谢谢你帮顶。