随笔分类 -  Excel

获取汉字首字母
摘要：打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Thengetpychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Thengetpychar = &qu 阅读全文
posted @ 2012-05-07 16:10 一篮饭特稀 阅读(272) 评论(0) 推荐(0)