getpy函数用不了?
getpy函数用不了是因为excel没有添加成功。
推荐教程:excel教程
excel添加getpy函数的方法:
1、打开excel,同时按下alt+f11键,打开vbe界面,单击图片中所示的左上角空白处,选择“插入“,”模块“;
2、此时,就插入了一个模块,后面的代码就要放到这个模块中,保证右侧空白区域是模块代码的编辑区(最保险的做法是双击模块),然后执行下一步;
3、将下面的代码全部复制粘贴到空白区域;
function pinyin(p as string) as stringi = asc(p)select case icase -20319 to -20284: pinyin = "a"case -20283 to -19776: pinyin = "b"case -19775 to -19219: pinyin = "c"case -19218 to -18711: pinyin = "d"case -18710 to -18527: pinyin = "e"case -18526 to -18240: pinyin = "f"case -18239 to -17923: pinyin = "g"case -17922 to -17418: pinyin = "h"case -17417 to -16475: pinyin = "j"case -16474 to -16213: pinyin = "k"case -16212 to -15641: pinyin = "l"case -15640 to -15166: pinyin = "m"case -15165 to -14923: pinyin = "n"case -14922 to -14915: pinyin = "o"case -14914 to -14631: pinyin = "p"case -14630 to -14150: pinyin = "q"case -14149 to -14091: pinyin = "r"case -14090 to -13319: pinyin = "s"case -13318 to -12839: pinyin = "t"case -12838 to -12557: pinyin = "w"case -12556 to -11848: pinyin = "x"case -11847 to -11056: pinyin = "y"case -11055 to -2050: pinyin = "z"case else: pinyin = pend selectend functionfunction getpy(str)for i = 1 to len(str)getpy = getpy & pinyin(mid(str, i, 1))next iend function
4、关闭这个新界面,返回excel,然后就可以像excel自带的函数一样使用这个自定义的getpy函数了,它只有一个参数,参数可以直接指定单元格,也可以直接输入字符。
以上就是getpy函数用不了怎么办?的详细内容。