软件实施人员常用的EXCEL生成拼音助记码

软件实施人员常用的EXCEL生成拼音助记码使用方法：1、打开要生成的EXCEL文件，选择工具--宏---VisualBasic编辑器（快捷键：alt+f11）2、选择：插入--模块--把下方的代码粘贴到里面，保存3、代码部分：FunctionPinYin(HzAsString)DimPinMaAsStringDimMyPinMaAsVariantDimTempAsInteger,iAsInteger,jAsIntegerPinMa=a,20319,PinMa=PinMa&b,20283,PinMa=PinMa&c,19775,PinMa=PinMa&d,19218,PinMa=PinMa&e,18710,PinMa=PinMa&f,18526,PinMa=PinMa&g,18239,PinMa=PinMa&h,17922,PinMa=PinMa&j,17417,PinMa=PinMa&k,16474,PinMa=PinMa&l,16212,PinMa=PinMa&m,15640,PinMa=PinMa&n,15165,PinMa=PinMa&o,14922,PinMa=PinMa&p,14914,PinMa=PinMa&q,14630,PinMa=PinMa&r,14149,PinMa=PinMa&s,14090,PinMa=PinMa&t,13318,PinMa=PinMa&w,12838,PinMa=PinMa&x,12556,PinMa=PinMa&y,11847,PinMa=PinMa&z,11055,MyPinMa=Split(PinMa,,)Fori=1ToLen(Hz)Temp=Asc(Mid(Hz,i,1))IfTemp0ThenTemp=Abs(Temp)Forj=45To1Step-2IfTemp=Val(MyPinMa(j))ThenPinYin=PinYin&MyPinMa(j-1)ExitForEndIfNextElse'保留非汉字字符PinYin=PinYin&Mid(Hz,i,1)EndIfNextPinYin=Trim(PinYin)EndFunction4、保存后，回到EXCEL内容编辑界面5、在需要生成助记码的地方。输入公式=pinyin(相应的汉字单元格)如果行数多的话，先填充好B列，再拷入A列之后也可以通过替换功能去掉B列空格