求大神帮忙啊，老板布置下的任务可是我一窍不通呀。

蓝桥玄霜

1. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim i As Integer
   
3.     Dim Language As Boolean
   
4.     Dim myStr As String, aa As String
   
5.     Me.ListBox1.Clear
   
6.     With Me.TextBox1
   
7.         If .Value = "" Then Exit Sub
   
8.         For i = 1 To Len(.Value)
   
9.             If Asc(Mid$(.Value, i, 1)) > 255 Or Asc(Mid$(.Value, i, 1)) < 0 Then
   
10.                 Language = True
    
11.                 myStr = myStr & Mid$(.Value, i, 1)
    
12.             Else
    
13.                 myStr = myStr & LCase(Mid$(.Value, i, 1))
    
14.             End If
    
15.         Next
    
16.     End With
    
17.     If KeyCode = 13 Then
    
18.         ActiveCell = TextBox1.Value: ActiveCell.Offset(1, 0).Activate
    
19.         TextBox1.Value = ""
    
20.         Exit Sub
    
21.     End If
    
22.     With Sheet3
    
23.         For i = 2 To .Range("c65536").End(xlUp).Row
    
24.             aa = .Cells(i, 3).Value & "|" & .Cells(i, 4).Value & "|" & .Cells(i, 5).Value & "|" & .Cells(i, 6).Value
    
25.             If Language = True Then
    
26.                 If InStr(.Cells(i, 3).Value, myStr) Then
    
27.                     Me.ListBox1.AddItem aa
    
28.                 End If
    
29.             Else
    
30.                 If InStr(.Cells(i, 9).Value, myStr) Then
    
31.                     Me.ListBox1.AddItem aa
    
32.                 End If
    
33.             End If
    
34.         Next
    
35.     End With
    
36. End Sub
    

复制代码

在文本框中输入，按回车键可直接输入。

xinanjt

蓝桥玄霜 发表于 2016-3-18 09:41
在文本框中输入，按回车键可直接输入。

版主你好，有个问题，请麻烦解答，谢谢 了
http://club.excelhome.net/thread-1283499-1-1.html