输入汉字后，可以使用定义的函数获取该汉字的全拼或简拼。
要使用VBA，我们首先需要编写一个带有返回值的函数（也称为方法）。通过函数实现该功能后，我们可以返回获取到的字符串，并将其显示在单元格中。请看代码：
一、获取汉字全拼
如何插入模块
定义第一个函数getPy
函数getPy(Hz As String)
Dim PinMa 作为字符串
Dim MyPinMa 作为变体
Dim Temp 作为整数，i 作为整数，j 作为整数
PinMa='a,20319,ai,20317,an,20304,ang,20295,ao,20292,'
拼码=拼码'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,'
品马=品马'ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao, 19540,车，19531,陈，19525,程，19515,池，19500,冲，19484,周，19479,楚，19467,楚，19289,川，19288,庄，19281,崔，19275,春，19270,中央，19263,ci,19261,丛，19249,凑，19243,cu,19242,cuan,19238,崔，19235,村，19227,cuo,19224,'
拼妈=拼妈达，19218,代，19212,旦，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,'
拼码=拼码'e,18710,en,18697,er,18696,'
品马=品马'fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446,'
品马=品马嘎，18239,盖，18237,甘，18231,刚，18220,高，18211,ge,18201,gei,18184,gen,18183,耿，18181,锣，18012,苟，17997,gu, 17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928,'
品马=品马哈，17922,海，17759,韩，17752,杭，17733,浩，17730,他，17721,黑，17703,母，17701,恒，17697,红，17692,侯，17683,胡， 17676,华，17496,怀，17487,欢，17482,黄，17468,辉，17454,浑，17433,霍，17427,'
品马=品马’吉，17417,甲，17202,健，17185,江，16983,焦，16970,杰，16942,金，16915,靖，16733,jiong,16708,jiu,16706,ju,16689,juan, 16664,爵，16657,君，16647,'
品马=品马'ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua, 16412,快，16407,宽，16403,匡，16401,奎，16393,坤，16220,郭，16216,'
品玛=品玛拉，16212,莱，16205,兰，16202,郎，16187,老，16180,乐，16171,雷，16169,冷，16158,李，16155,利亚，15959,连，15958,梁， 15944,廖，15933,烈，15920,林，15915,令，15903,刘，15889,长，15878,楼，15707,卢，15701,lv,15681,栾，15667,lue,15661,lun,15659,罗，15652，'
拼妈=拼妈‘马，15640,麦，15631,男，15625,芒，15454,毛，15448,me,15436,美，15435,男，15419,猛，15416,米，15408,棉，15394,苗， 15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180,'
品玛=品玛娜，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,'
拼码=拼码'o,14922,ou,14921,'
拼码=拼码'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,'
品马=品马'qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qin,14368,qiong,14355,qiu,14353,qu,14345,quan, 14170,阙，14159,群，14151,'
品玛=品玛'然，14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,第14097章，跑，14094，若，14092，'
品马=品马'sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang, 13878、邵、13870、佘、13859、沉、13847、盛、13831、时、13658、受、13611、叔、13601、帅、13406、帅、13404、拴、13400、爽、13398、水、13395、顺，13391,说，13387,司，13383,宋，13367,叟，13359,苏，13356,算，13343,隋，13340,孙，13329,索，13326,'
品马=品马'ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting, 13060,通，12888,头，12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849,'
品马=品马'wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585,'
品马=品马'xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan, 12039,薛，11867,寻，11861,'
品马=品马亚，11847,炎，11831,阳，11798,姚，11781,叶，11604,一，11589,银，11536,英，11358,yo,11340,勇，11339,你，11324,yu, 11303，元，11097，月，11077，云，11067，'
品马=品马'za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan, 10832,张，10815,赵，10800,喆，10790,甄，10780,郑，10764,支，10587,钟，10544,周，10533,朱，10519,抓，10331,抓，10329,转，10328,庄，10322,追，10315,准，10309,卓，10307,孜，10296,宗，10281,邹，10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254'
MyPinMa=拆分(PinMa, ',')
对于i=1 至Len(Hz)
温度=Asc(中(Hz, i, 1))
如果温度为0 那么
温度=绝对值（温度）
对于j=791 至1 步骤-2
如果Temp=Val(MyPinMa(j)) 那么
PinYin2=PinYin2 MyPinMa(j - 1) ''
退出对于
下一个
下一个
getPy=Trim(PinYin2)
上面代码的主要思想是获取字符串，一一遍历每个字符对应的拼音，最后将给定大小写的所有拼音按顺序拼接起来。
二、获取汉字简拼
定义第二个函数PY
我们继续在刚刚打开的模块中定义一个函数名py。其功能是获取汉字的简体拼音代码如下：
公共函数PY(myStr)
暗淡Str$、L$、Temp$、特殊字符$
Str=Replace(Replace(myStr, ' ', ''), ' ', '') ' 删除字符串中的空格
dict=[{'吖','a';'八','b';'ru','c';'咑','d';'鶽','e';'发','f ';'Ga','g';'Ha','h';'丌','j';'Ka','k';'Rab','l';'Mo','m'; '拿','n';'哦','o';'妑','p';'七','q';'然','r';'三','s';'他','t';'屲','w';'xi','x';'Ya','y';'帀','z'}] ' 创建简化拼写词典
特殊词='QiuQQinQ'
对于i=1 至Len(Str)
L=中$(Str, i, 1)
j=InStr(tmp, Mid(Str, i, 1))
如果我喜欢“[一-饥]”那么
Temp=Temp IIf(j, Mid(特殊词， j + 1, 1), UCase(Application.Lookup(L, dict)))
别的
温度=温度L
接下来我
PY=温度
粘贴上述代码后，打开任意工作表并使用您刚刚自定义的功能输入一些文本，即可获得汉字的完整或简体拼写。
本文采摘于网络，不代表本站立场，转载联系作者并注明出处：https://www.iotsj.com//kuaixun/4385.html
用户评论
这个方法太赞了！终于不用再手动输入汉字拼音了！
有8位网友表示赞同！
Excel中获取汉字拼音，这个功能太实用了！
有10位网友表示赞同！
终于找到了一个方便快捷的方法，可以快速获取汉字的全拼或首拼！
有12位网友表示赞同！
这个技巧非常实用，可以大大提高工作效率！
有20位网友表示赞同！
以前经常需要手动输入拼音，现在终于可以解放双手了！
有16位网友表示赞同！
感谢分享！这个方法简单易懂，操作起来也很方便！
有5位网友表示赞同！
太棒了！终于可以轻松获取汉字拼音了！
有8位网友表示赞同！
学会了！以后再也不用担心忘记汉字拼音了！
有10位网友表示赞同！
学习了，这个功能太实用了！
有11位网友表示赞同！
这个方法太实用，强烈推荐！
有13位网友表示赞同！
Excel中获取汉字拼音，真是太方便了！
有18位网友表示赞同！
学会了，这个技巧太棒了！
有17位网友表示赞同！
终于可以轻松获取汉字拼音，太方便了！
有12位网友表示赞同！
这个方法真是太神奇了！
有17位网友表示赞同！
以前一直不知道怎么获取汉字拼音，现在终于学会了！
有17位网友表示赞同！
这个方法简直是神器！
有8位网友表示赞同！
太感谢了！这个方法简直是救星！
有18位网友表示赞同！
以后再也不用为汉字拼音发愁了！
有7位网友表示赞同！
这个技巧太实用了，强烈推荐给所有需要的人！
有20位网友表示赞同！
Excel中获取汉字拼音，真是太方便了！
有10位网友表示赞同！