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

带个安卓回家 · 发表于 2013-1-12 22:39

好用感谢感谢感谢

阿里山山 · 发表于 2013-1-21 20:52

好厉害啊！谢谢！

wfynttu · 发表于 2013-2-18 08:32

很实用的东西！感谢！

人称老宁 · 发表于 2013-3-21 23:10

非常好用，非常及时，多谢分享。

射三雕测胆灵 · 发表于 2013-7-12 18:35

学习学习！谢谢谢谢！

ty1015 · 发表于 2013-9-23 11:51

pingdingge 发表于 2010-3-15 21:52
已经搞定了，刚打开文件的时候列表框即有内容，只是觉得好像代码太复杂了。
在Worksheet_SelectionChange下 ...

可惜看不到附件呢

乐无语 · 发表于 2014-4-2 20:49

如果名字有小数点，在输入表里下拉菜单选择后，小数点和后面的文字不显示

excel333 · 发表于 2014-4-18 23:23

Win7+office 2013 下使用时，“曾”字却要输入 b；XP+office2003 却是正常的 Z，不知是何原因？

VBA万岁 · 发表于 2014-4-19 20:46

收藏了，谢谢分享！

rainbow73 · 发表于 2014-6-21 16:50

本帖最后由 rainbow73 于 2014-6-21 18:02 编辑

win7下搜狗拼音 "ca"开头的字均转为”B"， “挖”字转为"T",
结合“选秀”及楼主及本人应用需求，改为：

Public Function LChin(myStr)

  Dim str$, L$, temp$
str = Replace(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 & UCase(Application.Lookup(L, dict))
      Else
         temp = temp & L
      End If
      Next i
      LChin = temp
End Function

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

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