excel表格中如何自動填寫拼音首字母縮寫

題目：

excel表格中如何自動填寫拼音首字母縮寫
單位的軟體要求把產品的助記碼加上去,規則爲產品的拼音首字母縮寫
如：會議用吵人小喇叭變成：HYYCRXLB
急

解答：

把下面的代碼複製在一個VBE模塊裡面,然後在工作表裡面像使用其他函數一樣使用HZP（）函數就可以了
比如A1 是 中國人 則在B1輸入公式：=HZP(a1) 就會顯示結果 ZGR
還不明白的話 HI我
Option Explicit
Public Function py(mystr As String) As String
Dim i As Long
i = Asc(mystr)
Select Case i
Case -20319 To -20284:py = "A"
Case -20283 To -19776:py = "B"
Case -19775 To -19219:py = "C"
Case -19218 To -18711:py = "D"
Case -18710 To -18527:py = "E"
Case -18526 To -18240:py = "F"
Case -18239 To -17923:py = "G"
Case -17922 To -17418:py = "H"
Case -17417 To -16475:py = "J"
Case -16474 To -16213:py = "K"
Case -16212 To -15641:py = "L"
Case -15640 To -15166:py = "M"
Case -15165 To -14923:py = "N"
Case -14922 To -14915:py = "O"
Case -14914 To -14631:py = "P"
Case -14630 To -14150:py = "Q"
Case -14149 To -14091:py = "R"
Case -14090 To -13319:py = "S"
Case -13318 To -12839:py = "T"
Case -12838 To -12557:py = "W"
Case -12556 To -11848:py = "X"
Case -11847 To -11056:py = "Y"
Case -11055 To -10247:py = "Z"
Case Else:py = mystr
End Select
End Function
Function HZP(strn As String)
Dim i As Integer
For i = 1 To Len(strn)
HZP = HZP & py(Mid(strn,i,1))
Next i
End Function