操作方法
首先打开表格然后按f12另存为,如下图所示:
另存为宏表格,如下图所示:
然后按alt+f11打开宏命令按钮并插入模块,如下图所示:
在模块里插入如下代码: Function duqupingyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: duqupingyin = "a " Case -20317 To -20305: duqupingyin = "ai " Case -20304 To -20296: duqupingyin = "an " Case -20295 To -20293: duqupingyin = "ang " Case -20292 To -20284: duqupingyin = "ao " Case -20283 To -20266: duqupingyin = "ba " Case -20265 To -20258: duqupingyin = "bai " Case -20257 To -20243: duqupingyin = "ban " Case -20242 To -20231: duqupingyin = "bang " Case -20230 To -20052: duqupingyin = "bao " Case -20051 To -20037: duqupingyin = "bei " Case -20036 To -20033: duqupingyin = "ben " Case -20032 To -20027: duqupingyin = "beng " Case -20026 To -20003: duqupingyin = "bi " Case -20002 To -19991: duqupingyin = "bian " Case -19990 To -19987: duqupingyin = "biao " Case -19986 To -19983: duqupingyin = "bie " Case -19982 To -19977: duqupingyin = "bin " Case -19976 To -19806: duqupingyin = "bing " Case -19805 To -19785: duqupingyin = "bo " Case -19784 To -19776: duqupingyin = "bu " Case -19775 To -19775: duqupingyin = "ca " Case -19774 To -19764: duqupingyin = "cai " Case -19763 To -19757: duqupingyin = "can " Case -19756 To -19752: duqupingyin = "cang " Case -19751 To -19747: duqupingyin = "cao " Case -19746 To -19742: duqupingyin = "ce " Case -19741 To -19740: duqupingyin = "ceng " Case -19739 To -19729: duqupingyin = "cha " Case -19728 To -19726: duqupingyin = "chai " Case -19725 To -19716: duqupingyin = "chan " Case -19715 To -19541: duqupingyin = "chang " Case -19540 To -19532: duqupingyin = "chao " Case -19531 To -19526: duqupingyin = "che " Case -19525 To -19516: duqupingyin = "chen " Case -19515 To -19501: duqupingyin = "cheng " Case -19500 To -19485: duqupingyin = "chi " Case -19484 To -19480: duqupingyin = "chong " Case -19479 To -19468: duqupingyin = "chou " Case -19467 To -19290: duqupingyin = "chu " Case -19289 To -19289: duqupingyin = "chuai " Case -19288 To -19282: duqupingyin = "chuan " Case -19281 To -19276: duqupingyin = "chuang " Case -19275 To -19271: duqupingyin = "chui " Case -19270 To -19264: duqupingyin = "chun " Case -19263 To -19262: duqupingyin = "chuo " Case -19261 To -19250: duqupingyin = "ci " Case -19249 To -19244: duqupingyin = "cong " Case -19243 To -19243: duqupingyin = "cou " Case -19242 To -19239: duqupingyin = "cu " Case -19238 To -19236: duqupingyin = "cuan " Case -19235 To -19228: duqupingyin = "cui " Case -19227 To -19225: duqupingyin = "cun " Case -19224 To -19219: duqupingyin = "cuo " Case -19218 To -19213: duqupingyin = "da " Case -19212 To -19039: duqupingyin = "dai " Case -19038 To -19024: duqupingyin = "dan " Case -19023 To -19019: duqupingyin = "dang " Case -19018 To -19007: duqupingyin = "dao " Case -19006 To -19004: duqupingyin = "de " Case -19003 To -18997: duqupingyin = "deng " Case -18996 To -18978: duqupingyin = "di " Case -18977 To -18962: duqupingyin = "dian " Case -18961 To -18953: duqupingyin = "diao " Case -18952 To -18784: duqupingyin = "die " Case -18783 To -18775: duqupingyin = "ding " Case -18774 To -18774: duqupingyin = "diu " Case -18773 To -18527: duqupingyin = "dong " Case -18526 To -18519: duqupingyin = "fa " Case -18518 To -18502: duqupingyin = "fan " Case -18501 To -18491: duqupingyin = "fang " Case -18490 To -18479: duqupingyin = "fei " Case -18478 To -18464: duqupingyin = "fen " Case -18463 To -18449: duqupingyin = "feng " Case -18448 To -18448: duqupingyin = "fo " Case -18447 To -18447: duqupingyin = "fou " Case -18446 To -18240: duqupingyin = "fu " Case -18239 To -18238: duqupingyin = "ga " Case -18237 To -18232: duqupingyin = "gai " Case -18231 To -18221: duqupingyin = "gan " Case -18220 To -18212: duqupingyin = "gang " Case -18211 To -18202: duqupingyin = "gao " Case -18201 To -18185: duqupingyin = "ge " Case -18184 To -18184: duqupingyin = "gei " Case -18183 To -18182: duqupingyin = "gen " Case -18181 To -18013: duqupingyin = "geng " Case -18012 To -17998: duqupingyin = "gong " Case -17997 To -17989: duqupingyin = "gou " Case -17988 To -17971: duqupingyin = "gu " Case -17970 To -17965: duqupingyin = "gua " Case -17964 To -17962: duqupingyin = "guai " Case -17961 To -17951: duqupingyin = "guan " Case -17950 To -17948: duqupingyin = "guang " Case -17947 To -17932: duqupingyin = "gui " Case -17931 To -17929: duqupingyin = "gun " Case -17928 To -17923: duqupingyin = "guo " Case -17922 To -17760: duqupingyin = "ha " Case -17759 To -17753: duqupingyin = "hai " Case -17752 To -17734: duqupingyin = "han " Case -17733 To -17731: duqupingyin = "hang " Case -17730 To -17722: duqupingyin = "hao " Case -17721 To -17704: duqupingyin = "he " Case -17703 To -17702: duqupingyin = "hei " Case -17701 To -17698: duqupingyin = "hen " Case -17697 To -17693: duqupingyin = "heng " Case -17692 To -17684: duqupingyin = "hong " Case -17683 To -17677: duqupingyin = "hou " Case -17676 To -17497: duqupingyin = "hu " Case -17496 To -17488: duqupingyin = "hua " Case -17487 To -17483: duqupingyin = "huai " Case -17482 To -17469: duqupingyin = "huan " Case -17468 To -17455: duqupingyin = "huang " Case -17454 To -17434: duqupingyin = "hui " Case -17433 To -17428: duqupingyin = "hun " Case -17427 To -17418: duqupingyin = "huo " Case -17417 To -17203: duqupingyin = "ji " Case -17202 To -17186: duqupingyin = "jia " Case -17185 To -16984: duqupingyin = "jian " Case -16983 To -16971: duqupingyin = "jiang " Case -16970 To -16943: duqupingyin = "jiao " Case -16942 To -16916: duqupingyin = "jie " Case -16915 To -16734: duqupingyin = "jin " Case -16733 To -16709: duqupingyin = "jing " Case -16708 To -16707: duqupingyin = "jiong " Case -16706 To -16690: duqupingyin = "jiu " Case -16689 To -16665: duqupingyin = "ju " Case -16664 To -16658: duqupingyin = "juan " Case -16657 To -16648: duqupingyin = "jue " Case -16647 To -16475: duqupingyin = "jun " Case -16474 To -16471: duqupingyin = "ka " Case -16470 To -16466: duqupingyin = "kai " Case -16465 To -16460: duqupingyin = "kan " Case -16459 To -16453: duqupingyin = "kang " Case -16452 To -16449: duqupingyin = "kao " Case -16448 To -16434: duqupingyin = "ke " Case -16433 To -16430: duqupingyin = "ken " Case -16429 To -16428: duqupingyin = "keng " Case -16427 To -16424: duqupingyin = "kong " Case -16423 To -16420: duqupingyin = "kou " Case -16419 To -16413: duqupingyin = "ku " Case -16412 To -16408: duqupingyin = "kua " Case -16407 To -16404: duqupingyin = "kuai " Case -16403 To -16402: duqupingyin = "kuan " Case -16401 To -16394: duqupingyin = "kuang " Case -16393 To -16221: duqupingyin = "kui " Case -16220 To -16217: duqupingyin = "kun " Case -16216 To -16213: duqupingyin = "kuo " Case -16212 To -16206: duqupingyin = "la " Case -16205 To -16203: duqupingyin = "lai " Case -16202 To -16188: duqupingyin = "lan " Case -16187 To -16181: duqupingyin = "lang " Case -16180 To -16172: duqupingyin = "lao " Case -16171 To -16170: duqupingyin = "le " Case -16169 To -16159: duqupingyin = "lei " Case -16158 To -16156: duqupingyin = "leng " Case -16155 To -15960: duqupingyin = "li " Case -15959 To -15959: duqupingyin = "lia " Case -15958 To -15945: duqupingyin = "lian " Case -15944 To -15934: duqupingyin = "liang " Case -15933 To -15921: duqupingyin = "liao " Case -15920 To -15916: duqupingyin = "lie " Case -15915 To -15904: duqupingyin = "lin " Case -15903 To -15890: duqupingyin = "ling " Case -15889 To -15879: duqupingyin = "liu " Case -15878 To -15708: duqupingyin = "long " Case -15707 To -15702: duqupingyin = "lou " Case -15701 To -15682: duqupingyin = "lu " Case -15681 To -15668: duqupingyin = "lv " Case -15667 To -15662: duqupingyin = "luan " Case -15661 To -15660: duqupingyin = "lue " Case -15659 To -15653: duqupingyin = "lun " Case -15652 To -15641: duqupingyin = "luo " Case -15640 To -15632: duqupingyin = "ma " Case -15631 To -15626: duqupingyin = "mai " Case -15625 To -15455: duqupingyin = "man " Case -15454 To -15449: duqupingyin = "mang " Case -15448 To -15437: duqupingyin = "mao " Case -15436 To -15436: duqupingyin = "me " Case -15435 To -15420: duqupingyin = "mei " Case -15419 To -15417: duqupingyin = "men " Case -15416 To -15409: duqupingyin = "meng " Case -15408 To -15395: duqupingyin = "mi " Case -15394 To -15386: duqupingyin = "mian " Case -15385 To -15378: duqupingyin = "miao " Case -15377 To -15376: duqupingyin = "mie " Case -15375 To -15370: duqupingyin = "min " Case -15369 To -15364: duqupingyin = "ming " Case -15363 To -15363: duqupingyin = "miu " Case -15362 To -15184: duqupingyin = "mo " Case -15183 To -15181: duqupingyin = "mou " Case -15180 To -15166: duqupingyin = "mu " Case -15165 To -15159: duqupingyin = "na " Case -15158 To -15154: duqupingyin = "nai " Case -15153 To -15151: duqupingyin = "nan " Case -15150 To -15150: duqupingyin = "nang " Case -15149 To -15145: duqupingyin = "nao " Case -15144 To -15144: duqupingyin = "ne " Case -15143 To -15142: duqupingyin = "nei " Case -15141 To -15141: duqupingyin = "nen " Case -15140 To -15140: duqupingyin = "neng " Case -15139 To -15129: duqupingyin = "ni " Case -15128 To -15122: duqupingyin = "nian " Case -15121 To -15120: duqupingyin = "niang " Case -15119 To -15118: duqupingyin = "niao " Case -15117 To -15111: duqupingyin = "nie " Case -15110 To -15110: duqupingyin = "nin " Case -15109 To -14942: duqupingyin = "ning " Case -14941 To -14938: duqupingyin = "niu " Case -14937 To -14934: duqupingyin = "nong " Case -14933 To -14931: duqupingyin = "nu " Case -14930 To -14930: duqupingyin = "nv " Case -14929 To -14929: duqupingyin = "nuan " Case -14928 To -14927: duqupingyin = "nue " Case -14926 To -14923: duqupingyin = "nuo " Case -14922 To -14922: duqupingyin = "o " Case -14921 To -14915: duqupingyin = "ou " Case -14914 To -14909: duqupingyin = "pa " Case -14908 To -14903: duqupingyin = "pai " Case -14902 To -14895: duqupingyin = "pan " Case -14894 To -14890: duqupingyin = "pang " Case -14889 To -14883: duqupingyin = "pao " Case -14882 To -14874: duqupingyin = "pei " Case -14873 To -14872: duqupingyin = "pen " Case -14871 To -14858: duqupingyin = "peng " Case -14857 To -14679: duqupingyin = "pi " Case -14678 To -14675: duqupingyin = "pian " Case -14674 To -14671: duqupingyin = "piao " Case -14670 To -14669: duqupingyin = "pie " Case -14668 To -14664: duqupingyin = "pin " Case -14663 To -14655: duqupingyin = "ping " Case -14654 To -14646: duqupingyin = "po " Case -14645 To -14631: duqupingyin = "pu " Case -14630 To -14595: duqupingyin = "qi " Case -14594 To -14430: duqupingyin = "qia " Case -14429 To -14408: duqupingyin = "qian " Case -14407 To -14400: duqupingyin = "qiang " Case -14399 To -14385: duqupingyin = "qiao " Case -14384 To -14380: duqupingyin = "qie " Case -14379 To -14369: duqupingyin = "qin " Case -14368 To -14356: duqupingyin = "qing " Case -14355 To -14354: duqupingyin = "qiong " Case -14353 To -14346: duqupingyin = "qiu " Case -14345 To -14171: duqupingyin = "qu " Case -14170 To -14160: duqupingyin = "quan " Case -14159 To -14152: duqupingyin = "que " Case -14151 To -14150: duqupingyin = "qun " Case -14149 To -14146: duqupingyin = "ran " Case -14145 To -14141: duqupingyin = "rang " Case -14140 To -14138: duqupingyin = "rao " Case -14137 To -14136: duqupingyin = "re " Case -14135 To -14126: duqupingyin = "ren " Case -14125 To -14124: duqupingyin = "reng " Case -14123 To -14123: duqupingyin = "ri " Case -14122 To -14113: duqupingyin = "rong " Case -14112 To -14110: duqupingyin = "rou " Case -14109 To -14100: duqupingyin = "ru " Case -14099 To -14098: duqupingyin = "ruan " Case -14097 To -14095: duqupingyin = "rui " Case -14094 To -14093: duqupingyin = "run " Case -14092 To -14091: duqupingyin = "ruo " Case -14090 To -14088: duqupingyin = "sa " Case -14087 To -14084: duqupingyin = "sai " Case -14083 To -13918: duqupingyin = "san " Case -13917 To -13915: duqupingyin = "sang " Case -13914 To -13911: duqupingyin = "sao " Case -13910 To -13908: duqupingyin = "se " Case -13907 To -13907: duqupingyin = "sen " Case -13906 To -13906: duqupingyin = "seng " Case -13905 To -13897: duqupingyin = "sha " Case -13896 To -13895: duqupingyin = "shai " Case -13894 To -13879: duqupingyin = "shan " Case -13878 To -13871: duqupingyin = "shang " Case -13870 To -13860: duqupingyin = "shao " Case -13859 To -13848: duqupingyin = "she " Case -13847 To -13832: duqupingyin = "shen " Case -13831 To -13659: duqupingyin = "sheng " Case -13658 To -13612: duqupingyin = "shi " Case -13611 To -13602: duqupingyin = "shou " Case -13601 To -13407: duqupingyin = "shu " Case -13406 To -13405: duqupingyin = "shua " Case -13404 To -13401: duqupingyin = "shuai " Case -13400 To -13399: duqupingyin = "shuan " Case -13398 To -13396: duqupingyin = "shuang " Case -13395 To -13392: duqupingyin = "shui " Case -13391 To -13388: duqupingyin = "shun " Case -13387 To -13384: duqupingyin = "shuo " Case -13383 To -13368: duqupingyin = "si " Case -13367 To -13360: duqupingyin = "song " Case -13359 To -13357: duqupingyin = "sou " Case -13356 To -13344: duqupingyin = "su " Case -13343 To -13341: duqupingyin = "suan " Case -13340 To -13330: duqupingyin = "sui " Case -13329 To -13327: duqupingyin = "sun " Case -13326 To -13319: duqupingyin = "suo " Case -13318 To -13148: duqupingyin = "ta " Case -13147 To -13139: duqupingyin = "tai " Case -13138 To -13121: duqupingyin = "tan " Case -13120 To -13108: duqupingyin = "tang " Case -13107 To -13097: duqupingyin = "tao " Case -13096 To -13096: duqupingyin = "te " Case -13095 To -13092: duqupingyin = "teng " Case -13091 To -13077: duqupingyin = "ti " Case -13076 To -13069: duqupingyin = "tian " Case -13068 To -13064: duqupingyin = "tiao " Case -13063 To -13061: duqupingyin = "tie " Case -13060 To -12889: duqupingyin = "ting " Case -12888 To -12876: duqupingyin = "tong " Case -12875 To -12872: duqupingyin = "tou " Case -12871 To -12861: duqupingyin = "tu " Case -12860 To -12859: duqupingyin = "tuan " Case -12858 To -12853: duqupingyin = "tui " Case -12852 To -12850: duqupingyin = "tun " Case -12849 To -12839: duqupingyin = "tuo " Case -12838 To -12832: duqupingyin = "wa " Case -12831 To -12830: duqupingyin = "wai " Case -12829 To -12813: duqupingyin = "wan " Case -12812 To -12803: duqupingyin = "wang " Case -12802 To -12608: duqupingyin = "wei " Case -12607 To -12598: duqupingyin = "wen " Case -12597 To -12595: duqupingyin = "weng " Case -12594 To -12586: duqupingyin = "wo " Case -12585 To -12557: duqupingyin = "wu " Case -12556 To -12360: duqupingyin = "xi " Case -12359 To -12347: duqupingyin = "xia " Case -12346 To -12321: duqupingyin = "xian " Case -12320 To -12301: duqupingyin = "xiang " Case -12300 To -12121: duqupingyin = "xiao " Case -12120 To -12100: duqupingyin = "xie " Case -12099 To -12090: duqupingyin = "xin " Case -12089 To -12075: duqupingyin = "xing " Case -12074 To -12068: duqupingyin = "xiong " Case -12067 To -12059: duqupingyin = "xiu " Case -12058 To -12040: duqupingyin = "xu " Case -12039 To -11868: duqupingyin = "xuan " Case -11867 To -11862: duqupingyin = "xue " Case -11861 To -11848: duqupingyin = "xun " Case -11847 To -11832: duqupingyin = "ya " Case -11831 To -11799: duqupingyin = "yan " Case -11798 To -11782: duqupingyin = "yang " Case -11781 To -11605: duqupingyin = "yao " Case -11604 To -11590: duqupingyin = "ye " Case -11589 To -11537: duqupingyin = "yi " Case -11536 To -11359: duqupingyin = "yin " Case -11358 To -11341: duqupingyin = "ying " Case -11340 To -11340: duqupingyin = "yo " Case -11339 To -11325: duqupingyin = "yong " Case -11324 To -11304: duqupingyin = "you " Case -11303 To -11098: duqupingyin = "yu " Case -11097 To -11078: duqupingyin = "yuan " Case -11077 To -11068: duqupingyin = "yue " Case -11067 To -11056: duqupingyin = "yun " Case -11055 To -11053: duqupingyin = "za " Case -11052 To -11046: duqupingyin = "zai " Case -11045 To -11042: duqupingyin = "zan " Case -11041 To -11039: duqupingyin = "zang " Case -11038 To -11025: duqupingyin = "zao " Case -11024 To -11021: duqupingyin = "ze " Case -11020 To -11020: duqupingyin = "zei " Case -11019 To -11019: duqupingyin = "zen " Case -11018 To -11015: duqupingyin = "zeng " Case -11014 To -10839: duqupingyin = "zha " Case -10838 To -10833: duqupingyin = "zhai " Case -10832 To -10816: duqupingyin = "zhan " Case -10815 To -10801: duqupingyin = "zhang " Case -10800 To -10791: duqupingyin = "zhao " Case -10790 To -10781: duqupingyin = "zhe " Case -10780 To -10765: duqupingyin = "zhen " Case -10764 To -10588: duqupingyin = "zheng " Case -10587 To -10545: duqupingyin = "zhi " Case -10544 To -10534: duqupingyin = "zhong " Case -10533 To -10520: duqupingyin = "zhou " Case -10519 To -10332: duqupingyin = "zhu " Case -10331 To -10330: duqupingyin = "zhua " Case -10329 To -10329: duqupingyin = "zhuai " Case -10328 To -10323: duqupingyin = "zhuan " Case -10322 To -10316: duqupingyin = "zhuang " Case -10315 To -10310: duqupingyin = "zhui " Case -10309 To -10308: duqupingyin = "zhun " Case -10307 To -10297: duqupingyin = "zhuo " Case -10296 To -10282: duqupingyin = "zi " Case -10281 To -10275: duqupingyin = "zong " Case -10274 To -10271: duqupingyin = "zou " Case -10270 To -10263: duqupingyin = "zu " Case -10262 To -10261: duqupingyin = "zuan " Case -10260 To -10257: duqupingyin = "zui " Case -10256 To -10255: duqupingyin = "zun " Case -10254 To -10254: duqupingyin = "zuo " Case Else: duqupingyin = p End Select End Function Function py(str) For i = 1 To Len(str) py = py & duqupingyin(Mid(str, i, 1)) Next i End Function
然后回到Excel界面任意输入汉字,在右侧输入对应的py函数,即可得到拼音
最后保存文件即可,如下图所示: