作者:乔山办公网日期:
返回目录:excel表格制作
Function PY(myStr As String) As String
Dim LenInt As Integer, i As Integer
Dim Temp As String, oStr As String
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
LenInt = Len(myStr)
For i = 1 To LenInt
If Asc(Mid(myStr, i, 1)) > 0 Or Err.Number = 1004 Then oStr = ""
oStr = Application.WorksheetFunction.Lookup(Mid(myStr, i, 1), _
[{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"呒","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}])
Temp = Temp & oStr
Next i
PY = Temp
End Function
用这个自定义函e68a84e799bee5baa6363数试试