Excel147 漢字添加拼音

問題來源

一位教育界的同仁提出的這個「給漢字加拼音」的問題。

EXCEL在漢字拼音加註方面提供的功能較少。

如果字數特別少，就幾個漢字，可以利用【開始】——【顯示和隱藏拼音欄位】進行手工加註；

如果漢字量再稍達，可以EXCEL與WORD強強聯手；

如果漢字量再大，字數多到上百上千行，那就需要動用VBA。

分情況解析

幾個漢字加拼音

操作過程如動圖：

GIF/131K

注意事項：

1、選中【開始】——【顯示和隱藏拼音欄位】，並不能顯示拼音，拼音需要自己手工輸入；

2、拼音與漢字的大小不能同時設置：拼音的大小需要【開始】——【顯示和隱藏拼音欄位】——【拼音設置】中修改；

3、如果將拼音提取到另外一列，需要函數PHONETIC。

漢字量稍大的情況——EXCEL與WORD聯手

操作過程如動圖：

GIF/1536K

注意事項：

1、每個漢字注音之間是否有間隔，是由漢字之間是否有間隔決定的，如果希望字與字注音分隔，需漢字之間加空格，加空格可用公式：

=TRIM(LEFT(E1)&" "&MID(E1,2,1)&" "&MID(E1,3,1))

如果有四個字的名字，公式可以再加一個提取部分。

2、如果想讓每個漢字注音首字母大寫，可用PROPER函數，如下圖：

漢字量很大的情況——VBA：

這個VBA代碼的敲起來，是相當大的一項工程，要把漢字對應拼音庫都得輸入：

GIF/725K

這樣的代碼量，可不是韓老師一個腦袋短時間內完成的，韓老師在EXCELHOME網上直接下載的高手編寫的，共享在這裡，大家可以直接拿來使用。

用法如下圖：

其中「=PINYIN(A1," ",2)」就是VBA自定義函數。

我們再次謝過高手的分享：

鏈接：http://pan.baidu.com/s/1c3zC9C

密碼：v3qj

如果在其他EXCEL文件里用這個函數，記得要用ALT+F11打開VBA窗口，新建一個模塊，把代碼都拷過去！

點擊展開全文

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！