Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a " Case -20317 To -20305: pinyin = "ai " Case -20304 To -20296: pinyin = "an " Case -20295 To -20293: pinyin = "ang " Case -20292 To -20284: pinyin = "ao " Case -20...
"木", "目", "睦", "牧", "穆", "莯", "蚞", "仫", "踇", "坶", "苜", _ "呒", "鉧", "鉬", "沐", "雮", "霂", "毪", "钼": strPY= "mu" Case "乸", "內", "吶", "嗱", "妠", "拏", "挐", "秅","笝", "篛", "納", "拿", "哪", "呐", ...
"Xiang,Xiao,Xie,Xin,Xing,Xiong,Xiu,Xu,Xuan,Xue,Xun,Ya,Yan,Yang,Yao,Ye,Yi,Yin,Ying,Yo," & _ "Yong,You,Yu,Yuan,Yue,Yun,Za,Zai,Zan,Zang,Zao,Ze,Zei,Zen,Zeng,Zha,Zhai,Zhan,Zhang,Zhao," & _ "Zhe,Zhen,Zheng,Zhi,Zhong,Zhou,Zhu,Zhua,Zhuai,Zhuan,Zhuang,Zhui,Zhun,Zhuo,Zi,Zong,Zo...
vba转拼音的代码 vba转拼音的代码 Public Function Chinese2Spell(sChinese As String, Optional iflag As Integer = 0) As String Dim C2S As String Set d = CreateObject(Scripting.Dictionary) d.Add a, -20319 d.Add ai, -20317 d.Add an, -20304 d.Add ang, -20295 d.Add ao, -20292 d.Add...
PinMa = PinMa & "ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067," PinMa = PinMa & "za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,...
Function PinYin2(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer PinMa = "a,20319,ai,20...
arrWord(359) = "扜yu" arrWord(360) = "囦yuan" arrWord(361) = "曰yue" arrWord(362) = "蒀yun" arrWord(363) = "帀za" arrWord(364) = "災zai" arrWord(365) = "兂zan" arrWord(366) = "牂zang" arrWord(367) = "傮zao" ...
vba转拼音的代码.txt 热度: EXCEL中的vba代码示例 热度: 'vba转拼音的代码 PublicFunctionChinese2Spell(sChineseAsString,OptionaliflagAsInteger=0)As String DimC2SAsString ...
简介:Function PinYin2(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer PinMa ... Function PinYin2(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer ...
Public Function Getpy(ByVal Chs As String, Optional bList As Boolean = True) As String Dim ardata(-20319 To -10247) As String ardata(-20319) = " a" ardata(-20317) = " ai" ardata(-20304) = " an" ardata(-20295) = " ang" ...