原创--输入提示自动补全,简码输入,首字母拼音输入

lqzhgood

iAI 发表于 2015-1-14 09:29
请问在WIN8和OFFICE213下不支持吗？
出现错误  
提示 ：

Provider=Microsoft.Jet.OleDb.4.0
更改为
provider=microsoft.ace.oledb.12.0

fightx

lqzhgood 发表于 2015-5-26 21:34
同样的需求哎。。。

同样的需求啊！

fightx

你好，你写的自动补全很好用，不过对于范围是合并单元格的，如何实现呢？
Const RangeAddress = "H5&H6:H5&H6,H18&H19:H18&H19" '作用范围,自己修改

fanfyj

感谢分享！

fanfyj

感谢分享！！

bowei

正在學習中，謝謝分享^^

wl_seigaku

这个好用 强大的

twshe

1. Function hztopy(hzpy As String) As String
   
2.   Dim hzstring As String, pystring As String
   
3.   Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
   
4.   hzstring = Trim(hzpy)
   
5.   hzpysum = Len(Trim(hzstring))
   
6.   pystring = ""
   
7.   For hzi = 1 To hzpysum
   
8.       hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
   
9.       Select Case hzpyhex
   
10. Case &HB0A1 To &HB0C4: pystring = pystring + "A"
    
11. Case &HB0C5 To &HB2C0: pystring = pystring + "B"
    
12. Case &HB2C1 To &HB4ED: pystring = pystring + "C"
    
13. Case &HB4EE To &HB6E9: pystring = pystring + "D"
    
14. Case &HB6EA To &HB7A1: pystring = pystring + "E"
    
15. Case &HB7A2 To &HB8C0: pystring = pystring + "F"
    
16. Case &HB8C1 To &HB9FD: pystring = pystring + "G"
    
17. Case &HB9FE To &HBBF6: pystring = pystring + "H"
    
18. Case &HBBF7 To &HBFA5: pystring = pystring + "J"
    
19. Case &HBFA6 To &HC0AB: pystring = pystring + "K"
    
20. Case &HC0AC To &HC2E7: pystring = pystring + "L"
    
21. Case &HC2E8 To &HC4C2: pystring = pystring + "M"
    
22. Case &HC4C3 To &HC5B5: pystring = pystring + "N"
    
23. Case &HC5B6 To &HC5BD: pystring = pystring + "O"
    
24. Case &HC5BE To &HC6D9: pystring = pystring + "P"
    
25. Case &HC6DA To &HC8BA: pystring = pystring + "Q"
    
26. Case &HC8BB To &HC8F5: pystring = pystring + "R"
    
27. Case &HC8F6 To &HCBF9: pystring = pystring + "S"
    
28. Case &HCBFA To &HCDD9: pystring = pystring + "T"
    
29. Case &HEDC5: pystring = pystring + "T"
    
30. Case &HCDDA To &HCEF3: pystring = pystring + "W"
    
31. Case &HCEF4 To &HD1B8: pystring = pystring + "X"
    
32. Case &HD1B9 To &HD4D0: pystring = pystring + "Y"
    
33. Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
    
34. Case Else
    
35.         
    
36. pystring = pystring + Mid(hzstring, hzi, 1)
    
37. End Select
    
38. Next
    
39.   
    
40. hztopy = pystring
    
41. End Function
    

复制代码

使用这个代码获取拼音字母，会不会更好些？

geekjin

非常不错，可如果能在LISTBOX中对查找到的每个名字前动态的加上一个序号数字，利用这个序号来实现快速输入就更好了，就像中文输入法打字选字时一样，打入字码后，有重码时，用序号数字来实现快速输入。

JOIN20

支持原创，感谢楼主分享