返回汉字拼音简码的自定义函数

兰色幻想

VLOOKUP函数的区间查找功能,在VBA中也可以直接调用,只是数组的表示方法需要注意一下.

Function jianma(mst As String)
Dim arr, st
arr = [{"",0;"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
For x = 1 To Len(mst)
  st = st & Application.VLookup(Mid(mst, x, 1), arr, 2)
Next x
jianma = st
End Function

UpkBPceZ.rar (6.5 KB, 下载次数: 122)

2010-2-4 18:48 上传

点击文件名下载附件
返回汉字拼音简码的自定义函数

领风飞翔

[em01]坐沙发学习

liyh67

谢谢兰版共享

白雪高山

给说下代码就好了，看不明白，直接用算了

UNA123

{:011:}{:011:}