汉字转拼音首字母，自定义函数，多方案对比

gdqb521 · 发表于 2019-12-26 10:55

总结的真全面。

xetn · 发表于 2020-1-17 12:33

感谢
感谢
感谢

YZC51 · 发表于 2020-1-17 13:49

学习老师的拼音函数。谢谢老师！
http://club.excelhome.net/thread-467126-13-1.html
感觉这个更好些！
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

zhonglet · 发表于 2020-6-21 16:34

你好，我在Excelhome上学习了你关于汉字转拼音首字母的帖子。采用了你的第四种方案但是我在我的Excel2007上运行了之后，发现 “嚓”这个字电脑给出了 “b”字母，不知问题出在何处？请指教

larer · 发表于 2020-6-21 16:53

支持学习...

zhonglet · 发表于 2020-6-21 22:24

YZC51 发表于 2020-1-17 13:49
学习老师的拼音函数。谢谢老师！
http://club.excelhome.net/thread-467126-13-1.html
感觉这个更好些！
...

试过这个了，确实是一个字都没错的

opiona · 发表于 2020-6-21 22:32

本帖最后由 opiona 于 2020-6-21 22:34 编辑

如果全部是汉字  或字母,推荐:  5,6楼
如果包含有其他字符  例如日语,汉语:  5,6会出错只能使用: 7楼!
原因好像是:  WorksheetFunction.Lookup 声明中的“Option Compare Text”

vincenthnkf · 发表于 2020-6-22 00:57

有想法，赞一个

馋嘴肥猫 · 发表于 2020-6-22 09:34

谢谢分享，有一定的使用价值，收了！

zhonglet · 发表于 2020-6-23 12:26

YZC51 发表于 2020-1-17 13:49
学习老师的拼音函数。谢谢老师！
http://club.excelhome.net/thread-467126-13-1.html
感觉这个更好些！
...

建议把“擦”改为“嚓”，因为看排序嚓字还在擦字的前面的，如果不改的话，输入嚓的时候还是会显示 b

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

[分享] 汉字转拼音首字母，自定义函数，多方案对比

评分