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

qingdong988

Do Until Mid("八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1)，哪位角解释下这些汉字是干什么的

gc6699

您的这个转拼音首字的确实很好，但是最基本的中国汉字姓氏地名里的多音字不能正确转换，比如仇字作为姓氏时是qiu而不是chou;单字作为地名或姓时念shan而不是dan，故请考虑完善下该如何处理出正确结果？？
另外我是下载的你的表格请问代码该如何使用到我本地的表格里啊，这个我是菜鸟请见谅。。。

excel333

“东莞”

居然是 DW，而不是常见的 DG

yaoxuhuijsz

真好， 要是输入中文，也能模糊查找录入就更好了。。。

yhuacn

感谢分享！！！！！

alzeng

关于多音字容错修改的例子：

1. Option Compare Text
   
2. 
   
3. Function py(ByVal Rng As Range)
   
4.     Dim i%, k%, str$, Tmp$
   
5. 
   
6.     str = Replace(Replace(Rng, " ", ""), "　", "")
   
7.     Tmp = "曾Z仇Q覃Q长C行X"
   
8.     For i = 1 To Len(str)
   
9.         k = 1
   
10.         Do Until Mid("八擦咑鵽发伽哈丌丌咔垃妈拿哦妑七然仨他屲屲屲夕丫匝咗", k, 1) > Mid(str, i, 1)
    
11.             k = k + 1
    
12.         Loop
    
13.         j = InStr(Tmp, Mid(str, i, 1))
    
14.         py = py & IIf(j, Mid(Tmp, j + 1, 1), Chr(64 + k))
    
15.     Next
    
16. End Function

复制代码

figofigofigo

很好的案例下载学习了

kszcs

留个记号，下载

jswtl

真的是个好东西，太好了。

lcjy11185

做个记号，