开发的时候文档只给了名称没有英文,感觉很麻烦,然后就有着这个方法,很管用。
1.复制出要转换的文字
2.按alt+F11 后弹出界面或者
打开【开发工具】菜单,点击第一个【Visual Basic】,弹出代码窗口,
在窗口左侧空白处,点击右键,选择【插入】->【模块】。窗口右侧出现一个白色背景框。
复制粘贴如下内容到右侧框中(虚线之间的内容,不含虚线):
--------------------------------------------------------------------------------------------------------------------------
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
Case -19775 To -19219: pinyin = "C"
Case -19218 To -18711: pinyin = "D"
Case -18710 To -18527: pinyin = "E"