excel_汉字转换成拼音简拼(只取首字母).doc

《excel_汉字转换成拼音简拼(只取首字母).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、名字转换为首字母（VBA自定义函数）1、打开EXCEL2、按ALT+F11，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、输入公式=hztopy(A1)，填充所有单元格4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误）5、使用条件格式，检索出含有汉字的单元格:先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式=LENB(D5)>LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。有汉字的出

2、现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。7、将汉字手动改写为相应的字母。8、核对多音字。注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用1、新建一个EXCEL2、按ALT+F11，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏（*,xlam）”,文件将自动保存在C:Users111AppDataRoamingMicrosoftAddIns文件夹。4、打开需要工作的EXLEL，点击开

3、始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。代码(只复制星号内的内容)*******************************************************************************Functionhztopy(hzpyAsString)AsStringDimhzstringAsString,pystringAsStringDimhzpysumAsInteger,hziAsInteger,hzpyhexAsIntegerhzs

4、tring=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"Case&HB4EETo&HB6E9:pystring=pystr

5、ing+"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:pystring=pystring

6、+"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

7、"Case&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)EndSe

8、lectNexthztopy=pyst