最好的联想输入，求助

YZC51

wangkaigod 发表于 2018-5-5 15:51
蓝桥老师，您好！
您这个汉字转为拼音首字母，我发现“鑫”会转化为“z”，不知是哪里的问题，如何修正 ...

用下面自定义函数取代，原来的函数试试

1. Function py(myStr) '汉字转拼音首写字母,其他数字或符号不变
   
2.     Dim str$, L$, temp$
   
3.     str = Replace(myStr, "　", "")
   
4.     dict = [{"吖","a";"八","b";"擦","c";"咑","d";"鵽","e";"发","f";"伽","g";"哈","h";"丌","j";"咔","k";"垃","l";"妈","m";"拿","n";"哦","o";"妑","p";"七","q";"然","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}]
   
5.     For i = 1 To Len(str)
   
6.         L = Mid$(str, i, 1)
   
7.         If L Like "[一-龥]" Then
   
8.             temp = temp & Application.Lookup(L, dict)
   
9.         Else
   
10.             temp = temp & L
    
11.         End If
    
12.     Next i
    
13.    ' pinyin = UCase(temp) '结果是大写哟
    
14.     py = temp '结果是大写哟
    
15. End Function

复制代码

zhangyuge2020

蓝桥玄霜 发表于 2016-6-13 12:31
1.单击进去就能联想输入。
2.支持首字母联想。如“ttz”，“唐太宗”
3.支持汉字完全匹配。如输入“李” ...

您好，这功能已经很齐全了，可能是计算首字字母，所以TEXTBOX内输入时有些卡顿。请问能不能 不用TEXTBOX  而直接在单元格内   输入操作实现这些功能吗？
还有，LISTBOX，有时候会忽大忽小，在TEXTBOX输入的过程中,如果输入错误需要用删除键删除字符时，删除掉最后一个字时LISTBOX会变小一些，这个如何解决呢？能不能让LISTBOX的大小在代码里调整好，就固定了，不在随键盘输入数据时触发变化。求解，谢谢。