关闭→
当前位置:趣知常识网>游戏数码>电脑>Excel如何利用宏将汉字读拼音?

Excel如何利用宏将汉字读拼音?

趣知常识网 人气:2.72K

今天要和大家分享的是:Excel如何利用宏将汉字读拼音?

操作方法

(01)首先打开表格然后按f12另存为,如下图所示:

Excel如何利用宏将汉字读拼音?

(02)另存为宏表格,如下图所示:

Excel如何利用宏将汉字读拼音? 第2张

(03)然后按alt+f11打开宏命令按钮并插入模块,如下图所示:

Excel如何利用宏将汉字读拼音? 第3张

(04)在模块里插入如下代码:Function duqupingyin(p As String) As Stringi = Asc(p)Select Case iCase -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 = pEnd SelectEnd FunctionFunction py(str)For i = 1 To Len(str)py = py & duqupingyin(Mid(str, i, 1))Next iEnd Function

Excel如何利用宏将汉字读拼音? 第4张

(05)然后回到Excel界面任意输入汉字,在右侧输入对应的py函数,即可得到拼音

Excel如何利用宏将汉字读拼音? 第5张

(06)最后保存文件即可,如下图所示:

Excel如何利用宏将汉字读拼音? 第6张
TAG标签:#Excel #宏将 #拼音 #汉字 #