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

下载本文档

4
0
约2.34千字
约 8页
2019-01-16 发布于广东
举报
版权申诉

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

1、本文档共8页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

新建一个Excel文件，输入示例汉字内容。 END 二、设置【开发工具】菜单 1 【文件】-【选项】-【自定义功能区】-【主选项卡】-勾选【开发工具】点击确定以后，导航菜单里增加一项【开发工具】 END 三、自定义函数 1 打开【开发工具】菜单，点击第一个【Visual Basic】,弹出代码窗口，在窗口左侧空白处，点击右键，选择【插入】-【模块】。窗口右侧出现一个白色背景框。复制粘贴如下内容到右侧框中（虚线之间的内容，不含虚线）： --------------------------------------------------------------------- Function getpychar(char) ? ? tmp = 65536 + Asc(char) ? ? If (tmp = 45217 And tmp = 45252) Then ? ? getpychar = A ? ? ElseIf (tmp = 45253 And tmp = 45760) Then ? ? getpychar = B ? ? ElseIf (tmp = 45761 And tmp = 46317) Then ? ? getpychar = C ? ? ElseIf (tmp = 46318 And tmp = 46825) Then ? ? getpychar = D ? ? ElseIf (tmp = 46826 And tmp = 47009) Then ? ? getpychar = E ? ? ElseIf (tmp = 47010 And tmp = 47296) Then ? ? getpychar = F ? ? ElseIf (tmp = 47297 And tmp = 47613) Then ? ? getpychar = G ? ? ElseIf (tmp = 47614 And tmp = 48118) Then ? ? getpychar = H ? ? ElseIf (tmp = 48119 And tmp = 49061) Then ? ? getpychar = J ? ? ElseIf (tmp = 49062 And tmp = 49323) Then ? ? getpychar = K ? ? ElseIf (tmp = 49324 And tmp = 49895) Then ? ? getpychar = L ? ? ElseIf (tmp = 49896 And tmp = 50370) Then ? ? getpychar = M ? ? ElseIf (tmp = 50371 And tmp = 50613) Then ? ? getpychar = N ? ? ElseIf (tmp = 50614 And tmp = 50621) Then ? ? getpychar = O ? ? ElseIf (tmp = 50622 And tmp = 50905) Then ? ? getpychar = P ? ? ElseIf (tmp = 50906 And tmp = 51386) Then ? ? getpychar = Q ? ? ElseIf (tmp = 51387 And tmp = 51445) Then ? ? getpychar = R ? ? ElseIf (tmp = 51446 And tmp = 52217) Then ? ? getpychar = S ? ? ElseIf (tmp = 52218 And tmp = 52697) Then ? ? getpychar = T ? ? ElseIf (tmp = 52698 And tmp = 52979) Then ? ? getpychar = W ? ? ElseIf (tmp = 52980 And tmp = 53640) Then ? ? getpychar = X ? ? ElseIf (tmp = 53679 And tmp = 54480) Then ? ? getpychar = Y ? ? ElseIf (tmp = 54481 And tmp = 62289) Then ? ? getpychar = Z ? ? Else 如果不是中文，则不处理 ? ? getpychar = char ? ? End If End Function 逐个取ASC码 Function getpy(str) ? ? For i = 1 To Len(str) ? ? ? ? getpy = getpy getpychar(Mid(str, i, 1)) ? ? Next i End Fun