excl中提取名字的拼音

打开Excel->工具->宏->Viaual Basic编辑器

在弹出来的窗口中对着VBAproject点右键->插入->模块

下面会出现一个名为"模块1"，点击

在右边的空白栏中粘贴以下内容：

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,1972 8,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,1948 4,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19 263,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,18 735,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,1818 1,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gu n,17931,guo,17928,"

PinMa = PinMa & "ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,1769 7,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hu n,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,164 27,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,ku o,16216,"

PinMa = PinMa & "la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15 959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,1 5707,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,1536 2,mou,15183,mu,15180,"

PinMa = PinMa & "na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,1514 0,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,1 4937,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,1 4355,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,sh ou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,s huo,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,1 2849,"

PinMa = PinMa & "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,1 2585,"

PinMa = PinMa & "xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,1 2074,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,y ong,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,z hi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,1032 2,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,1 0260,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

********复制到此结束,本行不复制*******

当前转换函数已编写完成!关掉此编缉的窗口。要在Excel中使用，办法如下：

A1 A2

中国 =pinyin(A1)

excel提取汉字的拼音首字母集锦

方法二：VBA自定义函数"=hztopy（）" 下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。 不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。" Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W" Case &HCEF4 To &HD1B8: pystring = pystring + "X" Case &HD1B9 To &HD4D0: pystring = pystring + "Y" Case &HD4D1 To &HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi, 1)

显示输出姓名拼音的首字母及其在拼音姓名中的个数

农林大学专业技能考核必备题目（汇编） 编写一个有主程序和子程序结构的程序模块，完成下述功能：从键盘输入每位同学的姓名拼音，显示输出姓名拼音的首字母（无论大小写）及其在拼音姓名中的个数。 DA TA SEGMENT S1 DB 'PLEASE INPUT YOUR NAME: $' S2 DB 0DH,0AH,'TOTLE(' R1 DB ' ):' N1 DB 0 N2 DB 0 DB '$' BUFF DB 250,250 DUP(0) DA TA ENDS CODE SEGMENT ASSUME CS:CODE, DS:DATA MAIN PROC FAR START: PUSH DS XOR AX,AX;清零 PUSH AX MOV AX,DATA MOV DS,AX MOV AH,09;9号功能调用，显示字符 MOV DX,OFFSET S1 INT 21H MOV AH,0AH;输入一段字符串到BUFF那个地址 MOV DX,OFFSET BUFF INT 21H MOV SI,OFFSET BUFF+2 MOV AL,[SI] MOV R1,AL MOV BX,OFFSET BUFF+1 MOV CL,[BX] CALL COUNT MOV AH,0 MOV AL,DL CALL DISPLAY RET MAIN ENDP COUNT PROC NEAR;COUNT子程序 MOV CH,0 MOV DL,0 P1:INC BX CMP AL,[BX]

JNE P2 INC DL P2:LOOP P1 RET COUNT ENDP DISPLAY PROC NEAR MOV DL,10 DIV DL ADD AX,3030H MOV N1,AL MOV N2,AH MOV DX,OFFSET S2 MOV AH,09 INT 21H RET DISPLAY ENDP CODE ENDS END START

excel汉字转换成拼音简拼(只取首字母)

打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20284: pinyin = "A" Case -20283 To -19776: pinyin = "B" Case -19775 To -19219: pinyin = "C" Case -19218 To -18711: pinyin = "D" Case -18710 To -18527: pinyin = "E" Case -18526 To -18240: pinyin = "F" Case -18239 To -17923: pinyin = "G" Case -17922 To -17418: pinyin = "H" Case -17417 To -16475: pinyin = "J" Case -16474 To -16213: pinyin = "K" Case -16212 To -15641: pinyin = "L" Case -15640 To -15166: pinyin = "M" Case -15165 To -14923: pinyin = "N" Case -14922 To -14915: pinyin = "O" Case -14914 To -14631: pinyin = "P"

excel：汉字拼音首字母提取

方法一：VBA自定义函数"=hztopy（）" 下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。 不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。 Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W"

花语(按中文拼音首字母排序)

A B 百合的花语——纯洁/神圣 百合（火红）--热烈的爱 香水百合---纯洁,高贵 彼岸花的花语是——悲伤的回忆（日本）/相互思念（韩国） 白日菊--永失我爱 波斯菊的花语——永远快乐 C 雏菊——隐藏爱情 菖蒲－相信者的幸福 菖蒲（德国品种）的花语——婚姻完美 D 丁香－－－回忆 E F 风信子--永远的怀念 风信子（红色）的花语是——让人感动的爱 非洲菊的花语是--永远快乐 G 狗尾巴草的花语--暗恋 H 含羞草的花语－－自卑 蝴蝶花---相信就是幸福 蝴蝶兰--我爱你 I J 桔梗花的花语是——真诚不变的爱 菊花（白色）---真实坦诚 菊（红色素）---我爱你 K 卡萨布兰卡的花语: [1]伟大的爱 [2]一种充满回忆的花,花语是淡泊的永恒 [3]易变的心 [4]不要放弃一个你深爱着的人 [5]死亡,一种盛开的很傲然,厌世的花 [6]一种永恒的美 [7]负担不起的爱

L 蓝色妖姬----相守是一种承诺,人世轮回中,怎样才能拥有一份温柔的情意! 蓝色妖姬双枝花语：相遇是一种宿命，心灵的交汇让我们有诉不尽的浪漫情怀。而如果是三枝蓝色妖姬,送花人表达的是另一种情愫——你是我最深的爱恋希望永远铭记我们这段美丽的爱情故事! 鳞托菊--永远的爱 龙舌兰的花语----是为爱付出一切 龙胆花的花语－－－喜欢看忧伤时的你 M 玫瑰（红色）---我爱你 玫瑰（白）的花语是——我足以与你相配 玫瑰（黄）--腿色的爱 玫瑰（紫）--珍惜的爱 玫瑰（蓝）---无法得到的东西 玫瑰（香槟）的花语——我只钟情你一个&爱上你是我今生最大的幸福，想你是我最甜蜜的痛苦，和你在一起是我的骄傲，没有你的我就像一只迷失了航线的船。梦幻的感觉 茉莉花——你是我的莫离幸福 密蒙花--请幸福到来 迷迭香花语----回忆不想忘记得过去,纪念 麦杆菊--永恒的记忆木棉花------珍惜眼前的幸福 N O P 蒲公英的花语——无法停留的爱 Q 蔷薇的花语——爱的思念；你的一切都很可爱蔷薇（红）的花语是——热恋 蔷薇（粉）的花语是——爱的誓言 蔷薇（白）的花语是——纯洁的爱情 蔷薇（黄）的花语是——永恒的微笑 蔷薇（深红色）的花语是——只想和你在一起蔷薇（野）的花语是——浪漫的爱情 牵牛花--爱情永固 R S

个常用汉字 按照拼音首字母排序

3500个常用汉字 A 啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳 B 芭捌扒叭吧笆八疤巴拔跋靶把耙坝霸罢爸白柏百摆佰败拜稗斑班搬扳般颁板版扮拌伴瓣半办绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞包褒剥薄雹保堡饱宝抱报暴豹鲍爆杯碑悲卑北辈背贝钡倍狈备惫焙被奔苯本笨崩绷甭泵蹦迸逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必辟壁臂避陛鞭边编贬扁便变卞辨辩辫遍标彪膘表鳖憋别瘪彬斌濒滨宾摈兵冰柄丙秉饼炳病并玻菠播拨钵波博勃搏铂箔伯帛舶脖膊渤泊驳捕卜哺补埠不布步簿部怖 C 擦猜裁材才财睬踩采彩菜蔡餐参蚕残惭惨灿苍舱仓沧藏操糙槽曹草厕策侧册测层蹭插叉茬茶查碴搽察岔差诧拆柴豺搀掺蝉馋谗缠铲产阐颤昌猖场尝常长偿肠厂敞畅唱倡超抄钞朝嘲潮巢吵炒车扯撤掣彻澈郴臣辰尘晨忱沉陈趁衬撑称城橙成呈乘程惩澄诚承逞骋秤吃痴持匙池迟弛驰耻齿侈尺赤翅斥炽充冲虫崇宠抽酬畴踌稠愁筹仇绸瞅丑臭初出橱厨躇锄雏滁除楚础储矗搐触处揣川穿椽传船喘串疮窗幢床闯创吹炊捶锤垂春椿醇唇淳纯蠢戳绰疵茨磁雌辞慈瓷词此刺赐次聪葱囱匆从丛凑粗醋簇促蹿篡窜摧崔催脆瘁粹淬翠村存寸磋撮搓措挫错 D 搭达答瘩打大呆歹傣戴带殆代贷袋待逮怠耽担丹单郸掸胆旦氮但惮淡诞弹蛋当挡党荡档刀捣蹈倒岛祷导到稻悼道盗德得的蹬灯登等瞪凳邓堤低滴迪敌笛狄涤翟嫡抵底地蒂第帝弟递缔颠掂滇碘点典靛垫电佃甸店惦奠淀殿碉叼雕凋刁掉吊钓调跌爹碟蝶迭谍叠丁盯叮钉顶鼎锭定订丢东冬董懂动栋侗恫冻洞兜抖斗陡豆逗痘都督毒犊独读堵睹赌杜镀肚度渡妒端短锻段断缎堆兑队对墩吨蹲敦顿囤钝盾遁掇哆多夺垛躲朵跺舵剁惰堕 E 蛾峨鹅俄额讹娥恶厄扼遏鄂饿恩而儿耳尔饵洱二贰 F 发罚筏伐乏阀法珐藩帆番翻樊矾钒繁凡烦反返范贩犯饭泛坊芳方肪房防妨仿访纺放菲非啡飞肥匪诽吠肺废沸费芬酚吩氛分纷坟焚汾粉奋份忿愤粪丰封枫蜂峰锋风疯烽逢冯缝讽奉凤佛否夫敷肤孵扶拂辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧脯腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐 G 噶嘎该改概钙盖溉干甘杆柑竿肝赶感秆敢赣冈刚钢缸肛纲岗港杠篙皋高膏羔糕搞镐稿告哥歌搁戈鸽胳疙割革葛格蛤阁隔铬个各给根跟耕更庚羹埂耿梗工攻功恭龚供躬公宫弓巩汞拱贡共钩勾沟苟狗垢构购够辜菇咕箍估沽孤姑鼓古蛊骨谷股故顾固雇刮瓜剐寡挂褂乖拐怪棺关官冠观管馆罐惯灌贯光广逛瑰规圭硅归龟闺轨

汉字与首字母相互转换：输入汉字拼音首字母,自动识别汉字; 输入汉字,自动获取首字母;

///

/// 找到中文短语的拼音首字母。 ///

/// 中文短语 /// 拼音首字母，存在多音字时以,分隔。 /// 如：西单，将返回XD,XS,XC。 public static void GetFirstLetter(string wStrChs, ref string strResult) { strResult = ""; string strBuffer = ""; for (int i = 0; i < wStrChs.Length; i++) { GetSpellByChs(wStrChs[i], ref strBuffer); if (strBuffer.Length > 0) { if (strResult != string.Empty) { string[] strs = strResult.Split(','); strResult = ""; for (int j = 0; j < strs.Length; j++) { for (int k = 0; k < strBuffer.Length; k++) { strResult += strs[j] + strBuffer[k].ToString() + ","; } } } else { for (int j = 0; j < strBuffer.Length; j++) { strResult += strBuffer[j] + ","; } } if (strResult != string.Empty) strResult = strResult.Substring(0, strResult.Length - 1); } } } ///

/// 返回中文单字的拼音首字母。

汉语拼音首字母排列

汉语拼音首字母排列：AɑBb Cc Dd Ee Ff GɡHh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz 二十四节气民歌立春阳气转，雨水沿河边，惊蛰乌鸦叫，春分地皮干，清明忙种麦，谷雨种大田； 立夏鹅毛住，小满雀来全，芒种开了铲，夏至不拿棉，小暑不算热，大暑三伏天 立秋忙打甸，处暑动刀镰，白露烟上架，秋分不生田，寒露不算冷，霜降变了天； 立冬交十月，小雪地封严，大雪河封上，冬至不行船，小寒近腊月，大寒整一年。 成语故事中的人物 背水一战（韩信）指鹿为马（赵高）入木三分（王羲之）纸上谈兵（赵括）惊弓之鸟（更羸）铁杵成针（李白）闻鸡起舞（祖逖） 过门不入（大禹）韦编三绝(孔子 ) 单刀赴会(关羽) 对症下药(朱熹)破釜沉舟（项羽）七步成诗（曹植）卧薪尝胆（勾践） 凿壁借光（匡衡）鞠躬尽瘁（诸葛亮）图穷匕见（荆轲）乐不思蜀（刘禅）精忠报国（岳飞）草木皆兵（苻坚）围魏救赵（孙膑） 投笔从戎（班超）望梅止渴（曹操）毛遂自荐（毛遂）夸父追日（夸父） 战国：完璧归赵（蔺相如）围魏救赵（孙膑）负荆请罪（廉颇）讳疾忌医（蔡桓公）惊弓之鸟（更羸）高山流水（俞伯牙、钟子期） 秦：一字千金（吕不韦）指鹿为马（赵高）焚书坑儒（秦始皇）穷图匕见（荆轲）悬梁刺股（苏秦、孙敬） 汉：一饭千金（韩信）四面楚歌（项羽）约法三章（刘邦）孺子可教（张良）背水一战（韩信）破釜沉舟（项羽）手不释卷（刘秀） 暗渡陈仓（韩信）十面埋伏（项羽）投笔从戎（班超）马革裹尸（马援）多多益善（韩信）老当益壮（马援）无颜见江东父老（项羽） 三国：鞠躬尽瘁（诸葛亮）三顾茅庐（刘备）煮豆燃萁（曹植）刮目相看（吕蒙）初出茅庐（诸葛亮）乐不思蜀（刘禅） 七步成诗（曹植）言过其实（马谡）七擒七纵（诸葛亮）宝刀不老（黄忠）才高八斗（曹植）一身是胆（赵云） 封金挂印（关羽）单刀赴会（关羽）望梅止渴（曹操）万事俱备，只欠东风（周瑜、诸葛亮） 晋：入木三分（王羲之）闻鸡起舞（祖逖）东山再起（谢安）洛阳纸贵（左思） 南北朝：画龙点睛（张僧繇）江郎才尽（江淹） 宋：东窗事发（秦桧）胸有成竹（文与可） “母”字格言1.失败是成功之母。（中国） 2.懒惰是贫穷之母。（芬兰）3.谨慎是智慧之母。（法国） 4.记忆是知识之母。（英国） 5.适度是健康之母。（英国） 6.重复是学习之母。（法国） 7.夜晚是深思之母。（希腊） 8.需要是发明之母。（日本） 9.勤勉是好运之母。（英国） 10.经历是才智之母。（英国） 数字猜成语：12345609（七零八落）1256789（丢三落四）1+2+3（接二连三）333 555（三五成群）3.5（不三不四）5 10（一五一十）9寸+1寸=1尺（得寸进尺） 【寓言故事类】：拔苗助长狐假虎威亡羊补牢坐井观天刻舟求剑叶公好龙守株待兔画蛇添足 愚公移山精卫填海掩耳盗铃画饼充饥画地为牢杀鸡儆猴对牛弹琴盲人摸象 【历史故事类】：完璧归赵程门立雪三顾茅庐渑池之会负荆请罪纸上谈兵指鹿为马闻鸡起舞

受试者姓名拼音缩写

受试者姓名拼音缩写 封面 □□□□ 临床试验观察表 （Case Report Form） 受试者姓名： 家庭地址： 联系电话： 试验中心名称: 申办单位：延吉喜来健医疗器械有限公司 在正式填表前请认真阅读下列填表说明 病例报告表填写说明:

1．筛选合格者填写病例报告表。 2．病例报告表填写务必准确、清晰,不得任意涂改，错误之处纠正时需用横线居中化出,并签署修改者姓名缩写及修改时间. 3．填写记录一律用钢笔或碳素签字笔。 4．患者姓名拼音缩写四个需填满，两字姓名填写两字拼音前两个字母;三字姓名填写三字首字母及第三字第二字母；四字姓名填写每个字的首字母。 5．表中凡有“□”的项，请在符合的条目上划“√".表格中所有栏目均应填写相应的文字或数字，不得留空。 6．所有检验项目因故未查或漏查，请填写ND；具体合并用药剂量和时间不明，请先写NK。 7．试验期间应如实填写合并用药记录表、不良事件记录表。记录不良事件的发生时间、严重程度、持续时间、采取的措施和转归。如有严重不良事件发生(包括临床验证过程中发生需住院治疗、延长住院时间、伤残、影响工作能力危及生命或死亡、导致先天畸形等事件)，必须立即通知主要研究单位伦理委员会及申办单位。......感谢聆听 单位联系人联系电话传真

延吉喜来健医疗器 械公司 8．临床试验应严格按照临床试验方案要求进行。试验不同时期需完成的检查和需记录的项目,请对照临床流程图执行。 受试者姓名拼音缩写 □□□□ 临床试验流程图 项目治疗 前 治疗 0天 治疗 10天 治疗 20天 治疗 3０天 基本情况采集 确定入选／排除病 例 √√ 签署知情同意书√ 填写一般资料√ 病史与治疗史√ 合并疾病√√√√

vba中文转拼音首字母

vba中文转拼音首字母 Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >= 45217 And tmp <= 45252) Then getpychar = "A" ElseIf (tmp >= 45253 And tmp <= 45760) Then getpychar = "B" ElseIf (tmp >= 45761 And tmp <= 46317) Then getpychar = "C" ElseIf (tmp >= 46318 And tmp <= 46825) Then getpychar = "D" ElseIf (tmp >= 46826 And tmp <= 47009) Then getpychar = "E" ElseIf (tmp >= 47010 And tmp <= 47296) Then getpychar = "F" ElseIf (tmp >= 47297 And tmp <= 47613) Then getpychar = "G" ElseIf (tmp >= 47614 And tmp <= 48118) Then getpychar = "H" ElseIf (tmp >= 48119 And tmp <= 49061) Then getpychar = "J" ElseIf (tmp >= 49062 And tmp <= 49323) Then getpychar = "K" ElseIf (tmp >= 49324 And tmp <= 49895) Then getpychar = "L" ElseIf (tmp >= 49896 And tmp <= 50370) Then getpychar = "M" ElseIf (tmp >= 50371 And tmp <= 50613) Then getpychar = "N" ElseIf (tmp >= 50614 And tmp <= 50621) Then getpychar = "O" ElseIf (tmp >= 50622 And tmp <= 50905) Then getpychar = "P" ElseIf (tmp >= 50906 And tmp <= 51386) Then getpychar = "Q" ElseIf (tmp >= 51387 And tmp <= 51445) Then getpychar = "R" ElseIf (tmp >= 51446 And tmp <= 52217) Then getpychar = "S" ElseIf (tmp >= 52218 And tmp <= 52697) Then getpychar = "T" ElseIf (tmp >= 52698 And tmp <= 52979) Then

汉字转换拼音或拼音首字母(两个函数)

/* 根据汉字获取全拼 1.生成所有读音临时表 2.根据Chinese_PRC_CS_AS_KS_WS 排序获取读音 */ create function f_GetPy(@str varchar(100)) returns varchar(8000) as begin declare @re varchar(8000) –生成临时表 declare @t table(chr nchar(1) collate Chinese_PRC_CS_AS_KS_WS,py nvarchar(20)) insert into @t select’吖’,'a’ insert into @t select’厑’,'aes’ insert into @t select’哎’,'ai’ insert into @t select’安’,'an’ insert into @t select’肮’,'ang’ insert into @t select’凹’,'ao’ insert into @t select’八’,'ba’ insert into @t select’挀’,'bai’ insert into @t select’兡’,'baike’ insert into @t select’瓸’,'baiwa’ insert into @t select’扳’,'ban’ insert into @t select’邦’,'bang’ insert into @t select’勹’,'bao’ insert into @t select’萡’,'be’ insert into @t select’陂’,'bei’ insert into @t select’奔’,'ben’ insert into @t select’伻’,'beng’ insert into @t select’皀’,'bi’ insert into @t select’边’,'bian’ insert into @t select’辪’,'uu’ insert into @t select’灬’,'biao’ insert into @t select’憋’,'bie’ insert into @t select’汃’,'bin’ insert into @t select’冫’,'bing’ insert into @t select’癶’,'bo’ insert into @t select’峬’,'bu’ insert into @t select’嚓’,'ca’ insert into @t select’偲’,'cai’ insert into @t select’乲’,'cal’ insert into @t select’参’,'can’

2500常用汉字的拼音首字母表

1 一Y乙Y 2 二E十S丁D厂C七Q卜B人R入R八B九J几J儿E了L力L乃N刀D又Y 3 （一）三S于Y干G亏K士S工G土T才C寸C下X大D丈Z与Y万W （丨）上S小X口K巾J山S （丿）千Q乞Q川C亿Y个G勺S久J凡F及J夕X丸W么M （丶）广G亡W门M义Y之Z （乙）尸S弓G己J已Y子Z卫W也Y女N飞F刃R习X叉C马M乡X 4 （一）丰F王W井J开K夫F天T无W元Y专Z云Y扎Z艺Y木M五W支Z厅T不B 太T犬Q区Q历L尤Y友Y匹P车C巨J牙Y屯T比B互H切Q瓦W（丨）止Z少S 日R中Z冈G贝B内N水S见J（丿）午W牛N手S毛M气Q升S长Z仁R什S片P 仆P化H仇C币B仍R仅J斤J爪Z反F介J父F从C今J凶X分F乏F公G仓C月Y 氏S勿W欠Q风F丹D匀Y乌W凤F勾G（丶）文W六L方F火H为W斗D忆Y订D计J户H认R心X（乙）尺C引Y丑C巴B孔K队D办B以Y允Y予Y劝Q双S书S 幻H 5 （一）玉Y刊K示S末M未W击J打D巧Q正Z扑P扒B功G扔R去Q甘G世S古G节J本B术S可K丙B左Z厉L右Y石S布B龙L平P灭M轧Z东D（丨）卡K北B 占Z业Y旧J帅S归G且Q旦D目M叶Y甲J申S叮D电D号H田T由Y史S只Z央Y兄X叼D叫J另L叨D叹T四S（丿）生S失S禾H丘Q付F仗Z代D仙X们M仪Y 白B仔Z他T斥C瓜G乎H丛C令L用Y甩S印Y乐L句J匆C册C犯F外W处C冬D鸟N务W包B饥J（丶）主Z市S立L闪S兰L半B汁Z汇H头T汉H宁N穴X它T讨T写X让R礼L训X必B议Y讯X记J永Y（乙）司S尼N民M出C辽L奶N奴N 加J召Z皮P边B发F孕Y圣S对D台T矛M纠J母M幼Y丝S 6 （一）式S刑X动D扛K寺S吉J扣K考K托T老L执Z巩G圾J扩K扫S地D扬Y 场C耳E共G芒M亚Y芝Z朽X朴P机J权Q过G臣C再Z协X西X压Y厌Y在Z有Y百B存C而E页Y匠J夸K夺D灰H达D列L死S成C夹J轨G邪X划H迈M毕B 至Z（丨）此C贞Z师S尘C尖J劣L光G当D早Z吐T吓X虫C曲Q团T同T吊D 吃C因Y吸X吗M屿Y帆F岁S回H岂Q刚G则Z肉R网W（丿）年N朱Z先X丢D 舌S竹Z迁Q乔Q伟W传C乒P乓P休X伍W伏F优Y伐F延Y件J任R伤S价J 份F华H仰Y仿F伙H伪W自Z血X向X似S后H行H舟Z全Q会H杀S合H兆Z 企Q众Z爷Y伞S创C肌J朵D杂Z危W旬X旨Z负F各G名M多D争Z色S（丶）壮Z冲C冰B庄Z庆Q亦Y刘L齐Q交J次C衣Y产C决J充C妄W闭B问W闯C 羊Y并B关G米M灯D州Z汗H污W江J池C汤T忙M兴X宇Y守S宅Z字Z安A 讲J军J许X论L农N讽F设S访F（乙）寻X那N迅X尽J导D异Y孙S阵Z阳Y收S阶J阴Y防F奸J如R妇F好H她T妈M戏X羽Y观G欢H买M红H纤X级J约Y 纪J驰C巡X 7 （一）寿S弄N麦M形X进J戒J吞T远Y违W运Y扶F抚F坛T技J坏H扰R拒J 找Z批P扯C址Z走Z抄C坝B贡G攻G赤C折Z抓Z扮B抢Q孝X均J抛P投T坟F抗K坑K坊F抖D护H壳K志Z扭N块K声S把B报B却Q劫J芽Y花H芹Q芬F

excel-汉字转换成拼音简拼(只取首字母)

名字转换为首字母（VBA自定义函数） 1、打开EXCEL 2、按 ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口 3、输入公式=hztopy(A1)，填充所有单元格 4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误） 5、使用条件格式，检索出含有汉字的单元格: 先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式 =LENB(D5)>LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。有汉字的出现所设格式 6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。 7、将汉字手动改写为相应的字母。 8、核对多音字。 注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用 1、新建一个EXCEL 2、按 ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口 3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏（*,xlam）”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。 4、打开需要工作的EXLEL，点击开始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。 这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。

代码(只复制星号内的内容) ******************************************************************************* Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W" Case &HCEF4 To &HD1B8: pystring = pystring + "X" Case &HD1B9 To &HD4D0: pystring = pystring + "Y" Case &HD4D1 To &HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi, 1) End Select Next hztopy = pystring End Function *******************************************************************************

中文拼音首字母在标准检索中的应用

中文拼音首字母 在标准信息检索中的应用 “信息检索”一词出现于20世纪50年代，来源于人们对图书馆图书信息的参考咨询和文摘索引工作。从19世纪下半叶的手工检索，到20世纪50年代的脱机批量检索及60年代以后的联机检索，发展到90年代以后的网络化联机检索，信息检索成为人们获取知识、丰富生活的重要方式。标准信息作为信息行业的一个分支，在检索方法上也在不断发展变化。 标准题录检索是我国标准信息检索的主要内容，根据输入内容可分为数字、英文字符、中文字符、其他可显示的字符（如-）等。例如，检索国家标准《GB/T 1.1-2009 标准化工作导则第1部分：标准的结构和编写》时，按照标准号检索，需输入数字、英文字符、空格、横线-、点.；按照标准名称检索，需输入数字、中文字符、空格和冒号：。除中文字符外，其他符号或字符都可以直接从键盘上找到并输入，中文字符则需要转换成中文输入法后，再输入拼音找到相应汉字，并且输入的字符数量较多，国标GB/T 1.1-2009的中文名称按全拼方式需输入55个英文字符。有没有更直接、更简单的输入方式代替中文输入呢？答案是有，中文拼音首字母是一种代替中文字符进行检索的更好方式。目前，主要的标准综合服务平台还没有使用拼音首字母进行检索，希望拼音首字母能成为标准检索的必备方式。 一、中文拼音首字母检索原理 我们以最常用的GB2312字符集为例，说明拼音首字母代替中文

字符进行检索的原理。GB2312字符集是ASCII字符集的扩展，有一级汉字3755个，按拼音排序，二级汉字3008个，按部首排序，覆盖国内汉字99.75%的使用频率。它采用国标码或者区位码对应一个唯一的汉字或符号，国标码是一个4位十六进制数，区位码是一个4位十进制数。汉字的国标码范围从B0A1到F7FE，如“标准”两个字的国标码分别是B1EA、D7BC。在一级汉字中，找到每个拼音首字母汉字所在的国标码位置，其余汉字与相邻两个拼音首字母汉字的国标码位置进行比较，就能获得该汉字的拼音首字母。一级汉字中，不同拼音首字母的第1个汉字在GB2312字符集中的位置参见表1。二级汉字则需采用国标码位置与首字母一一对应方式查找，因数量较多，本文不再一一列出。

根据拼音首字母筛选人名

根据拼音首字母筛选人名 [实名贴，值得关注] 源代码如下： [复制到剪贴板] CODE: using System; namespace Test { class Class1 { ///

/// 应用程序的主入口点。 ///

[STAThread] static void Main(string[] args) { string [] arrs=new string[]{"李明","李敏","张学友","刘德华","美丽"}; string search="L";//结果：李明、李敏、刘德华 //string search="LM";//结果：李明、李敏 foreach(string s in arrs) { if(GetChineseSpell(s).IndexOf(search)==0) Console.WriteLine(s); } } ///

/// 汉字拼音首字母列表本列表包含了20901个汉字,用于配合 GetChineseSpel

l 函数使用,本表收录的字符的Unicode编码范围为19968至40869[南京 yyf] ///

private static string [] strChineseCharList = { "A阿啊锕嗄厑哎哀唉埃挨溾锿鎄啀捱皑凒溰嘊敳皚癌毐昹嗳矮蔼躷噯藹譪霭靄艾伌爱砹硋隘嗌塧嫒愛碍暧瑷僾壒嬡懓薆曖璦鴱皧瞹馤鑀鱫安侒峖桉氨庵谙萻腤鹌蓭誝鞌鞍盦馣鮟盫韽啽雸垵" , "A俺唵埯铵隌揞罯銨犴岸按荌案胺豻堓婩暗貋儑錌黯肮岇昂昻枊盎醠凹坳垇柪軪爊敖厫隞嗷嗸嶅廒滶獒獓遨熬璈蔜翱聱螯翶謷翺鳌鏖鰲鷔鼇芺袄媪镺襖岙扷岰傲奡奥嫯慠骜奧嶴澳懊擙謸鏊" , "B八仈巴叭扒朳玐吧夿岜芭疤哵捌笆粑紦羓蚆釟豝鲃魞叐犮抜坺妭拔茇炦癹胈釛菝詙跋軷魃把靶坝弝爸垻罢鲅鮁覇矲霸壩灞欛挀掰白百佰柏栢捭竡粨摆擺襬呗拝败拜唄敗稗粺鞁薭贁兡瓸扳" , "B攽班般颁斑搬斒瘢螁癍辬阪坂岅昄板版瓪钣粄舨鈑蝂魬办半伴扮姅怑拌绊秚絆鉡靽辦瓣邦峀垹帮捠梆浜邫幇幚縍幫鞤绑綁榜膀玤蚌傍棒谤塝稖蒡蜯磅镑艕謗勹包佨孢苞胞笣煲龅蕔褒闁齙" , "B窇嫑雹宝怉饱保鸨珤堡堢媬葆寚飹飽褓駂鳵緥鴇賲藵寳寶靌勽报抱豹趵菢鲍靤骲暴髱虣儤曓爆忁鑤萡陂卑杯盃桮悲揹碑鹎藣鵯喺北鉳贝狈貝邶备昁牬苝背钡俻倍悖狽被偝偹梖珼鄁備僃惫" , "B焙軰辈愂碚禙蓓蛽犕褙誖骳輩鋇憊糒鞴鐾奔泍贲倴渀逩犇锛錛本苯奙畚楍坌捹桳笨撪輽伻崩绷閍嵭嘣綳繃甭埲菶琫鞛泵迸塴甏镚蹦鏰屄毴逼豍鲾鵖鰏柲荸鼻嬶匕比夶朼佊吡妣沘疕彼柀秕" , "B俾笔粊舭筆鄙聛貏匂币必毕闭佖坒庇诐邲妼怭畀畁哔毖珌疪荜陛毙狴畢袐铋婢庳敝梐萆萞閇閉堛弻弼愊愎湢皕禆筚詖貱赑嗶彃楅滗滭煏痹腷蓖蓽蜌裨跸閟飶幣弊熚獙碧箅綼蔽鄪馝幤潷獘" , "B罼襅駜髲壁嬖廦篦篳縪薜觱避鮅斃濞臂蹕髀奰璧鄨饆繴襞襣鏎鞸韠躃躄魓贔鐴驆鷝鷩鼊边砭笾编煸甂箯編蝙獱邉鍽鳊邊鞭鯾鯿籩炞贬扁窆匾惼碥稨褊糄鴘藊卞弁忭抃汳汴苄釆峅便变変昪" , "B覍揙缏遍辡艑辧辨辩辫辮變彪标飑髟猋脿墂幖滮骠標熛膘瘭镖飙飚儦颷瀌爂臕贆鏢镳飆飇飈飊鑣表婊裱諘褾錶檦俵鳔鰾憋鳖鱉鼈虌龞別别咇莂蛂徶襒蟞蹩瘪癟彆邠宾彬傧斌椕滨缤槟瑸賓" , "B賔镔儐濒濱濵虨豳瀕霦繽蠙鑌顮氞摈殡膑髩擯鬂殯臏髌鬓髕鬢仌氷冰

相关主题

• 汉语拼音首字母
• 用拼音首字母录入姓名