EXCEL汉字转拼音怎么转

如何在excel中把汉字转换成拼音~

第一步：创建自定义函数。代码如下：
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 getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
第二步：在A列输入汉字。如图：

第三步：在B列输入公式。如图：

汉字转拼音的完美解决方案～
err...至少是比较完美
经测试在office xp,2003,2007通过。

'***************************************************************************
'*
'* MODULE NAME: HzToPy
'* AUTHOR & DATE: tt.t
'* 29 March 2007
'*
'* Usage: Function HzToPy(HzStr as String) as String
'* e.g. Msgbox HzToPy("奥斯") will display ao4si1 with mspy2.0
'*
'*
'* DESCRIPTION: 将中文字符串转换为拼音，就这些～
'* 有汉字得到拼音其实并不是我很关心的一个问题，只是发现已经公开
'* 的方法有很大的缺陷，但WORD却做得很好，因此才尝试解决这个问题。
'* 过程比我预期的要曲折的多，主要是VBA实在是一种很受限制的语言。
'* 不过好在有Google和Olldbg，难题也仅仅是如何找到绕过限制的途径，
'* 终于在5个小时内搞定了一切～
'* 时间比我预计的长了很多，因为我实在是不了解VBA，也不很熟悉OLE:"(
'* 不过好在一切都解决了～～终于从VBA小白成长了一些。
'* 其实VBA也是很强大的～
'*
'* Theory： 废话了好多还是说说原理吧，虽然不是每个人都很关心～
'* WORD的拼音向导能够将汉字转成拼音全是倚仗微软拼音的帮助，
'* 微软拼音2.0以上版本都提供了汉字到拼音的转换功能。
'* 微软拼音MSIME.China类中的IFELanguage接口具体实现了转换功能
'* 不过MSIME.China中没有提供IDispatch接口，VBA的CreateObject不支持
'* 调用这样的类，因此我们只好手工调用。CoCreateInstance可以创建类
'* 并获取IFELanguage接口，但我们无法直接调用，因为VBA不知道如何调用
'* IFELanguage接口的Method。这里困扰了我好久，原本希望能向其他语言那样
'* 声明接口结构，但VBA并不支持。万般无奈下只好在OLE相关DLL中寻找，期待能
'* 找到代理函数简介调用接口的Method。呵呵～功夫不负苦心人终于在OLEAUT32中
'* 找到了DispCallfunc。Google了一下，果然是我需要的。接口知道了，如何调用也
'* 清楚了，剩下的问题就是如何取得转换后的结果。IFELanguage.GetMorphResult会将
'* 转换的结果存在一个叫做tagMORRSLT的结构中，并返回指向tagMORRSLT的指针。
'* 新问题又来了，VBA不支持指针...sigh，为什么其他语言很容易实现的功能VBA用起来
'* 就这么烦呢～幸好VBA读取内存的限制也好突破，只需调用ntdll的RtlMoveMemory。
'* 好了～一切限制都已解除，HzToPy终于正常工作了～～
'* 说起来一切顺理成章，可是寻找解决方法的过程真的很痛苦，不过VBA经验值大涨也算有所收获。
'* 下面就让代码来说话吧。
'*
'*
'***************************************************************************
关键字：汉字 注音 拼音 IFELanguage vba DispCallfunc OLE
在废话一下，用windows ime api也可以实现汉字到拼音，但是在WINPY.ime中有个bug，
而且在2000 sp4~xp sp2一直存在，就是必须要将winnt\system32\winpy.mb考到系统盘根目录下才行。
这个bug存在了如此长的时间，估计是MS有意为之，鄙视一下。第二次更新：2007.04.05
似乎大家更喜欢直接使用函数而不是DIY，那就提供一个完整的函数供大家使用了 〔详细说明请看文件〕
函数原型如下：
HzToPy(Hz As String, Optional Sep As String = "", Optional ShowNotation As Boolean = True,
Optional ShowInitialOnly As Boolean, Optional ShowOnlyOneChar As Boolean = True) As String

参数名 参数类型 说明
第1个参数 Hz 字符型 为汉字字符串
第2个参数 Sep 字符型，可选 设定拼音间隔字符，默认为空（""）
第3个参数 ShowNotation 布尔型，可选 设定是否显示注音符号，默认显示
第4个参数 ShowInitialOnly 布尔型，可选 设定是否仅显示拼音首字，默认显示全部
第5个参数 ShowOnlyOneChar 布尔型，可选 设定是否仅显示拼音首字母("zh"显示为"z")，默认只显示首字母

应用举例
目标汉字： 汉字转拼音举例

1 显示用空格分开的拼音
公式： =HzToPy($b$19," ")
结果： hàn zì zhuǎn pīn yīn jǔ lì
2 显示用空格分开的拼音，同时不显示注音符号
公式： =HzToPy($b$19," ",false)
结果： han zi zhuan pin yin ju li
3 显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字,并大写
公式： =HzToPy($b$19," ",false，true，false)
结果： H Z ZH P Y J L
4 显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字母,并大写
公式： =HzToPy($b$19," ",false，true)
结果： H Z Z P Y J L 这里是第二次更新的文件：
参考：http://club.excelhome.net/thread-229924-1-1.html

在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中，拼音在字的上面。

没什么好办法啊，只有点小技巧，就是用替换把出现频率高的字换成拼音

用VBA代码可以解决，留下你Q号，我帮你！

---

利津县18494719647： Excel如何将汉字转成拼音 - ？
毋豪盐酸： EXCEL没发现在有这个功能.WORD倒是有给文字加拼音.操作方法如下:1、选中需要加拼音的汉字;2、选择格式菜单——中文版式——拼音指南;3、在拼音指南窗口,可以设置字体、字号、对齐方式等等;4、设置完成后,点确定.

利津县18494719647： 如何在excel中把汉字转换成拼音 - ？
毋豪盐酸： 在Word里 用拼音指南 把拼音加上 2003sp3 版本的有这个自动加上的功能…… 然后粘贴到 excel 中 用 PHONETIC 函数 提取……如果不喜欢这样的格式 那么逆序搜索一下 有人使用 VBA来提取的……无声调的 汉语拼音(类似英文的写法)……

利津县18494719647： 怎样能使EXCEL里的汉字变成拼音啊? - ？
毋豪盐酸： 应用举例 目标汉字: 汉字转拼音举例 1 显示用空格分开的拼音公式: =HzToPy($b$19,＂ ＂)结果: hàn zì zhuǎn pīn yīn jǔ lì 2 显示用空格分开的拼音,同时不显示注音符号公式: =HzToPy($b$19,＂ ＂,false)结果: han zi zhuan pin yin ju ...

利津县18494719647： Excel中如何根据汉字在后面的单元格中显示拼音啊? - ？
毋豪盐酸： 函数原型如下: HzToPy(Hz As String, Optional Sep As String = ＂＂, Optional ShowNotation As Boolean = True, Optional ShowInitialOnly As Boolean, Optional ShowOnlyOneChar As Boolean = True) As String 参数名 参数类型 说明 第1个参数 ...

利津县18494719647： excel里中文名如何转换成拼音 - ？
毋豪盐酸： 先把EXCEL里面要转换的全部导出来记事本上,再把此记事本上的文字用转拼音,再复制粘贴到EXCEL

利津县18494719647： excel怎么把把的汉字转换成拼音 - ？
毋豪盐酸： 这个可以用VBA编写自定义函数解决.但是对于生僻字和多音字并不能完全正确识别.打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧空白处点击右键,“插入”,“模块”.右侧空白处粘贴下面的代码.关闭VBA窗口. 代码太长,超字数限制了,请从这里下载:http://pan.baidu.com/s/1bnCn9fD然后在需要的地方输入公式:=PINYIN(单元格地址) 即可. 如下图,在B1输入:=PINYIN(A1)

利津县18494719647： Excel 如何设置 把汉字变成 拼音的格式 - ？
毋豪盐酸： <p>用自定义函数与EXCEL函数结合,如图,如附件.记得加载宏;</p> =SUBSTITUTE(SUBSTITUTE(Getpy(A1),MID(Getpy(A1),1,FIND(＂ ＂,Getpy(A1))),＂＂),＂ ＂,＂＂) & ＂ ＂ & MID(Getpy(A1),1,FIND(＂ ＂,Getpy(A1)))<p></p> <p> </p>

利津县18494719647： 如何实现在excel 中 让单元格的汉字变成拼音? 简单的流程最好! - ？
毋豪盐酸： ＂http://club.excelhome.net/thread-229924-1-1.html“ 去看看吧

利津县18494719647： EXCEL汉字转拼音怎么转 - ？
毋豪盐酸： 你可以下载一个汉字转换拼音的软件,转换后复制到excel,下载地址:http://www.duote.com/soft/12702.html

利津县18494719647： excel如何把人名转拼音 - ？
毋豪盐酸： 例: A1是人名 B1输入以下公式: =VLOOKUP(A1,{＂＂,＂＂;＂吖＂,＂A＂;＂八＂,＂B＂;＂嚓＂,＂C＂;＂咑＂,＂D＂;＂鵽＂,＂E＂;＂发＂,＂F＂;＂猤＂,＂G＂;＂铪＂,＂H＂;＂夻＂,＂J＂;＂咔＂,＂K＂;...