求助模糊录入代码，输入中间几个字首拼和数字时无法查找

flfzhy

求助模糊录入代码，输入中间几个字首拼和数字时无法查找

例：录入    日丰地暖管     时，我要输入   rfdn   而不能直接输入  dng  查询




求大神指导，在此拜谢！！！

蓝桥玄霜

改为：
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim i As Integer
    Dim Language As Boolean
    Dim myStr As String
    Me.ListBox1.Clear
    With Me.TextBox1
        For i = 1 To Len(.Value)
            If Asc(Mid$(.Value, i, 1)) > 255 Or Asc(Mid$(.Value, i, 1)) < 0 Then
                Language = True
                myStr = myStr & Mid$(.Value, i, 1)
            Else
                myStr = myStr & LCase(Mid$(.Value, i, 1))
            End If
        Next
    End With
    With Sheet2
        For i = 2 To .Range("A65536").End(xlUp).Row
            If Language = True Then
                If InStr(.Cells(i, 1).Value, myStr) Then
                    Me.ListBox1.AddItem .Cells(i, 1).Value
                End If
            Else
                If InStr(.Cells(i, 2).Value, myStr) Then
                    Me.ListBox1.AddItem .Cells(i, 1).Value
                End If
            End If
        Next
    End With
End Sub

shiruiqiang

这里2句修改一下

flfzhy

蓝桥玄霜 发表于 2024-3-26 13:02
改为：
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
...

非常感谢！！！

flfzhy

shiruiqiang 发表于 2024-3-26 13:24
这里2句修改一下

感谢版主！！！