VBA 一鍵中文轉(zhuǎn)拼音

昨天發(fā)了文章后有人問Excel中是否有函數(shù)可以把中文轉(zhuǎn)為拼音,類似“張小凡”轉(zhuǎn)為“zhangxiaofan”,答案是目前的Excel版本中是沒有的,那么我們能不能利用Excel現(xiàn)有的工具實現(xiàn)這個功能呢?答案是肯定的

方法一:創(chuàng)建一個全部漢字&拼音的配置表,轉(zhuǎn)換時進行關(guān)聯(lián)匹配

優(yōu)點:多音字用戶可以自由選擇,生僻字不會漏掉

缺點:耗時久,效率低

下面簡單舉個例子給大家

1、配置表中文轉(zhuǎn)拼音

因為時間原因函數(shù)設(shè)置僅支持兩位名稱

另外還有一種簡單方便的辦法

方法二:漢字在編碼表中存在固定的順序,把一部分范圍的漢字直接指向某一個拼音即可

優(yōu)點:簡單快捷,用戶使用方便

缺點:自編函數(shù),多音字需手動更改,生僻字無法判斷

2、函數(shù)中文轉(zhuǎn)拼音

3、函數(shù)中文轉(zhuǎn)拼音且首字母大寫

第二種方法簡單好用,且適用面廣,推薦大家用,方法是利用VBA自建函數(shù)

先用個簡單的例子給大家介紹一下:判斷一個數(shù)的奇偶性,為奇數(shù)則返回該數(shù)字加一后的值除以二,為偶數(shù)返回該數(shù)字除以二

方法:同時按住 ALT+F11,選擇 插入-模塊 ,將下面這段編碼寫入,保存

Function xxx(inte)

x = inte Mod 2

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

End Function

效果:

告訴大家一個彩蛋,不管是什么數(shù)字一直用這個函數(shù)計算的話,最終返回的結(jié)果都是1

對于中文轉(zhuǎn)拼音這個函數(shù),方法是一模一樣的,區(qū)別的地方在于,要粘貼的代碼是另一段代碼,代碼較長,大家可以去網(wǎng)盤下載

鏈接: https://pan.baidu.com/s/1RxAuKOXMwgNwReTp3rLwQA 密碼: um9a

就這樣,下期見

喜歡我就微信掃描下面這個萌萌的二維碼關(guān)注我吧~

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成,瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點,簡書系信息發(fā)布平臺,僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容