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

HP2009

附件： 能否实现拼音查询选择.zip (124.79 KB, 下载次数: 34)

2011-12-26 11:35 上传

点击文件名下载附件

拼音代码：
Function pinyin(ByVal r As String) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim i As Long, j As Byte, temp As String
For i = 1 To Len(r)
For j = 1 To 24
If Asc(Mid(r, i, 1)) >= Asc(Mid(hanzi, j, 1)) Then temp = Mid(hanzi, 23 + j, 1)
Next
pinyin = pinyin & temp
Next
End Function

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-26 12:30

1. 
   
2. Option Compare Text
   
3. Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
4.     With ComboBox1
   
5.         Dim a$, k As Byte, t$, Arr() As String, Ar() As String, i&
   
6.         a = Dir(ThisWorkbook.path & "\方法\*.xls")
   
7.         If Len(a) Then
   
8.             t = a
   
9.             Do
   
10.                 k = k + 1: ReDim Preserve Arr(1 To k)
    
11.                 Arr(k) = a
    
12.                 a = Dir()
    
13.             Loop Until a = t Or Len(a) = 0
    
14.         End If
    
15.         a = "*" & .Value & "*"
    
16.         k = 0
    
17.         For i = 1 To UBound(Arr)
    
18.             If pinyin(Arr(i)) Like a Or Arr(i) Like a Then
    
19.                 k = k + 1: ReDim Preserve Ar(1 To k)
    
20.                 Ar(k) = Arr(i)
    
21.             End If
    
22.         Next
    
23.         If k > 0 Then
    
24.             .List() = Ar
    
25.         Else: .Clear
    
26.         End If
    
27.     End With
    
28. End Sub

复制代码

试下这个事件，支持大小写，中文部分匹配。

跳转到最佳答案楼层

菜鸟锐

想法很不错，进来学习一下思路

liuguansky

1. 
   
2. Option Compare Text
   
3. Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
4.     With ComboBox1
   
5.         Dim a$, k As Byte, t$, Arr() As String, Ar() As String, i&
   
6.         a = Dir(ThisWorkbook.path & "\方法\*.xls")
   
7.         If Len(a) Then
   
8.             t = a
   
9.             Do
   
10.                 k = k + 1: ReDim Preserve Arr(1 To k)
    
11.                 Arr(k) = a
    
12.                 a = Dir()
    
13.             Loop Until a = t Or Len(a) = 0
    
14.         End If
    
15.         a = "*" & .Value & "*"
    
16.         k = 0
    
17.         For i = 1 To UBound(Arr)
    
18.             If pinyin(Arr(i)) Like a Or Arr(i) Like a Then
    
19.                 k = k + 1: ReDim Preserve Ar(1 To k)
    
20.                 Ar(k) = Arr(i)
    
21.             End If
    
22.         Next
    
23.         If k > 0 Then
    
24.             .List() = Ar
    
25.         Else: .Clear
    
26.         End If
    
27.     End With
    
28. End Sub

复制代码

试下这个事件，支持大小写，中文部分匹配。

HP2009

liuguansky 发表于 2011-12-26 12:30
试下这个事件，支持大小写，中文部分匹配。

谢谢版主，

你乃神人也！佩服佩服{:34:}

HP2009

菜鸟锐 发表于 2011-12-26 11:59
想法很不错，进来学习一下思路

liuguansky版主已经解决了这个问题，您可以看看!hh{:26:}

菜鸟锐

HP2009 发表于 2011-12-26 12:44
liuguansky版主已经解决了这个问题，您可以看看!hh

好的，你的思路 很不错，我觉得成功在于构思。一个有构思的人是很有前途的！谢谢你的思路的分享

szrensd

部分拼音不匹配，不过不影响使用。

wen980203

liuguansky 发表于 2011-12-26 12:30
试下这个事件，支持大小写，中文部分匹配。

请问，如果列表的值是某一个表中的某些单元格，代码要怎么改啊？

wen980203

wen980203 发表于 2012-3-4 21:29
请问，如果列表的值是某一个表中的某些单元格，代码要怎么改啊？

你好，附件已经上传。还请帮忙啊！谢谢先！
模糊查询.rar (17.78 KB, 下载次数: 10)

2012-3-5 20:16 上传

点击文件名下载附件

wen980203

liuguansky 发表于 2011-12-26 12:30
试下这个事件，支持大小写，中文部分匹配。

你好，我的附件已上传，还请帮忙，谢谢！