发布网友 发布时间:2022-04-19 12:32
共3个回答
热心网友 时间:2022-06-03 20:30
展开3全部
第一步:创建自定义函数。代码如下:
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 getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
第二步:在A列输入汉字。如图:
第三步:在B列输入公式。如图:
热心网友 时间:2022-06-03 20:31
这个好像不可以吧,只能手动输入
热心网友 时间:2022-06-03 20:31
这个我会,嘿嘿发附件给我 我帮你