|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
非常感谢您这么快给我回复,辛苦斑竹了!
我对以下这段不是很明白,请赐教!
Public Function PINYIN(AAAA As String) As String
On Error Resume Next
PINYIN = ""
For a = 1 To Len(Trim(AAAA))
PINYIN = PINYIN + Application.WorksheetFunction.VLookup(Mid(Trim(AAAA), a, 1), [{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}], 2)
Next a
End Function |
|