正文描述:《快捷键填充法拼音首码.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、1.新建一个Excel文件,输入示例汉字内容。END二、设置【开发工具】菜单1.1【文件】->【选项】->【自定义功能区】->【主选项卡】->勾选【开发工具】点击确定以后,导航菜单里增加一项【开发工具】END三、自定义函数1.1打开【开发工具】菜单,点击第一个【VisualBasic】,弹出代码窗口,在窗口左侧空白处,点击右键,选择【插入】->【模块】。窗口右侧出现一个白色背景框。复制粘贴如下内容到右侧框中(虚线之间的内容,不含虚线):------------------------------------
2、---------------------------------Functiongetpychar(char) tmp=65536+Asc(char) If(tmp>=45217Andtmp<=45252)Then getpychar="A" ElseIf(tmp>=45253Andtmp<=45760)Then getpychar="B" ElseIf(tmp>=45761Andtmp<=46317)Then getpychar="C" ElseIf(tmp>=46318Andtmp<=
3、46825)Then getpychar="D" ElseIf(tmp>=46826Andtmp<=47009)Then getpychar="E" ElseIf(tmp>=47010Andtmp<=47296)Then getpychar="F" ElseIf(tmp>=47297Andtmp<=47613)Then getpychar="G" ElseIf(tmp>=47614Andtmp<=48118)Then getpychar="H" ElseIf(tmp>=48119Andt
4、mp<=49061)Then getpychar="J" ElseIf(tmp>=49062Andtmp<=49323)Then getpychar="K" ElseIf(tmp>=49324Andtmp<=49895)Then getpychar="L" ElseIf(tmp>=49896Andtmp<=50370)Then getpychar="M" ElseIf(tmp>=50371Andtmp<=50613)Then getpychar="N" ElseIf(tmp>=50614
5、Andtmp<=50621)Then getpychar="O" ElseIf(tmp>=50622Andtmp<=50905)Then getpychar="P" ElseIf(tmp>=50906Andtmp<=51386)Then getpychar="Q" ElseIf(tmp>=51387Andtmp<=51445)Then getpychar="R" ElseIf(tmp>=51446Andtmp<=52217)Then getpychar="S" ElseIf(tmp>=5
6、2218Andtmp<=52697)Then getpychar="T" ElseIf(tmp>=52698Andtmp<=52979)Then getpychar="W" ElseIf(tmp>=52980Andtmp<=53640)Then getpychar="X" ElseIf(tmp>=53679Andtmp<=54480)Then getpychar="Y" ElseIf(tmp>=54481Andtmp<=62289)Then getpychar="Z" Else'如果不是
7、中文,则不处理 getpychar=char EndIfEndFunction'逐个取ASC码Functiongetpy(str) Fori=1ToLen(str) getpy=getpy&getpychar(Mid(str,i,1)) NextiEndFunction---------------------------------------------------------------------1.2点击菜单中【保存】,弹出一个提示框,点【是】,再次弹出一个提示框,点【确定】。END
8、三、调用自定义函数1.1关闭代码窗口,回到Excel文件。鼠标定位到“拼音首字母”列第一行(C2单元格)。在函数框中输入=getpy(B2),(调用自定义函数,获取B2单元格中汉字内容首字母)回车,可以看到获取到B2单元格中内容的首字母。END四、生成首字母1.鼠标定位到单元格C2右下角,光标变成黑色十字,按住鼠标左键往下拉至C15行。获取全部内容的首字母。END最终效果1.1快捷键填充法·选中需要填充的区域,以
显示全部收起
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。