1.開啟一份Excel文件,在第一列輸入一些中文漢字。
4.在程式碼介面輸入程式碼:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
...
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
如圖。
5.程式碼輸入完成後,關閉Visual Basic編輯視窗,返回Excel編輯狀態,然後在第二列第一行輸入函式getpy(A1),按下【Enter】鍵。
6.然後拖動填充柄,可以看到,第二列顯示了漢字的首字母拼音。
1.開啟一份Excel文件,在第一列輸入一些中文漢字。
4.在程式碼介面輸入程式碼:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
...
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
如圖。
5.程式碼輸入完成後,關閉Visual Basic編輯視窗,返回Excel編輯狀態,然後在第二列第一行輸入函式getpy(A1),按下【Enter】鍵。
6.然後拖動填充柄,可以看到,第二列顯示了漢字的首字母拼音。