最新在excel中把汉字转换成拼音(只取首字母).doc

《最新在excel中把汉字转换成拼音(只取首字母).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、__________________________________________________打开Excel->工具->宏->ViaualBasic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：Functionpinyin(pAsString)AsStringi=Asc(p)SelectCaseiCase-20319To-20284:pinyin="A"Case-20283To-19776:pinyin=

2、"B"Case-19775To-19219:pinyin="C"Case-19218To-18711:pinyin="D"Case-18710To-18527:pinyin="E"Case-18526To-18240:pinyin="F"Case-18239To-17923:pinyin="G"Case-17922To-17418:pinyin="H"Case-17417To-16475:pinyin="J"Case-16474To-16213:pinyin="K"Case-16212To-15

3、641:pinyin="L"Case-15640To-15166:pinyin="M"Case-15165To-14923:pinyin="N"Case-14922To-14915:pinyin="O"Case-14914To-14631:pinyin="P"收集于网络，如有侵权请联系管理员删除__________________________________________________Case-14630To-14150:pinyin="Q"Case-14149To-14091:piny

4、in="R"Case-14090To-13319:pinyin="S"Case-13318To-12839:pinyin="T"Case-12838To-12557:pinyin="W"Case-12556To-11848:pinyin="X"Case-11847To-11056:pinyin="Y"Case-11055To-2050:pinyin="Z"CaseElse:pinyin=pEndSelectEndFunctionFunctiongetpy(str)Fori=1ToLen(str)

5、getpy=getpy&pinyin(Mid(str,i,1))NextiEndFunction********复制到此结束,本行不复制*******现在转换函数已编写完成!关掉此编缉的窗口。要在Excel中使用，方法如下：A1A2中国=getpy(A1)2015初中地理会考试题（本试卷满分100分，考试时间60分钟）第Ⅰ卷（选择题共50分）一、选择题（下列各题的四个选项中，只有一项最符合题意。每小题2分，共50分）收集于网络，如有侵权请联系管理员删除______________________

6、____________________________读图1“我国的疆域示意图”，完成1—3题。①②AB图11、有关我国地理位置的叙述，正确的是A、北回归线穿过我国南部B、最北端在漠河，最南端在曾母暗沙C、我国领土跨热带、北温带、北寒带D、我国位于东半球，亚洲的东部，东临大西洋2、图中①、②所代表的邻国是A、蒙古、日本B、菲律宾、哈萨克斯坦C、蒙古、菲律宾D、哈萨克斯坦、日本3、春节前后，当我国B省还是冰天雪地时，A省已是春耕大忙季节了，这主要是因为A、两地所跨的纬度大B、两地所跨的经度大C、

7、两地地形不同D、两地生产习惯不同4、王刚同学的居住地有一口井，每年只有一天有阳光直射井底的现象，王刚同学有可能住在下列哪些省份？A．台、闽、粤、桂          B．滇、黔、粤、闽C．云、桂、粤、台       D．粤、闽、桂、滇.读下图，回答5、6题。收集于网络，如有侵权请联系管理员删除