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
- 阅读 ( 1867 )
- 分类：其他类型
admin
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章