[已解决]请哪位老师帮我优化一下逐步提示的代码

张果果

逐步提示.zip (11.79 KB, 下载次数: 10)

2013-6-6 19:09 上传

点击文件名下载附件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If Len(TextBox1.Text) > 0 Then
    ListBox1.Visible = True
        ListBox1.Clear

        For i = 1 To Sheets("词条").Cells(Rows.Count, 1).End(xlUp).Row
            If Sheets("词条").Cells(i, 1) Like TextBox1.Text & "*" Then
                ListBox1.AddItem Sheets("词条").Cells(i, 1)
            End If
        Next i
    Else
        ListBox1.Clear
    End If
    DoEvents
    ListBox1.Height = 9 * ListBox1.ListCount + 10
    Me.Height = 9 * ListBox1.ListCount + 75
End Sub

请哪位高手帮帮我，把这个代码优化一下，不像现在我一定要输入第一个字“中”才会提示。比如我输入“人”也会提示“中华人民共和国”，输入“和”也会提示“中华人民共和国”，要随着我输入的字越多提示越接近。请老师见附件。谢谢

最佳答案

月排行榜 / 总排行榜

csmctjg

2013-6-6 19:43

按楼主要求：
If Sheets("词条").Cells(i, 1) Like TextBox1.Text & "*" Then
改为
If Sheets("词条").Cells(i, 1) Like "*" & TextBox1.Text & "*" Then

跳转到最佳答案楼层

csmctjg

按楼主要求：
If Sheets("词条").Cells(i, 1) Like TextBox1.Text & "*" Then
改为
If Sheets("词条").Cells(i, 1) Like "*" & TextBox1.Text & "*" Then

张果果

csmctjg 发表于 2013-6-6 19:43
按楼主要求：
If Sheets("词条").Cells(i, 1) Like TextBox1.Text & "*" Then
改为

  根据您的指教，问题解决了。 谢谢！