跪求Excel 中文名转拼音格式如下：杨一二（Yang Yier）

嘟嘟嘟嘟125

跪求各位大大帮忙改改代码，之前到处挖坟终于找到可以用的的代码。
现在已经可以从中文转换为小写英文并加空格，例如杨一二  （yang yi er），但是还是需要手动改大写并删除空格o(╥﹏╥)o
希望大佬们帮我看下怎么改下VBA 可以让他把格式自动转化过来拜托拜托，小女子不胜感激
(>^ω^<)

Vba 代码.zip (3.35 KB, 下载次数: 15)

2021-11-17 19:34 上传

点击文件名下载附件

开启宏姓名表.zip (29.11 KB, 下载次数: 19)

2021-11-17 19:35 上传

点击文件名下载附件

大灰狼1976

1. Function getpy(str)
   
2. Dim s$
   
3. For i = 1 To Len(str)
   
4.   s = s & pinyin(Mid(str, i, 1))
   
5. Next i
   
6. getpy = StrConv(s, vbProperCase)
   
7. End Function

复制代码

大灰狼1976

发重复了，删除。

嘟嘟嘟嘟125

大灰狼1976 发表于 2021-11-17 21:56

感谢回复！这个可以变成大写了，但是后两个名的部分也是大写o(╥﹏╥)o现在被更改后是Yang Yi Er 。
怎么修改下可以变成Yang Yier呢？

嘟嘟嘟嘟125

大灰狼1976 发表于 2021-11-17 21:56

感谢回复！！ 现在可以从 yang yi er 变成了 Yang Yi Er。

请问可以修改VBA改成Yang Yier 吗？

yjh_27

1. Function getpy(str)
   
2. Dim s$
   
3. For i = 1 To 2
   
4.   s = s & pinyin(Mid(str, i, 1))
   
5. Next i
   
6. 
   
7. 
   
8. s=StrConv(s, vbProperCase )
   
9. 
   
10. 
    
11. For i = 3 To Len(str)
    
12.   s = trim( s ) & pinyin(Mid(str, i, 1))
    
13. Next i
    
14. getpy = s
    
15. End Function
    

复制代码

1. <p> </p>

复制代码

嘟嘟嘟嘟125

yjh_27 发表于 2021-11-17 22:56

好人一生平安！！但是有个新问题(&#42150;_&#42150;) ，我的前面的代码好像缺失了一部分，导致在识别“二”类似的音节的时候直接变成了dong，请问在哪里可以找到完整的前面那个码呢
Case -18952 To -18784: pinyin = "die "

Case -18783 To -18775: pinyin = "ding "

Case -18774 To -18774: pinyin = "diu "

Case -18773 To -18527: pinyin = "dong "

Case -18526 To -18519: pinyin = "fa "

Case -18518 To -18502: pinyin = "fan "

yjh_27

嘟嘟嘟嘟125 发表于 2021-11-18 12:40
好人一生平安！！但是有个新问题(&#42150;_&#42150;) ，我的前面的代码好像缺失了一部分，导致在识别“二 ...

原代码有缺失，自己补一下

Case -18773 To -18707: pinyin = "dong "
Case -18706 To -18698: pinyin = "e "
Case -18697 To -18691: pinyin = "en "
Case -18690 To -18527: pinyin = "er "

吃串串

略略略略略略略略略略略略略略略略

嘟嘟嘟嘟125

yjh_27 发表于 2021-11-18 14:20
原代码有缺失，自己补一下

Case -18773 To -18707: pinyin = "dong "

谢谢！！请问在哪里可以对比这个数字去补代码呢。。。我之前是学舞蹈的，对计算机一窍不通。。。

如果有这个数字拼音代码的链接您方便发我吗，这个数字是固定的吗？还是可以在哪里找