汉字转拼音首字的函数及其灵活运用

mxmlzc · 发表于 2018-1-24 21:22

太好了，就是不知道怎么用

ataosun · 发表于 2018-9-26 14:28

本帖最后由 ataosun 于 2018-9-26 14:30 编辑

你好，大师，技术高超，膜拜……
当名册人数>=255时，会提示出错！

ataosun · 发表于 2018-9-27 07:46

ataosun 发表于 2018-9-26 14:28
你好，大师，技术高超，膜拜……
当名册人数>=255时，会提示出错！

找到原因了，把 i 的变量类型由 byte 改成 long 就行了

eyon · 发表于 2019-7-3 23:36

名册内有500个名字，运行显示溢出，错误处为i=i+1,这个怎么处理啊

YZC51 · 发表于 2019-12-5 12:25

谢谢老师分享！学习啦！

YZC51 · 发表于 2019-12-5 21:40

请参考
Public Function LChin(myStr)
Dim str$, L$, temp$
str = Replace(myStr, "　", "")
dict = [{"吖","a";"八","b";"擦","c";"咑","d";"鵽","e";"发","f";"伽","g";"哈","h";"丌","j";"咔","k";"垃","l";"妈","m";"拿","n";"哦","o";"妑","p";"七","q";"然","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}]
For i = 1 To Len(str)
      L = Mid$(str, i, 1)
      If L Like "[一-龥]" Then
         temp = temp & Application.Lookup(L, dict)
      Else
         temp = temp & L
      End If
Next i
LChin = UCase(temp)
End Function

补充内容 (2020-6-23 12:49):
擦修改为嚓

johnchar · 发表于 2020-6-22 16:01

输入白菜，取得首拼是“BB”？怎么回事？

一夕若奈何 · 发表于 2020-11-6 15:37

曹姓在公式统计中都是b 不是c 这个怎么解决？

一夕若奈何 · 发表于 2020-11-6 16:57

alzeng 发表于 2009-8-4 13:23
咔嚓，这种中有空格的方式在这里没有设置容错，在实际应用中，我认为这种情形是不应该出现的。

请问汉字转拼音的教案例子里 c 都被写作了b,怎么修改呢，而且看不到宏代码呢

flfzhy · 发表于 2024-4-7 09:36

用了你的代码输入中财50pvc管输入数字时输入框直接关闭！能发个数字英文和汉字混合+多音字容错的代码吗？

		自动登录	找回密码
密码			免费注册

[原创] 汉字转拼音首字的函数及其灵活运用