Private Sub Combo2_Change ()
Dim V2 As String
Dim II As Integer
V2=Combo2. Text
For II=0 To Combo2. ListCount - 1
If UCase (Combo2. List (II)) Like V2 & amp; "*" Then
Combo2. Text=Combo2. List (II) :
Combo2. SelStart=Len (V2) :
Combo2. SelLength=Len (Combo2. Text) - Len (V2) :
End the If
Next
End Sub
CodePudding user response:
0 is how to? Questions can be zeroCodePudding user response: