[已解决]能否在组合框中实现拼音查询选择数据？？？

liuguansky

wen980203 发表于 2012-3-8 19:27
你好，我的附件已上传，还请帮忙，谢谢！

1. Option Compare Text
   
2. Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
3.     With ComboBox2
   
4.         Dim a$, k&, Arr, Ar() As String, i&, d As New Dictionary
   
5.         Arr = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
   
6.         For i = 1 To UBound(Arr)
   
7.             d(Arr(i, 1)) = ""
   
8.         Next i
   
9.         a = "*" & Trim(.Value) & "*"
   
10.         Arr = d.Keys
    
11.         k = 0
    
12.         For i = 0 To UBound(Arr)
    
13.             If PINYIN(Arr(i)) Like a Or Arr(i) Like a Then
    
14.                 k = k + 1: ReDim Preserve Ar(1 To k)
    
15.                 Ar(k) = Arr(i)
    
16.             End If
    
17.         Next
    
18.         If k > 0 Then
    
19.             .List() = Ar
    
20.         Else: .Clear
    
21.         End If
    
22.     End With
    
23. End Sub
    
24. 
    

复制代码

模糊查询.rar (21.16 KB, 下载次数: 11)

2012-3-9 09:14 上传

点击文件名下载附件

wen980203

liuguansky 发表于 2012-3-9 09:07

非常感谢！太有用了。