VBA擷取漢字拼音首字母的函數

漢字轉拼單首字母

現在各種查詢中，一般都支援拼音首字母查詢，下面的函數可以獲得漢字的首字母。

Public Function PY(myStr)
Dim Str$, L$, Temp$, 特殊字$
Str = Replace(Replace(myStr, " ", ""), "　", "")
dict = [{"吖","a";"八","b";"擦","c";"咑","d";"鵽","e";"發","f";"伽","g";"哈","h";"丌","j";"咔","k";"垃","l";"媽","m";"拿","n";"哦","o";"妑","p";"七","q";"然","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}]
特殊字 = "仇Q覃Q"
For i = 1 To Len(Str)
  L = Mid$(Str, i, 1)
    j = InStr(tmp, Mid(Str, i, 1))
    If L Like "[一-龥]" Then
         Temp = Temp & IIf(j, Mid(特殊字, j + 1, 1), UCase(Application.Lookup(L, dict)))
    Else
         Temp = Temp & L
    End If
Next i
PY = Temp
End Function
           

——專注辦公軟體的二次開發及教育訓練，你有問題，我有思路！

——微網誌、微信、CSDN同号：w_dexu。

——轉載請注明出處！

掃碼加微信