
6个回答
展开全部
1、打开要转换成拼音的excel表格
2、按“Alt+F11”组合键,进入Visual Basic编辑状态。也就是看到的这个灰色的编辑界面
3、执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;
4、看到如下界面
5、把下面的所有内容复制,粘贴到步骤4中的空白处
复制内容到剪贴板
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 -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 getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
6、按下ALT+Q关闭Visual Basic编辑窗口,返回Excel编辑状态
7、选中转换后的拼音需要放在哪个列,例如要把B列的第2行的内容转换成拼音,放在D列的第2个单元格,输入公式:=getpy(B2),这里的B2,是指源头单元格的坐标
8、如果要去除拼音之间的空格。去掉空格的拼音放在E列,如果这个未去掉空格的数据原来在D2单元格,去掉空格之后的拼音放在E2单元格,则在E2单元格输入:
=SUBSTITUTE(D2," ","")
2、按“Alt+F11”组合键,进入Visual Basic编辑状态。也就是看到的这个灰色的编辑界面
3、执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;
4、看到如下界面
5、把下面的所有内容复制,粘贴到步骤4中的空白处
复制内容到剪贴板
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 -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 getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
6、按下ALT+Q关闭Visual Basic编辑窗口,返回Excel编辑状态
7、选中转换后的拼音需要放在哪个列,例如要把B列的第2行的内容转换成拼音,放在D列的第2个单元格,输入公式:=getpy(B2),这里的B2,是指源头单元格的坐标
8、如果要去除拼音之间的空格。去掉空格的拼音放在E列,如果这个未去掉空格的数据原来在D2单元格,去掉空格之后的拼音放在E2单元格,则在E2单元格输入:
=SUBSTITUTE(D2," ","")
展开全部
有很多字同音,也有很多字多音,所以无论是汉字转拼音还是拼音转汉字都是不可能实现的!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我想只能一个一个输入吧,如果你有别的好办法时希望你能给大家共享,呵呵先谢啦
楼下的方法,只是加上拼音而汉字也存在,不能直接转为拼音的.
楼下的方法,只是加上拼音而汉字也存在,不能直接转为拼音的.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在word 和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中,拼音在字的上面。
选中内容----格式---拼音指南
但,在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中,拼音在字的上面。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
去下载个汗音转换器
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询