首页 > Excel > Excel教你认字-自定义函数实现汉字转拼音

Excel教你认字-自定义函数实现汉字转拼音

2010年6月17日 Surda 发表评论 阅读评论

在日常工作或生活,时尔会碰到一些不认识的汉字。像昮、卆、剚、沝等等,当我们碰到这些不认识的字时,我们或百度、或GOOGLE,有的办公室【OL】可能也会用WORD拼音指南功能。

word2py.png

但surda经常需要处理报表、分析数字比较偏好MS Excel,一直想是否可以利用Excel反查汉字的拼音?需要如何调用拼音库?……word拼音指南可以做到将汉字转成拼音,什么原理?GOOLGE才知道,Word的拼音指南能够将汉字转成拼音全是倚仗微软拼音的帮助, 微软拼音2.0以上版本都提供了汉字到拼音的转换功能。微软拼音MSIME.China类中的IFELanguage接口具体实现了汉字、拼音转换功能…..

于是乎不停的搜索,居然找到了某高人VBA编写的现成类模块(HzToPy-Class)。下载测试了一下,功能何其强大,见下Demo.

hztopy.png

函数原型如下:    
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”),默认只显示首字母

点此下载此类模块。(代码请按ALT+F11查看)

ShareOn:
  •  
  1. marilyn
    2010年12月24日11:21 | #1

    真的是太好用了,非常感谢啊,找到这样好的网站真是幸福哦,赶紧收藏了!

  1. 2010年8月6日08:32 | #1