没有合适的资源?快使用搜索试试~ 我知道了~
温馨提示
试读
10页
Excel中文转拼音(完整版) 打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为"模块1",点击 在右边的空白栏中粘贴以下内容: Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a " Case -20317 To -20305: pinyin = "ai " Case -20304 To -20296: pinyin = "an " Case -20295 To -20293: pinyin = "ang " Case -20292 To -20284: pinyin = "ao " Case -20283 To -20266: pinyin = "ba " Case -20265 To -20258: pinyin = "bai " Case -20257 To -20243: pinyin = "ban " Case -20242 To -20231: pinyin = "bang " Case -20230 To -20052: pinyin = "bao " Case -20051 To -20037: pinyin = "bei " Case -20036 To -20033: pinyin = "ben "
资源推荐
资源详情
资源评论
Excel 中文转拼音(完整版)
打开 Excel->工具->宏->Viaual Basic 编辑器
在弹出来的窗口中对着 VBAproject 点右键->插入->模块
下面会出现一个名为"模块 1",点击
在右边的空白栏中粘贴以下内容:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20318: pinyin = "a "
Case -20317 To -20305: pinyin = "ai "
Case -20304 To -20296: pinyin = "an "
Case -20295 To -20293: pinyin = "ang "
Case -20292 To -20284: pinyin = "ao "
Case -20283 To -20266: pinyin = "ba "
Case -20265 To -20258: pinyin = "bai "
Case -20257 To -20243: pinyin = "ban "
Case -20242 To -20231: pinyin = "bang "
Case -20230 To -20052: pinyin = "bao "
Case -20051 To -20037: pinyin = "bei "
Case -20036 To -20033: pinyin = "ben "
Case -20032 To -20027: pinyin = "beng "
Case -20026 To -20003: pinyin = "bi "
Case -20002 To -19991: pinyin = "bian "
Case -19990 To -19987: pinyin = "biao "
Case -19986 To -19983: pinyin = "bie "
Case -19982 To -19977: pinyin = "bin "
Case -19976 To -19806: pinyin = "bing "
Case -19805 To -19785: pinyin = "bo "
Case -19784 To -19776: pinyin = "bu "
Case -19775 To -19775: pinyin = "ca "
Case -19774 To -19764: pinyin = "cai "
Case -19763 To -19757: pinyin = "can "
Case -19756 To -19752: pinyin = "cang "
Case -19751 To -19747: pinyin = "cao "
Case -19746 To -19742: pinyin = "ce "
Case -19741 To -19740: pinyin = "ceng "
Case -19739 To -19729: pinyin = "cha "
Case -19728 To -19726: pinyin = "chai "
Case -19725 To -19716: pinyin = "chan "
Case -19715 To -19541: pinyin = "chang "
Case -19540 To -19532: pinyin = "chao "
Case -19531 To -19526: pinyin = "che "
资源评论
- yiqi1862014-05-02zhenhaoya, 能开个论坛就好的
- robzai2013-03-22比较详细,有参考价值
- mountain1230001232013-07-08非常好用,谢谢。
xry506686
- 粉丝: 0
- 资源: 5
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功