vba全拼_通⽤中⽂转拼⾳函数（全拼完整版）适合Excel与AccessVBA，⽀持是否加。。。
通⽤中⽂转拼⾳函数(全拼完整版)同时适合Excel与Access VBA，⽀持多种设置选项，如是否加空格及⾸字母是否⼤写
1.⽣成效果1： wang yu hong
2.⽣成效果2： wangyuhong
3.⽣成效果3：WangYuHong
可以根据⾃⼰的需要进⾏不同的设置，以获取适合⾃⼰的中⽂转拼⾳格式
'通⽤中⽂转拼⾳函数(全拼完整版)同时适合Excel与Access VBA，⽀持多种设置选项，如是否加空格及⾸字母是否⼤写
'blnNeedSpace 2个拼⾳之间是否要加空格
'blnFirstUpper 拼⾳⾸字是否⼤写
' tmtony - Office交流⽹
Public Function gf_GetPy(str As String, Optional blnNeedSpace As Boolean = True, Optional blnFirstUpper As Boolean = False)
Dim i As Long
Dim j As Long
Dim strTmp As String
For i = 1 To Len(str)
strTmp = SimplePinYin(Mid(str, i, 1))
If blnNeedSpace = False Then strTmp = Trim(strTmp)
If blnFirstUpper Then
If Len(strTmp) > 0 Then
strTmp = UCase(Left(strTmp, 1)) & Mid(strTmp, 2)
End If
End If
gf_GetPy = gf_GetPy & strTmp
excel最强教科书完全版pdf
Next i
End Function
'获取单个中⽂汉字的全拼间函数
Private Function SimplePinYin(p As String) As String
Dim i As Long
i = Asc(p)
Select Case i
Case -20283 To -20266: SimplePinYin = "ba " Case -20265 To -20258: SimplePinYin = "bai " Case -20257 To -20243: SimplePinYin = "ban " Case -20242 To -20231: SimplePinYin = "bang " Case -20230 To -20052: SimplePinYin = "bao " Case -20051 To -20037: SimplePinYin = "bei " Case -2003
6 To -20033: SimplePinYin = "ben " Case -20032 To -20027: SimplePinYin = "beng " Case -20026 To -20003: SimplePinYin = "bi " Case -20002 To -19991: SimplePinYin = "bian " Case -19990 To -19987: SimplePinYin = "biao " Case -19986 To -19983: SimplePinYin = "bie " Case -19982 To -19977: SimplePinYin = "bin " Case -19976 To -19806: SimplePinYin = "bing " Case -19805 To -19785: SimplePinYin = "bo " Case -19784 To -19776: SimplePinYin = "bu " Case -19775 To -19775: SimplePinYin = "ca " Case -19774 To -19764: SimplePinYin = "cai " Case -19763 To -19757: SimplePinYin = "can " Case -19756 To -19752: SimplePinYin = "cang " Case -19751 To -19747: SimplePinYin = "cao " Case -19746 To -19742: SimplePinYin = "ce " Case -19741 To -19740: SimplePinYin = "ceng " Case -19739 To -19729: SimplePinYin = "cha " Case -19728 To -19726: SimplePinYin = "chai " Case -19725 To -19716: SimplePinYin = "chan " Case -19715 To -19541: SimplePinYin = "chang " Case -19540 To -19532: SimplePinYin = "chao " Case -19531 To -19526: SimplePinYin = "che "
Case -19467 To -19290: SimplePinYin = "chu " Case -19289 To -19289: SimplePinYin = "chuai " Case -19288 To -19282: SimplePinYin = "chuan " Case -19281 To -19276: SimplePinYin = "chuang " Case -19275 To -19271: SimplePinYin = "chui " Case -19270 To -19264: SimplePinYin = "chun " Case -19263 To -19262: SimplePinYin = "chuo " Case -19261 To -19250: SimplePinYin = "ci "
Case -19249 To -19244: SimplePinYin = "cong " Case -19243 To -19243: SimplePinYin = "cou " Case -19242 To -19239: SimplePinYin = "cu " Case -19238 To -19236: SimplePinYin = "cuan " Case -19235 To -19228: SimplePinYin = "cui " Case -19227 To -19225: SimplePinYin = "cun " Case -19224 To -19219: SimplePinYin = "cuo " Case -19218 To -19213: SimplePinYin = "da " Case -19212 To -19039: SimplePinYin = "dai " Case -19038 To -19024: SimplePinYin = "dan " Case -19023 To -19019: SimplePinYin = "dang " Case -19018 To -19007: SimplePinYin = "dao " Case -19006 To -19004: SimplePinYin = "de " Case -19003 To -18997: SimplePinYin = "deng " Case -18996 To -18978: SimplePinYin = "di "
Case -18977 To -18962: SimplePinYin = "dian " Case -18961 To -18953: SimplePinYin = "diao " Case -18952 To -18784: SimplePinYin = "die " Case -18783 To -18775: SimplePinYin = "ding " Case -18774 To -18774: SimplePinYin = "diu " Case -18773 To -18527: SimplePinYin = "dong "
Case -18463 To -18449: SimplePinYin = "feng " Case -18448 To -18448: SimplePinYin = "fo " Case -18447 To -18447: SimplePinYin = "fou " Case -18446 To -18240: SimplePinYin = "fu " Case -18239 To -18238: SimplePinYin = "ga " Case -18237 To -18232: SimplePinYin = "gai " Case -18231 To -18221: SimplePinYin = "gan " Case -18220 To -18212: SimplePinYin = "gang " Case -18211 To -18202: SimplePinYin = "gao " Case -18201 To -18185: SimplePinYin = "ge " Case -18184 To -18184:
SimplePinYin = "gei " Case -18183 To -18182: SimplePinYin = "gen " Case -18181 To -18013: SimplePinYin = "geng " Case -18012 To -17998: SimplePinYin = "gong " Case -17997 To -17989: SimplePinYin = "gou " Case -17988 To -17971: SimplePinYin = "gu " Case -17970 To -17965: SimplePinYin = "gua " Case -17964 To -17962: SimplePinYin = "guai " Case -17961 To -17951: SimplePinYin = "guan " Case -17950 To -17948: SimplePinYin = "guang " Case -17947 To -17932: SimplePinYin = "gui " Case -17931 To -17929: SimplePinYin = "gun " Case -17928 To -17923: SimplePinYin = "guo " Case -17922 To -17760: SimplePinYin = "ha " Case -17759 To -17753: SimplePinYin = "hai " Case -17752 To -17734: SimplePinYin = "han " Case -17733 To -17731: SimplePinYin = "hang " Case -17730 To -17722: SimplePinYin = "hao " Case -17721 To -17704: SimplePinYin = "he "
Case -17676 To -17497: SimplePinYin = "hu " Case -17496 To -17488: SimplePinYin = "hua " Case -17487 To -17483: SimplePinYin = "huai " Case -17482 To -17469: SimplePinYin = "huan " Case -17468 To -17455: SimplePinYin = "huang " Case -17454 To -17434: SimplePinYin = "hui " Case -17433 To -17428: SimplePinYin = "hun " Case -17427 To -17418: SimplePinYin = "huo " Case -17417 To -17203: SimplePinYin = "ji " Case -17202 To -17186: SimplePinYin = "jia " Case -17185 To -16984: SimplePinYin = "jian " Case -16983 To -16971: SimplePinYin = "jiang " Case -16970 To -169
43: SimplePinYin = "jiao " Case -16942 To -16916: SimplePinYin = "jie " Case -16915 To -16734: SimplePinYin = "jin " Case -16733 To -16709: SimplePinYin = "jing " Case -16708 To -16707: SimplePinYin = "jiong " Case -16706 To -16690: SimplePinYin = "jiu " Case -16689 To -16665: SimplePinYin = "ju " Case -16664 To -16658: SimplePinYin = "juan " Case -16657 To -16648: SimplePinYin = "jue " Case -16647 To -16475: SimplePinYin = "jun " Case -16474 To -16471: SimplePinYin = "ka " Case -16470 To -16466: SimplePinYin = "kai " Case -16465 To -16460: SimplePinYin = "kan " Case -16459 To -16453: SimplePinYin = "kang " Case -16452 To -16449: SimplePinYin = "kao " Case -16448 To -16434: SimplePinYin = "ke " Case -16433 To -16430: SimplePinYin = "ken "

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。