文档库

最新最全的文档下载
当前位置:文档库 > Excel自定义函数方法 拼音

Excel自定义函数方法 拼音

Excel自定义函数方法:

1.启动Excel 2003

(其它版本请仿照操作)

,打开相应的工作表;

2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;

3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑

状态;

4.将代码输入其中;

5.代码输入完成后,关闭

V

isual Basic

编辑窗口,返回

Excel

编辑状态;

6.

自定义函数就可以用了,如:选中

D2

单元格,输入公式:

=getpy(A2)

有极个别的汉字不能转换,手动就可以了!很方便了。

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”