excel汉字转换为拼音(含字母数字和键盘符号)

2023年4月25日发(作者：重阳节祝福语送老人)Option Explicit

Function PY(MyStr As String) As String

Dim LenTest As Integer, i As 拟行路难教案 Integer

Dim Test As String, TestStr As String

On Error Resume Next



MyS五年级下册语文期末试卷 tr = StrConv(MyStr, vbNarrow)

LenTest = Len(MyStr)



For i = 1 To LenTest

If Asc(Mid(MyStr, i, 1)) > 0 Or = 1004 Then Tes峨眉山月歌的意思翻译 tStr = \"\"

I历历可数的意思 f (Asc(Mid(MyStr, i, 1)) >0 And Asc(Mid(MyStr, i, 1)) <= 126) Then

Test = Test & Mid(MyStr, i, 1)

GoTo aa1

End If

TestStr = (Mid(MyStr, i, 1断断续续的拼音 ), _

[{\"吖\",\"A粗枝大叶的反义词 \";\"八\",\"B\";\"嚓\",\"C\";\"咑\",\"D\";\"鵽\",\"E\";\"发\",\"F\";\"猤\",\"G\";\"铪\",\"H\";\"夻\",\"J\";\"咔\",\"K\";\"垃\",\"L\";\"嘸\",\"M\";\"旀\",\"N\";\"噢\",\"O\";\"妑\",\"P\";\"七\",\"Q\";\"囕\",\"R\";\"仨\",\"S\";\"他\",\"T\";\"屲\",\"W湖心亭看雪客博客 \";\"夕\",\"X\";\"丫\",\"Y\";\"帀\",\"Z\"}])

Test = Test & TestStr

aa1:

Next i



PY = Test

End Function