EXCEL-VBA:汉字转拼音

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

Function ChangePY(str)
For i = 1 To Len(str)
    PY = PinYin(Mid(str, i, 1))
    PY = UCase(Left(PY, 1)) & Right(PY, Len(PY) - 1)
    ChangePY = ChangePY & PY
Next i
End Function

调用方法ChangePY("姓名")  或 ChangePY(单元格)

想在excel中自动显示汉字拼音吗? 写一段VBA代码则轻松搞定: Function PinYin(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer PinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292," PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784," PinMa = PinMa & "ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224," PinMa = PinMa & "da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722," PinMa = PinMa & "e,18710,en,18697,er,18696," PinMa = PinMa & "fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446," PinMa = PinMa & "ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928," PinMa = PinMa & "ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433,huo,17427," PinMa = PinMa & "ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,16708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647," PinMa = PinMa & "ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216," PinMa = PinMa & "la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652," PinMa = PinMa & "ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,mi,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180," PinMa = PinMa & "na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926," PinMa = PinMa & "o,14922,ou,14921," PinMa = PinMa & "pa,14914,pai,14908,pan,14902,pang,14894,pao,14889,pei,14882,pen,14873,peng,14871,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14645," PinMa = PinMa & "qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qing,14368,qiong,14355,qiu,14353,qu,14345,quan,14170,que,14159,qun,14151," PinMa = PinMa & "ran,14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,14097,run,14094,ruo,14092," PinMa = PinMa & "sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan,13343,sui,13340,sun,13329,suo,13326," PinMa = PinMa & "ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849," PinMa = PinMa & "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585," PinMa = PinMa & "xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan,12039,xue,11867,xun,11861," PinMa = PinMa & "ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067," PinMa = PinMa & "za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan,10832,zhang,10815,zhao,10800,zhe,10790,zhen,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,10322,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254" MyPinMa = Split(PinMa, ",") For i = 1 To Len(Hz) Temp = Asc(Mid(Hz, i, 1)) If Temp < 0 Then Temp = Abs(Temp) For j = 791 To 1 Step -2 If Temp <= Val(MyPinMa(j)) Then PinYin = PinYin & MyPinMa(j - 1) & " " Exit For End If Next End If Next PinYin = Trim(PinYin) End Function
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值