Microsoft Excel 2016 VBA 中文漢字轉換成拼音
Excel 是我們最常用的辦公軟件，經由過程共同利用VBA劇本，能使我們的辦公效率起到“事半功倍”的結果。接下來分享用 EXCEL VBA 實現 中文漢字主動轉換為拼音的方式。
東西/原料
- Microsoft Excel 2016 （完整版）
- VBA 劇本文件.txt
- 資本下載鏈接：1GWoTaHT3fgmC6cKN9RaJzw 提取碼：kwxo
籌辦工作
- 1
開啟 Excel 2016 的 “開辟東西”：
打開 Excel ，新建一個空白文件，在“功能區”肆意空白處右鍵，選擇“自界說功能區(R)...”，在右側窗口中勾選“開辟東西”，點擊“確定”。
- 2
下載 專門建造的 “VBA 劇本文件.txt”
下載鏈接：1GWoTaHT3fgmC6cKN9RaJzw 提取碼：kwxo
方式/步調
- 1
成立輸出表格樣式，可參考如圖：
現實工作中，按照本身需要成立格局。
- 2
將當前做好的 Excel 工作簿 另存為 “漢字轉拼音.xlsm” 文件
點擊“文件”--“另存為”--輸入“文件名”--選擇“Excel 啟用宏的工作簿(*.xlsm)”--“保留”。
- 3
打開 VBA 開辟情況：
點擊菜單“開辟情況”--選擇“Visual Basic”。
- 4
新建 VBA 模塊：
左側肆意對象上右鍵，選擇“插入(N)”--“模塊(M)”，即可打開模塊的代碼編纂窗口。
- 5
成立自界說 VBA 轉換函數 GetPinYin()
打開下載好的“VBA 劇本文件.txt”文件，將所有代碼復制并粘貼到“模塊1（代碼）”編纂框中，點擊“保留”，點擊“封閉”，回到 Excel 編纂界面。
（注重：是封閉 如圖 VBA 的開辟窗口）
- 6
按之前設心猿意馬的格局位置輸入 VBA 自界說函數并回車：
=GetPinYin(C3,1)
=GetPinYin(C7,0)
=GetPinYin(C11,0)
=CONCATENATE(D11,"@163.com")
- 7
落成結果
函數申明
- 1
自界說函數GetPinYin() 和 系統函數CONCATENATE() 參數申明。
注重事項
- 此功能僅能在微軟（Microsoft）Excel 情況合用，WPS未測試。
- Excel 軟件必然要裝完整版，精簡版可能無法利用 VBA 功能，或者會有異常。
- 做完跋文得保留退出。
- 下次再打開此類帶有宏的工作薄（*.xlsm）時，會有宏平安提醒，必然要選擇啟用，不然功能無法正常利用。
- 發表于 2019-04-23 22:02
- 閱讀 ( 1729 )
- 分類：其他類型
admin
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章