如何将汉字转换成拼音
怎样将汉字转换为拼音
Q1: EXCEL里面怎么将汉字转换成拼音?
自定义函数,借用VLOOKUP函数。
宏代码如下:
(EXCEL表免费奉上,见附件)
Public Function MyFun(rng1 As Range) As String
Dim Len_rng1 As Integer
Dim aa As String
aa = ""
Len_rng1 = Len(rng1.Value)
For i = 1 To Len_rng1
A1 = Mid(rng1.Value, i, 1)
If aa = "" Then aa = Application.WorksheetFunction.VLookup(A1, Sheet2.Range("A:B"), 2, False) Else aa = aa & " " & Application.WorksheetFunction.VLookup(A1, Sheet2.Range("A:B"), 2, False)
Next
MyFun = aa
End Function
Q2: 怎么将Word文字转换为拼音
用Word将整篇文章转换成拼音如果想把整篇文章转换成拼音字母而且还需要在转换成拼音字母后仍保留原文中的数字、英语字母、标点符号、段落等内容,则可以用下面的方法来实现。、
一、先输入(打开)需要转换的文本,用“拼音指南”给文本全部标注上拼音。然后选中标注好拼音的全部文字,右击选择“切换域代码”,此时选中内容将会变成类似图1的样子。二、单击菜单“编辑--替换”打开替换窗口,在查找内容中输入“[)]*[)]”,“替换为”中则输入一个半角的空格。点击“高级”按钮显示高级选项,点选“使用通配符”复选项(图2)。点击“全部替换”按钮,然后一直确定完成替换。
三、再输入查找内容为“EQ*[(]*[(]”,“替换为”中输入“EQ ”(注意:EQ后面有一个半角的空格),同样点击“全部替换”按钮完成替换。按“Ctrl+A”组合键全选进行剪切,再“选择性粘贴”为“无格式文本”即可看到全文中汉字部分都已经变成拼音字母,而且原文中的数字、英语字母、标点符号、段落等内容也还在,
此外,在一开始用拼音指南标注拼音字母时,若留出部分汉字不标注拼音字母,转换成拼音这部分汉字不会转换成拼音字母,这样在转换拼音字母时就可以有选择的保留这部分汉字。特别注意:文中“(”和“)”的区别,千万不要搞混淆了,否则不成功。
Q3: excel怎么把汉字转换成拼音
Excel中可以利用自定义函数来实现将汉字转换成拼音。
所用工具:Office2007
举例说明如下:
1.将A列数据转换成拼音:
2.alt+F11插入模块,在模块中输入如下代码,代码很多(由于篇幅限制,无法将全部代码发上来,可以搜索汉字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.下拉填充,就可以得到全部汉字的拼音:
Q4: 汉字如何迅速转换成拼音?
1、把你要注拼音的汉字、词组或者段落,甚至是一小篇文章输入在WORD文档中;2、选择你要标注上拼音的汉字;3、点击文档菜单的“格式”,在其下拉菜单中点击“中文版式”,然后选择“拼音指南”;4、在“拼音指南”的对话框中选择“确定”。注意,这种方法一次只能为40个汉字字符标注拼音.如果你想给不短的文章标注拼音,就只能一段一段的标注了,否则你就要安装标注拼音的小软件. 补充: 在WORD选中拟加拼音的文字,点“格式/中文版式/拼音指南”,选择好对齐方式、字体、字号,预览满意后,点“组合/确定”即可。
Q6: 如何在excel中把汉字转换成拼音
软件版本:Office2013
方法如下:
1.Alt+F11,打开VBA编辑界面,插入模块,在模块中输入如下代码:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
……(受字数限制,中间部分省略)
Case -10254 To -10254: pinyin = "zuo "
Case Else: pinyin = p
End Select
End Function
Function py(x)
For i = 1 To Len(x)
py = py & pinyin(Mid(x, i, 1))
Next i
End Function
2.回到Excel中,输入公式如下:
=py(A1)
3.下拉填充得到结果如下:
Www.jIz%HuBA.com小提示:内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。