时间：2020-07-08 11:40作者：admin来源：未知人气：1373我要评论(0)
在 Excel 中将汉字转换为拼音一直都是一个很大的难题，很多的用户希望有这样的一个函数能直接将汉字转为拼音。但是微软自带的函数只能够获取到汉字拼音的首字母, 网络上的其他解决方案也很是不完善(比如多音字的处理等)。这里提供一个比较完美的解决方案，具体见原作者说明：
请确认安装了微软拼音输入法，如出现注音错误，可尝试安装最新版本微软拼音。
'***************************************************************************
'*
'* Module: HzToPy
'*
'* Description: 将中文字符串转换为拼音，就这些。原先这里写了太多废话，删了。
'*
'* Theory: 原理依然是通过IFELanguage接口实现。
'* 唯一需要解释的是如何解决多音字正确注音的问题。
'* IFELanguage接口是能够正确返回很多多音字拼音的，但多音字的读音只有特定词汇中
'* 才能确认，因此在解析拼音时候不能把词拆成单字，否则多音字返回的拼音就很可能不对。
'* 之前版本中就是因为把词拆开获取拼音导致多音字拼音错误。
'* 这次的更新利用接口返回数据中标识每个拼音长度的数组实现了对返回拼音
'* 的按字拆分，无需再把词拆成字获取单个字的拼音，从而解决了多音字问题。
'* 需要说明的是，VB_MORRSLT结构就是MS文档中的MORRSLT结构，但是VBA自定义结构
'* 无法实现不按4字节对齐，使得不得不修改MORRSLT的定义方式，能这样修改只能说运气不错，
'* 因为被修改的部分刚好获取拼音用不到。
'*
'* Histroy:
'* 2011-09-23
'* ● 重写主要代码，支持多音字，提高了运行效率。
'* ● 取拼音首字时，ao, ai, ei, ou, er作为首字而不是原来的第一个字母。
'* ● 为函数增加了注音方式选择，hàn可以显示为han或han4。
'* ● 函数的使用与之前版本兼容，将模块中函数代码和HZ2PY类代码覆盖之前版本即可实现升级，
'* 无需修改文档中的公式。
'* 2011-04-07
'* ● 更正CoTaskMemFree传递参数错误，消除了Win7等环境下崩溃。
'* 2007-04-03
'* ● 更正redim时vba数组默认起始值错误。
'* 2007-04-02
'* ● 最初版本，实现了由汉字获取拼音。
'*
'***************************************************************************
汉字转拼音举例：重庆重要1234，澳门
显示用空格分开的拼音
公式： =HzToPy($b$14," ")
结果： hàn zì zhuǎn pīn yīn jǔ lì ： chóng qìng zhòng yào 1 2 3 4 ， ào mén
显示用-分开的拼音，同时不显示注音符号
公式： =HzToPy($b$14,"-",false)
结果： han-zi-zhuan-pin-yin-ju-li-：-chong-qing-zhong-yao-1-2-3-4-，-ao-men
显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字,并大写
公式： =HzToPy($b$14, " ", false，true，false)
结果： H Z ZH P Y J L ： CH Q ZH Y 1 2 3 4 ， AO M
显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字母,并大写
公式： =HzToPy($b$14 ," ", false，true, true)
结果： H Z Z P Y J L ： C Q Z Y 1 2 3 4 ， A M
1文件名称 1下载链接 HztoPy.zip http://pan.baidu.com/s/1pJ8urW3
相关阅读 Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法Excel数字乱码怎么办？这样处理1秒解决，完美！Excel办公小技巧，全学会了让你的效率一秒提升！如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法，最后一种效率最高excel如何将阿拉伯数字快速转换为中文大小写格式？excel如何利用公式快速在表格中批量输入五角星的方法如何利用Excel的强大抠图功能，简单2步抠出透明手写艺术签名！分享Excel中的一个神操作，掌握后可快速提高工作效率！
热门文章
excel柏拉图折线如何从0开始
Excel 如何将默认粘贴模式改为匹配目标格式
Excel表格一格分两格的方法图解教程
excel 如何使用数据透视表（Pivot Table）
最新文章
Excel表格数据设置到期自动销毁的方法
Excel数据分列的详细使用方法
Excel数字乱码怎么办？这样处理1秒解决，完美！Excel办公小技巧，全学会了让你的效率一秒提升！如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法，最后一种效率最高
人气排行 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表（Pivot Table）Excel中如何插入PDF文件Excel表格在一页A4纸上打印不下去，怎么办？excel保存了却不见了怎么办excel如何将两列数据一一对应
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>