返回目录:excel表格制作
ExcelHome有一篇关于汉字转拼音的文章,使用微软拼音输入法API来获取汉字拼音,还能自动正确返回多音字(比如重庆、重要)。有zhidao现成的文档可以下载后直接使用。如果楼主稍稍懂得版一点Excel加载项操作,就可以直接将文档转为Excel加载项,这样,楼主的电脑上的Excel就有了功能强大的汉字转拼音函数了。如有需要,可咨询权我腾讯号码谐音【一丝霸气三思柳闪闪舞】,应该可以帮到你
Excel内是可以把中文转换成为拼音的,但需要转换函数(函数可百通过网络上面下载),下面给出具体操作方法:
所需材料:Excel、准备好的中文转拼度音函数。
一、首先打开Excel软件,然后按Alt+F11打开Viaual Basic编辑器,点击工具栏“插入问”,选项内点击“模块”。
二、这时把准备好的中文转拼音函数粘贴入该模块下,然后就可以关闭掉Viaual Basic编辑器。答
三、回到版Excel界面在需要转换的单元格内输入中文转拼音的公式(这里需要根据下载的函数来输入对应的公式,如下图的公式为=pinyin,而有一些公式则为=getpy,注意公式不要用错),按下回车键即可得权到公式内所求单元格的拼音。
四、最后按住已转换完成单元格右下角向下拖动即可得到整列中文的拼音 。
Excel中可以利用自定义函数来实现将汉字转换成拼音。
所用工具:Office2007
举例说明如下:
1.将A列数据转换成拼音:
2.alt+F11插入模块,在模块中输入如下代码,代码很多(由于篇幅限制,无法将全部e799bee5baa6e79fa5e98193e59b9ee7ad94332代码发上来,可以搜索汉字ASC码来获取),但原理很简单,利用每个汉字的ASC码来得到这个汉字的拼音,然后依次提取单元格中的每一个汉字,分别获得其拼音。
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 -20292 To -20284: pinyin = "ao "
Case -20283 To -20266: pinyin = "ba "
Case -20265 To -20258: pinyin = "bai "
Case -20257 To -20243: pinyin = "ban "
Case -20242 To -20231: pinyin = "bang "
Case -20230 To -20052: pinyin = "bao "
Case -20051 To -20037: pinyin = "bei "
Case -20036 To -20033: pinyin = "ben "
Case -20032 To -20027: pinyin = "beng "
Case -20026 To -20003: pinyin = "bi "
Case -20002 To -19991: pinyin = "bian "
Case -19990 To -19987: pinyin = "biao "
Case -19986 To -19983: pinyin = "bie "
……
Case -11055 To -11053: pinyin = "za "
Case -11052 To -11046: pinyin = "zai "
Case -11045 To -11042: pinyin = "zan "
Case -11041 To -11039: pinyin = "zang "
Case -11038 To -11025: pinyin = "zao "
Case -11024 To -11021: pinyin = "ze "
Case -11020 To -11020: pinyin = "zei "
Case -11019 To -11019: pinyin = "zen "
Case -11018 To -11015: pinyin = "zeng "
Case -11014 To -10839: pinyin = "zha "
Case -10838 To -10833: pinyin = "zhai "
Case -10832 To -10816: pinyin = "zhan "
Case -10815 To -10801: pinyin = "zhang "
Case -10800 To -10791: pinyin = "zhao "
Case -10790 To -10781: pinyin = "zhe "
Case -10780 To -10765: pinyin = "zhen "
Case -10764 To -10588: pinyin = "zheng "
Case -10587 To -10545: pinyin = "zhi "
Case -10544 To -10534: pinyin = "zhong "
Case -10533 To -10520: pinyin = "zhou "
Case -10519 To -10332: pinyin = "zhu "
Case -10331 To -10330: pinyin = "zhua "
Case -10329 To -10329: pinyin = "zhuai "
Case -10328 To -10323: pinyin = "zhuan "
Case -10322 To -10316: pinyin = "zhuang "
Case -10315 To -10310: pinyin = "zhui "
Case -10309 To -10308: pinyin = "zhun "
Case -10307 To -10297: pinyin = "zhuo "
Case -10296 To -10282: pinyin = "zi "
Case -10281 To -10275: pinyin = "zong "
Case -10274 To -10271: pinyin = "zou "
Case -10270 To -10263: pinyin = "zu "
Case -10262 To -10261: pinyin = "zuan "
Case -10260 To -10257: pinyin = "zui "
Case -10256 To -10255: pinyin = "zun "
Case -10254 To -10254: pinyin = "zuo "
Case Else: pinyin = p
End Select
End Function
Function py(str)
For i = 1 To Len(str)
py = py & pinyin(Mid(str, i, 1))
Next i
End Function
3.这样,返回Excel利用自定义的py函数即可:
4.下拉填充,就可以得到全部汉字的拼音:
1、首先用office Excel 2007打开文档;
2、然后鼠标标定在D2单元格,输入公抄式“=getpy(C2)”,按回车键确认;
3、我们就看到zhidao姓名一栏汉语拼音就自动出现了;
4、选中D2单元格,鼠标放在单元格右下角,当出现“+”后,向下拖动鼠标;
5、这样,姓名一栏所有的汉字都以拼音形式显示了;
6、如果我们需要将拼音的首字母变成大写的话,可以将鼠标标定在E2单元格中,然后输入公式“=PROPER(D2)”,按回车确认;
7、这样,我们需要的拼音的首字母就变成大写的了。