作者:乔山办公网日期:
返回目录:excel表格制作
以Excel2007为例:
1、打开相应的Excel文件,按“Alt+F11”组合键,弹出“Visual Basic编辑器”如下图:
2、鼠标点击“Visual Basic编辑器”菜单栏的“插入”选项,选择下拉列表里的“模块”,插入“模块”,如下图:
3、将下面的代码复制粘贴到里面:Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >= 45217 And tmp = 45253 And tmp = 45761 And tmp = 46318 And tmp = 46826 And tmp = 47010 And tmp = 47297 And tmp = 47614 And tmp = 48119 And tmp = 49062 And tmp = 49324 And tmp = 49896 And tmp = 50371 And tmp = 50614 And tmp = 50622 And tmp = 50906 And tmp = 51387 And tmp = 51446 And tmp = 52218 And tmp = 52698 And tmp = 52980 And tmp = 53679 And tmp = 54481 And tmp
本文标签: