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

alzeng

我想知道是哪些字有錯，如果是多音字，是不能識別其正確讀音的。

vip网上邻居

不是多音字，附件中我注明了几个错误的字

alzeng

原帖由 vip网上邻居 于 2009-12-25 09:42 发表
不是多音字，附件中我注明了几个错误的字

"昔"改"西"后，你附件中的错误拼写已修正：

vip网上邻居

我修改了下怎么还是有错误呢，西是对了可别的还是错的

vip网上邻居

找到问题了，多谢66楼上朋友

FXSHENG

帮我解决了困扰已久的问题

凡人无忧

精彩，好贴！谢谢楼主的分享！

tomson666

非常不错的东东。
请楼主一念老师考滤一下如果在姓名中有数字、字母、符号时取拼音函数就无能为力了？全是A

alzeng

原帖由 tomson666 于 2010-1-21 21:32 发表
非常不错的东东。
请楼主一念老师考滤一下如果在姓名中有数字、字母、符号时取拼音函数就无能为力了？全是A

可以聊做调整：

1. 
   
2. Option Compare Text
   
3. Function PY(ByVal rng As Range)
   
4.     Dim i%, k%, str$
   
5. 
   
6.     str = Replace(Replace(rng, " ", ""), "　", "")
   
7.     For i = 1 To Len(str)
   
8.         If Mid(str, i, 1) < "啊" Then
   
9.             PY = PY & Mid(str, i, 1)
   
10.         Else
    
11.             k = 1
    
12.             Do Until Mid("芭嚓搭蛾发噶哈击击咔垃妈拿哦啪期然撒塌挖挖挖西压匝咗", k, 1) > Mid(str, i, 1)
    
13.                 k = k + 1
    
14.             Loop
    
15.             PY = PY & Chr(64 + k)
    
16.         End If
    
17.     Next
    
18. End Function
    

复制代码

tomson666

这样就相对比较完美了，一念大哥真是高人哟。（代码简洁高效）
这几个字不对“七”、“柒”、“八”

[ 本帖最后由 tomson666 于 2010-1-22 09:30 编辑 ]