快捷键填充法拼音首码.docx

ID:49169939

大小:1.00 MB

页数:8页

时间:2020-02-29

快捷键填充法拼音首码.docx_第1页
快捷键填充法拼音首码.docx_第2页
快捷键填充法拼音首码.docx_第3页
快捷键填充法拼音首码.docx_第4页
快捷键填充法拼音首码.docx_第5页
资源描述:

《快捷键填充法拼音首码.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快捷键填充法·选中需要填充的区域,以

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
正文描述:

《快捷键填充法拼音首码.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. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。
关闭