Excel 汉字转拼音
''''''''''''''''''''''''''''''
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "a"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "b"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "c"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "d"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "e"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "f"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "g"
ElseIf (tmp >= 4