如题所述
软件çæ¬ï¼Office2013
æ¹æ³å¦ä¸ï¼
1.Alt+F11ï¼æå¼VBAç¼è¾çé¢ï¼æå ¥æ¨¡åï¼å¨æ¨¡åä¸è¾å ¥å¦ä¸ä»£ç ï¼
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
â¦â¦ï¼ååæ°éå¶ï¼ä¸é´é¨åçç¥ï¼
Case -10254 To -10254: pinyin = "zuo "
Case Else: pinyin = p
End Select
End Function
Function py(x)
For i = 1 To Len(x)
py = py & pinyin(Mid(x, i, 1))
Next i
End Function
2.åå°Excelä¸ï¼è¾å ¥å ¬å¼å¦ä¸ï¼
=pyï¼A1ï¼
3.ä¸æå¡«å å¾å°ç»æå¦ä¸ï¼
温馨提示:答案为网友推荐,仅供参考