フィルターTextBoxテキストからListBox Excelで一致する結果のみ

Question

私は、テキストボックスとリストボックスを持つユーザーフォームを持っています。私は、ユーザーがテキストボックスにテキストを入力することができ、その入力に基づいてリストボックスフィルタの結果を持たせたいと思います。

これまでのところ、私はListBoxをリスト内で強調表示し、一致しない結果をフィルタリングしないようにしました。私はまた、複数の一致するレコードを特定せず、これを実現するために何を追加する必要があるのか​​わからない、自分のコードの問題にぶつかってきました。

Private Sub TextBox3_Change() 
     'searches ListBox3 for match and hightlights result. Need to filter results. 
    Dim i As Long 
    Dim sFind As String 

    sFind = Me.TextBox3.Text 

    If Len(sFind) = 0 Then 
     Me.ListBox3.ListIndex = -1 
     Me.ListBox3.TopIndex = 0 
    Else 
     For i = 0 To Me.ListBox3.ListCount - 1 
      If UCase(Left(Me.ListBox3.List(i), Len(sFind))) = UCase(sFind) Then 
       Me.ListBox3.TopIndex = i 
       Me.ListBox3.ListIndex = i 
       Exit For 
      End If 
     Next i 
    End If 
End Sub 

Answer 1

textbox3を終了するときに機能するこのコードを使用してください。そうしないと、入力中にフィルタリングが行われ、エラーが発生する可能性があります。

試合は

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
For i = ListBox1.ListCount - 1 To 0 Step -1 
    If Not ListBox1.List(i) = TextBox3 Then ListBox1.RemoveItem (i) 
Next i 
End Sub 

正確で、ループがそれ以外の場合はエラーが表示され、再帰ループで作られている場合。

部分一致のために

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
For i = ListBox1.ListCount - 1 To 0 Step -1 
    If InStr(1, ListBox1.List(i), TextBox3) = 0 Then ListBox1.RemoveItem (i) 
Next i 
End Sub 

Found a better code to filter a listbox.