資源描述:
《excel表格漢字轉(zhuǎn)拼音首字母的方法》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、問題,將excel表格中,以下關(guān)鍵詞轉(zhuǎn)換為拼音首字母很多朋友都會(huì)熟悉使用excel,有時(shí)候?yàn)榱朔奖?,需要把excel轉(zhuǎn)換為拼音或者拼音首字母,接下來我就介紹一下怎么把單元格里的關(guān)鍵詞變?yōu)槭鬃帜甘纠汉贾輧?yōu)視唯康近視眼矯正杭州優(yōu)視唯康近視眼怎么辦杭州優(yōu)視唯康近視眼怎么恢復(fù)杭州優(yōu)視唯康近視眼怎么治杭州優(yōu)視唯康近視眼治療杭州優(yōu)視唯康近視怎么辦方法如下:1.啟動(dòng)excel,按下ATl+F11,進(jìn)入編輯選擇插入→模塊,彈出如下窗口復(fù)制以下代碼到模塊中代碼:Functionhztopy(hzpyAsString)AsStringDimhzstringAsString,pystringAsStringDim
2、hzpysumAsInteger,hziAsInteger,hzpyhexAsIntegerhzstring=Trim(hzpy)hzpysum=Len(Trim(hzstring))pystring=""Forhzi=1Tohzpysumhzpyhex="&H"+Hex(Asc(Mid(hzstring,hzi,1)))SelectCasehzpyhexCase&HB0A1To&HB0C4:pystring=pystring+"A"Case&HB0C5To&HB2C0:pystring=pystring+"B"Case&HB2C1To&HB4ED:pystring=pystring+"C"C
3、ase&HB4EETo&HB6E9:pystring=pystring+"D"Case&HB6EATo&HB7A1:pystring=pystring+"E"Case&HB7A2To&HB8C0:pystring=pystring+"F"Case&HB8C1To&HB9FD:pystring=pystring+"G"Case&HB9FETo&HBBF6:pystring=pystring+"H"Case&HBBF7To&HBFA5:pystring=pystring+"J"Case&HBFA6To&HC0AB:pystring=pystring+"K"Case&HC0ACTo&HC2E7:py
4、string=pystring+"L"Case&HC2E8To&HC4C2:pystring=pystring+"M"Case&HC4C3To&HC5B5:pystring=pystring+"N"Case&HC5B6To&HC5BD:pystring=pystring+"O"Case&HC5BETo&HC6D9:pystring=pystring+"P"Case&HC6DATo&HC8BA:pystring=pystring+"Q"Case&HC8BBTo&HC8F5:pystring=pystring+"R"Case&HC8F6To&HCBF9:pystring=pystring+"S"C
5、ase&HCBFATo&HCDD9:pystring=pystring+"T"Case&HEDC5:pystring=pystring+"T"Case&HCDDATo&HCEF3:pystring=pystring+"W"Case&HCEF4To&HD1B8:pystring=pystring+"X"Case&HD1B9To&HD4D0:pystring=pystring+"Y"Case&HD4D1To&HD7F9:pystring=pystring+"Z"CaseElsepystring=pystring+Mid(hzstring,hzi,1)EndSelectNexthztopy=pyst
6、ringEndFunction如圖:點(diǎn)擊右上角關(guān)閉按鈕,關(guān)閉模塊,返回到excel界面輸入如下關(guān)鍵字:杭州優(yōu)視唯康近視眼矯正杭州優(yōu)視唯康近視眼怎么辦杭州優(yōu)視唯康近視眼怎么恢復(fù)杭州優(yōu)視唯康近視眼怎么治杭州優(yōu)視唯康近視眼治療如圖在B2中輸入=hztopy(A2)回車下拉,關(guān)鍵詞已被全部替換。如圖好了已經(jīng)針對(duì)A列中所有的單元格,在B列中順利轉(zhuǎn)換為首字母了謝謝合作,