VBA 一键中文转拼音

昨天发了文章后有人问Excel中是否有函数可以把中文转为拼音,类似“张小凡”转为“zhangxiaofan”,答案是目前的Excel版本中是没有的,那么我们能不能利用Excel现有的工具实现这个功能呢?答案是肯定的

方法一:创建一个全部汉字&拼音的配置表,转换时进行关联匹配

优点:多音字用户可以自由选择,生僻字不会漏掉

缺点:耗时久,效率低

下面简单举个例子给大家

1、配置表中文转拼音

VBA 一键中文转拼音_第1张图片

因为时间原因函数设置仅支持两位名称

另外还有一种简单方便的办法

方法二:汉字在编码表中存在固定的顺序,把一部分范围的汉字直接指向某一个拼音即可

优点:简单快捷,用户使用方便

缺点:自编函数,多音字需手动更改,生僻字无法判断

2、函数中文转拼音

VBA 一键中文转拼音_第2张图片

3、函数中文转拼音且首字母大写

VBA 一键中文转拼音_第3张图片

第二种方法简单好用,且适用面广,推荐大家用,方法是利用VBA自建函数

先用个简单的例子给大家介绍一下:判断一个数的奇偶性,为奇数则返回该数字加一后的值除以二,为偶数返回该数字除以二

方法:同时按住 ALT+F11,选择 插入-模块 ,将下面这段编码写入,保存

Function xxx(inte)

x = inte Mod 2

If x = 0 Then xxx = inte / 2 Else xxx = (inte + 1) / 2

End Function

效果:

VBA 一键中文转拼音_第4张图片

告诉大家一个彩蛋,不管是什么数字一直用这个函数计算的话,最终返回的结果都是1

对于中文转拼音这个函数,方法是一模一样的,区别的地方在于,要粘贴的代码是另一段代码,代码较长,大家可以去网盘下载

链接: https://pan.baidu.com/s/1RxAuKOXMwgNwReTp3rLwQA 密码: um9a

就这样,下期见

喜欢我就微信扫描下面这个萌萌的二维码关注我吧~

你可能感兴趣的