如何将EXCEL表格中的汉字转为拼音
我的邮箱是,maolin23223@163.com
麻烦发过来,并教我一下如何用,谢谢了. 展开
启动Excel (其它版本请仿照操作),打开相应的工作表;
2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;
执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;
将代码输入其中:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
Case -20317 To -20305: pinyin = "ai "
Case -20304 To -20296: pinyin = "an "
Case -20295 To -20293: pinyin = "ang "
……
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
5.代码输入完成后,直接关闭Visual Basic编辑窗口,返回Excel编辑状态;
6.定义函数就可以用了,如:选中A2单元格,输入公式:=getpy(A2)。
和EXCEL中,都可以:
选中内容----格式---拼音指南
但,在EXCEL中,用起来不如word
中方便,可以在word中形成,再粘贴到别的地方,如粘贴到EXCEL中。
如(rú)何(hé)将(jiāng)EXCEL表(biǎo)格(gé)中(zhōng)的(de)汉(hàn)字(zì)转(zhuǎn)为(wéi)拼(pīn)音(yīn)
--------这是在word中形成的,但,在word
和EXCEL中,拼音在字的上面。
我手上就有一个,如果你要,可用短信留下邮箱,我给你发过去。