http://www.excelhome.net/post/453.htmRainbowSoft Studio Z-Blog 1.8 Spirit Build 80605zh-CNMon, 22 Sep 2008 10:40:22 +0800634951384@qq.com (绕树参天藤)http://www.excelhome.net/post/453.htm#cmt1227Thu, 12 Nov 2009 13:15:32 +0800http://www.excelhome.net/post/453.htm#cmt1227 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 Left(.Cells(i, 1).Value, Len(myStr)) = myStr Then
Me.ListBox1.AddItem .Cells(i, 1).Value
End If
Else
If Left(.Cells(i, 2).Value, Len(myStr)) = myStr Then
Me.ListBox1.AddItem .Cells(i, 1).Value
End If
End If
Next
End With
End Sub运行不对路]]>