用VBA实现Excel电子表格汉字与拼音的转换

Ｓ０　ＲＥ　ＤＥＶＥＬＯＰＭＥＮＴ＆ＡＰＰＬＩＣ盯ＩＯＮ…　…　一　用ＶＢＡ实现Ｅｘｃｅｌ电子表格汉字与拼音的转换　王娜，刘思国，李亚静　（巾交天津港湾ｆ：程研究院有限公剐，火津３００２２２）　摘要：利用ＶＢＡ编程，调用自定义的汉字一拼音转换函数，实现了Ｅｘｃｅｌ电子表格中中文与拼音的快速转换　关键词：Ｅｘｃｅｌ表格；ＶＢＡ语言；汉字；拼音；转换　随着计算机的普及应用，传统的纸质印刷文档逐渐被　电脑电子文　替代，办公软件已成为处理文档时不可或缺　的１－具。Ｅｘｃｅｌ是一款功能强大且使用频繁的办公软件，在　ＨＲ部门常被刖来记录和管理人员的名单和联系方式，分析　和处理人员的业绩、收入等数据。但在某些情况下，Ｅｘｃｅｌ　并不能完全满足ＨＲ部门的需求，例如Ｅｘｃｅｌ中没有定义汉　字与拼音的转换函数，不能直接将表格中的’７义字转换为拼　音：　企业人员较少时还可以用键盘手动输入拼音，但　人数成盯上下时，采川手动输入的方法就极大地降低丁　１　作效率　利用ＶＢＡ对Ｅｘｃｅｌ进行二次开发．可有效地白定义干¨　扩展Ｅｘｃｅｌ的功能，例如：可将Ｅｘｃｅｌ电子表格中的汉字转换　为拼音。首先采用ＶＢＡ编程定义了汉语一拼音转换函数，然　后涮刚该自定义的转换函数，实现＿ｒ汉字一拼音的快速转换。　１　ＶＢＡ和汉字编码规则　１．１　ＶＢＡ　ＶＢＡ是Ｖｉｓｕａｌ　Ｂａｓｉｃ：ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎ的简称，是基于　Ｖｉｓｕａｌ　Ｂａｓｉｃ　Ｆｏｒ　Ｗｉｎｄｏｗｓ发展起来的新一代通用宏语吉．　为Ｍｉｃｒｏｓｏｆｔ的呵编程应用软件所共享　、在Ｅｘｃｅｌ中．函数　分内置函数、扩展函数和自定义函数３类。内置函数是只　要启动了Ｅｘｃｅｌ就可以使用的函数．扩展函数是必须通过加　载宏命令才能正常使川的雨数．自定义函数是通过ＶＢＡ代　码实现特定功能的函数。Ｅｘｃｅｌ自定义　数南用户自己编写　开发，一个白定义函数就是一个Ｆｕｎｃｔｉｏｎ过程　在Ｅｘｃｅｌ巾　用ＶＢＡ代码创建自定义蛹数具有如下优点：　（１）简化工作流程，解决需要较多辅助列或使用较长　公式才能完成的汁算问题。　（２）解决不能刚现有的Ｔ作簿函数完成的计算问题．　如创建汉宁和拼音的转换函数。　１．２汉字编码规则　方法以ＧＢ２３１２和ＧＢ１８０３０的汉字编码规则为基础．．　ＧＢ２３　ｌ２全称“信息交换川汉字编码字符集基本集”．是一　个简体【ｆ】文字符集的中陶同家标准．共收录６７６３个汉字．　分两级，第一级汉字３７５５个，置于１６　至５５区．按汉字　拼音字母顺序排列，同音字以笔形顺序横、ｒｆ、撇、点、　折为序；第二级汉字３００８个，置于５６　８７　．按首鄙　排列，间Ｉ田ｉ数的字也以笔形顺序为序．　对仃意一个　肜字　符部采川两个宁节表示，『ｊ仃向的字节为笫一字节，后面的　字节为第二宁节。ＧＢ２３１２所收录汉字的分级　排列详　该　规范附求２　ＧＢｌ８０３０仝称“信息技术ｌｆ】义编码字符集”，规定Ｔｉｌｅ　息技术Ｊ｝ｊ的ｌ｛１　义图形字符及其二进制编码的卜六进制表示．　与ＧＢ２３Ｉ２信息处理交换码对膻的内码兼容　、标准中任何　一个字节均Ｆ｝１　８位二进制他中组成，任何一个８化的值均　｝｝ｉ　ＯｘＯ０至ＯｘＦＦ的｝六进制计数法表爪。ＧＢ１８０３０将　ＧＢ２３１２收录的６７６３个汉　安排存“双字节２　ＪＸ”，　位范　同为：菏字节０ｘＢ０～０ｘＦ７，尾字节ＯｘＡ１～０ｘＦＥ．．可　ＧＢ１８０３０中，简体中文的编码范闱为ＢＯＡ１～Ｆ７ＦＥ．其中　Ｂ０～Ｄ７埘应ＧＢ２３１２的１６　ｌｘｌ至５５　（Ｄ７ＦＡ～Ｄ７ＦＥ是５个　空位）．Ｄ８～Ｆ７对懂ＧＢ２３１２的５６　至８７　、　２汉字一拼音转换原理　以ＧＢ１８０３０规范ＢＯＡｌ～ＦＴＦＥ编码范¨；ｌ内的６７６３个汉　字为例，介绍　Ｅｘｃｅｌ表格Ｉｆ１利川ＶＢＡ代码实现汉宇转换　为拼音的办法，这些汉字覆盖了中罔大陆汉　９９．７５％的使　川频率，编码基本满足汉字的计算机处理需受　曳“表ｌ所　示，通过如下４步，可实现汉字一拼音的转换　（１）根据ＧＢ２３１２和ＧＢｌ８０３０中汉字的分级与排列规　律，建　行数为７２、列数为９４的二维同定夫小数组（　Ｂ—　ＨＺ一６７６３（７２，９４）（同标ｒ｝１　６７６３个汉字组成的数组，简　为ＧＢＨＺ＿６７６３）。　（２）给数组ＧＢＨＺ６７６３（７２，９４）中的每个汉７赋了：伞　拼拼音，形成数组ＧＢＰＹ一６７６３（７２，９４）（　标６７６３个汉　字拼音纰成的数组，简记为ＧＢＰＹ一６７６３）。　（３）利ＪＨ汉字中文编码　Ｅｘｃｅｌ字符他的一一对应天　系，用ＶＢＡ函数Ａｓｃ０获取数组ＧＢＨＺ一６７６３（７２，９４）中各　汉字的Ｅｘ（－ｅｌ字符值，将该值　为（．ＢＨＺ—Ｅｘ（・ｅＬＩＤ，Ｉ叮采川ｔ　收稿日期：２０１６—１２－０４　－铺藿　２０ｌ巧１７与．０ｊＩ４　；－３１　

………………………………………………………一　实用第一　智慧密集　如下Ｓｕｂ过程获取汉字的Ｅｘｃｅｌ字符值，值得注意的是，　２区”最后一个表中按倒序排列的汉字拼音数组，ＰＹ（７２）　为ＧＢ　１８０３０“双字节２区”第一个表中按倒序排列的汉字　拼音数组，ＰＹ（Ｏ）为ＧＢ　１８０３０“双字节２区”各表最后　一Ｅｘｅｅｌ中汉字的字符值为负数。这样．拼音数组ＧＢＰＹ＿６７６３　（７２，９４）巾的各拼音与ＧＢＨＺ＿ＥｘｃｅｌＩＤ也具有了一一对应　关系。表１列ｍ了ＧＢ　１８０３０“双字节２区”各表最后一个　＿汉字的Ｅｘｃｅｌ字符值。　Ｓｕｂ　ＧＢＨＺＥｘｃｅｌＩＤ（）　＿—个汉字的Ｅｘｃｅｌ字符值数组（详见表１）。数组ＰＹ（２）～　ＰＹ（７１）中为ＧＢ　１８０３０“双字节２区”其余各表汉字的拼　音．在此不一一列举。　表２　Ｓｕｂ过程中主要函数及符号说明　序号　ＶＢＡ函数　ｌ　函数说明　Ｄｉｍ　Ａ　Ａｓ　Ｉｎｔｅｇｅｒ　Ａ＝Ａｓｃ（Ｗｏｒｋｓｈｅｅｔｓ（ｉ）．Ｒａｎｇｅ（＂Ａ１。）．Ｖａｌｕｅ）‘ｉ为工作簿编号　ＭｓｇＢｏｘＡ　Ｅｎｄ　Ｓｕｂ　Ｓ返回一个下标从零开始的一维数组．它包含指定数目　ｐｌｉｔ　的子字符串。　（４）利用ＶＢＡ函数Ａｓｃ０获取Ｅｘｃｅｌ工作簿中汉字　（记为ＨＺ）的字符值，将该值记为ＨＺ＿ＥｘｃｅＬＩＤ，比较　ＨＺＥｘｃｅｌＩＤ和ＧＢＨＺ＿ＥｘｃｅｌＩＤ的大小．当ＨＺ—Ｅｘｃｅｌ＿ＩＤ　——２　ＵＢｏｕｎｄ　数组的指定维的最大可用下标。　Ｓｕｂ　ＧＢＰＹ（）　Ｄｉｍ　ｉＡｓ　Ｉｎｔｅｇｅｒ，ｉ　Ａｓ　Ｉｎｔｅｇｅｒ　与ＧＢＨＺ＿Ｅｘｃｅｌ—ＩＤ数值相等时，将ＧＢＨＺ—Ｅｘｃｅｌ—ＩＤ对应的　拼音赋予ＨＺ．．　Ｄｉｍ　ＭＭ　Ａｓ　Ｖａｒｉａｎｔ　定义中间数组ＭＭ，为一维数组　Ｄｉｍ　ＰＹ（７２）Ａｓ　Ｓｔｒｉｎｇ　定义ＧＢ　１８０３０“双字节２区”各　表１　ＧＢ　１８０３０“双字节２区”部分汉字的　Ｅｘｃｅｌ字符值和拼音　序　汉字　十六进　Ｅｘｃｅｌ　拼音　序　十六进　Ｅｘｃｅｌ　序　十六进　Ｅｘｃｄ　号　糊编码　字符值　号　汉字　制编码　字符值　拼音　号　汉字　割编码　字符值　拼音　１　藉　Ｆ７ＦＥ　一２０５０　ｚｈａｌ　２５　唼　ＤＦＦＥ　一８ｌ９４　ｓｈａ４　４９　渠　Ｃ７　一ｌ４３３Ｓ　ｑⅡ２　表中的汉字拼音数组ＰＹ（７２），为７２个一维数组　ＰＹ｛０）＝“一２０５０，一２３０６，一２５６２，一２８１　８，一３０７４，一３３３０，一　３５８６，一３８４２，一４０９８，一４３５４，一４６１　０．一４８６６，一５１　２２，一５３７８．一　５６３４，一５８９０，一６１４６，一６４０２，一６６５８，－６９１４，一７１７０，一７４２６．一　７６８２，一７９３８，一８１　９４，一８４５０，一８７０６，一８９６２，一９２１　８，一９４７４，一　９７３０，一９９８６，一１０２４７．一１Ｏ４９８，一１０７５４，一１　１Ｏ１０．一１　１２６６，一　１　１５２２，一１　１７７８，一１２０３４，一１２２９０．一１２５４６，一１２８０２，一１３０５８，一　１３３１４，一１３５７０，一１３８２６，一１４０８２，一１４３３８．一１４５９４，一１４８５０．一　１５１０６，一１５３６２，一１５６１８．－１５８７４，一１６１３０，一１６３８６．一１６６４２．一　１６８９８，一１７１５４，一１７４１０，～１７６６６，一１７９２２，一１８１７８，一１８４３４，一　１８６９０　一１８９４６，一１９２０２，一１９４５８　一１９７１４，一１９９７０．一２０２２６　”　２　鳋　Ｆ６ＦＥ　一２３０６　ｓ劬１　２６　撤　ｎＥＦＥ　一８４５０　ｂａｎ４　卯　掐　Ｃ６ＦＥ　—Ｉ４５９４　ｑｉａｔ　３　觜　Ｆ５ＦＥ　一２５６２　ｚＩｌ　２７　蔺　ＤＤＦＥ　一８７０６　Ｉｉｎ４　５１　毗　Ｃ５ＦＥ　一１４８５ｏ　４　酤　ＨＦＥ　一２８１８　Ｉ　２８　荥　Ｄｃ张　一８９６２　噼　５２　丁　ｃ４Ｆ＾　Ｅ　—ｌ５ｌ０６　ｍｇ２　５　簋　Ｆ３ＦＥ　一３０７４　ｇｕｉ３　２９　埝　ＤＢ飘　一９２１８　ｎｉａｎ４　５３　摸　Ｃ３　一１５３６２　ｍ０ｌ　６　蟒　Ｆ２ＦＥ　－３３３０　ｍａｌＩ｛；３　３ｏ　酆　Ｄ＾陀　一９４７４　５４　漫　Ｃ２Ⅱ　一１５６１８　ｍａｎ４　７　颃　ＦＩＦＥ　一３５ｓ６　ｈａｎｇ２　３ｌ　冼　Ｄ９ＦＥ　一９７如　：ｄａｎ３　５５　窿　Ｃ１ＦＥ　一１５盯４　ｌｏｎｇ２　８　瘙　Ｆ０ＦＥ　一３８４２　ｓａｏ４　３２　佝　ＤＳＦＥ　一９９８６　ｇｏｕｌ　５６　俐　ｃ０ＦＥ　—Ｉ６１３ｏ　Ｍ　９　稔　ＥＦＦＥ　－４０９８　ｔｅｎ３　３３　座　Ｄ７丹　一ｌ０２４７　ｚｏｏ４　５７　傀　ＢＦＦＥ　一１６３８６　ｇＩｌｉｌ　ｌＯ　铪　ＥＥＦＥ　＿４３５４　ｈｌ　３４　筑　Ｄ６ＦＥ　—ｌ０４９８　ｚｈｕ４　５８　竣　驰ＦＥ　—ｌ６６４２　ｊｕｎ４　Ｉ１　脘　ＥＤＦＥ　６１０　ｈｉ４　３５　政　Ｄ５ＦＥ　一１０７５４　出　５９　爰　ＢＤＦＥ　一１６８９昙　ｊｉｌｌ４　ＰＹ（１）＝“ｚｈａｌ，ｈａｎｌ，ｑｉｕ２，ｘｉ１，ｙａｎ３，ｗｕ２，ｙｏｕ４．ｆｅｎ２，ａｎ４，　ｃａｎ３　ｑｉｎｇ２　ｌｉ２．ｄｕ２　ｑｕｌ　ｙｉｌ　ｘｉａ２　ｙｏｕ３　ｃｈｕ４　ｄａｉ４　ｌｉｎ２　ｓｈｅ４　ｌ２　忐　ＥＣＦＥ　－４８６６　ＩａＴＩ３　３６　轧　Ｄ４ＦＥ　—Ｉｌ０１０　ｚ｝ｌａ２　６０　件　ＢＣＦＥ　—ｌ７ｌ５４　ｊｉａｎ４　ｌ３　膻　ＥＢＦＥ　一５ｌ２２　ｓｌｌａｎｌ　３７　誉　Ｄ３ＦＥ　—Ｉｌ２６６　ｖｌＩ４　６ｌ　箕　ＢＢＦＥ　一１７４１０　ｊｉｌ　ｌ４　掰　ＥＡＦＥ　一５３７８　ｈｉｌ　３８　隐　Ｄ２ＦＥ　—Ｉ１５２２　ｎ３　６２　湖　队ＦＥ　—ｌ７６６６　ｈａ２　ｌ５　辋　Ｅ９ＦＥ　一５６３４　ｗａｎｇ３　３９　瑶　ＤｌＦＥ　－１ｌ７７８　ｙａｏ２　６３　哈　Ｂ９ＦＥ　一１７９２２　ｈａ３　ａｏ２，ｑｉ２　ｍｉ２，ｚｈｕ３，Ｊｕｎｌ，ｉｉ３，ｍｉ２，ｈｕｉｌ．ｍｅ５．１ｉｅ４，ｈｕａｎ２．ｂｉｎ４，ｊｉ—　ｕｌ　ｑｕａｎ２　ｘｉｕｌ　ｚｉｌ　ｊｉ４　ｔｉａｏ２．ｒａｎ２．ｍａｃ２　ｋｕｎｌ　ｂｉａｏ１　ｙｏｎｇ１　ｔａｏｌ，ｔｉｅ４。ｖａｎ４，ｘｉａｎｇ３，ｃｈｉｌ，ｗａｎｇ３，ｘｉａｏｌ，Ｉｉａｎｇ３，ｙａｎ３，ｂａ２，　ｍｅｉ４．ｄｕ２，ｂｉｎ４，ｋｕａｎ１．ｑｉａ４，ｌｏｕ２，ｂｉ４，ｋｅｌ，ｇｅ２，ｈｏｕ２，ｄｉ３，ｇｕ３．　ｌ６　棹　ＥＳＦＥ　一５８帅　，ｈａｏ４　柏　玄　Ｄ０ＦＥ　—ｌ２ｏ３４　ｘｕｎａ２　矾　羹　Ｂ８　一ｌ８１７８　ｇｅｎｇｌ　１７　琬　Ｅ７ＦＥ　＿６ｌ４６　ｗｎ３ａ　４ｌ　跷　ＣＦＦＥ　—ｌ２２９０　ｘｈｏ３　６５　服　Ｂ７死　一ｌ８４３４　ｆｕ２　１８　圹　Ｅ６ＦＥ　枷　ｋｕａ耐　４２　牺　ＣＥＦＥ　—ｌ２５４６　１　６６　Ｂ６ＦＥ　—ｌ８　ｅ，４　ｋｕｌ，ｔｏｕ２，ｊｉｅ４，ｂｅｉ４，ｇｏｕｌ，ｒｏｕ２，ｊｕ１，ｊｉａｎｌ，ｍａｎ２，ｑｉａｏ２，ｄａ２，　ｙａｎｇｌ，ｄａ２．１ｉ３，ｚｕｎｌ，ｓｈａｎ４，ｇｕｉ４．ｙｏｎｇ１．ｍｉｎ３．ｍａｎ２，ｘｕｅ３．　ｌ９　妣　ＥＳＦＥ　＿６６５Ｓ　ｈｉ３　４３　威　ＣＤ雎　一ｌ２８位　ｗｃｉ１　６７　叠　Ｂ５职　一ｌ８９４６　ｄｌｃ２　２０　濑　Ｅ４ＦＥ　－６９ｔ４　ｌｍ　４４　烃　ｃｃＦＥ　一１３０５８　ｆｉｎｇｌ　６８　逮　Ｂ４　一ｌ９２０２　３　２ｌ　泾　Ｅ３ＦＥ　一７１７０　】ｉｎｇｌ　４５　塔　ＣＢＦＥ　一１３３ｌ４　Ｉａ３　６９　楚　Ｂ３ＦＥ　—ｌ９　８　ｃｈｕ３　ｂｉａｏ４，ｌｅ４．ｙａｏ２　ｇｕａｎｌ，ｔａ３，ｑｉ２．ａｏ２，’’　ＰＹ（７２）＝“ｂａｏｌ，ｂａｏ１．ｂａｏｌ，ｂａｏｌ，ｂａｏｌ，ｂａｎｇ４，ｂａｎｇ４，　ｂａｎｇ４．ｂａｎｇ４，ｐａｎｇ２．ｂａｎｇ４，ｂａｎｇ３．ｂａｎｇ３，ｂａｎｇ３，ｂａｎｇ１．　２２　恂　Ｅ２ＦＥ　一７４２６　ｘｕｎ２　４６　漱　ｃＡＦ色　一Ｉ３５７ｏ　ｓｈＩｌ４　７０　猖　Ｂ２ＦＥ　一１９７ｌ４　ｅｈｎｇｌ　２３　捂　ＥｌＦＥ　一７６８２　ｖｉｎ２　４７　绳　ｃ９　一ｌ３８２６　ｓｈｅｎｇ２　７ｌ　炳　Ｂｌ砸　一１９卯０　ｂｉｎｇ３　２４　帼　ＥＯＦＥ　一７９３８　ｇａｏ２　４８　叁　Ｃ８ＦＥ　—ｌ４０８２　ｓａｎｌ　７２　剥　Ｂ０ＦＥ　一２０２２６　ｂｎａｌ　ｂａｎｇ１　ｂａｎｇ１　ｂａｎ４　ｂａｎ４　ｂａｎ４．ｂａｎ４　ｂａｎ４　ｂａｎ４　ｂａｎ４　ｂａｎ３　ｂａｎ３．ｂａｎ１．ｂａｎ１，ｂａｎ１，ｂａｎ１，ｂａｎ１．ｂａｎ１，ｂａｉ４，ｂａｉ４，ｂａｉ４，ｂａｉ３，　注：表中拼音后的数值表示声调．１表示一声，２表示　二声，３表示三声，４表示四声。　ｂａｉ３　ｂａｉ３　ｂａｉ３　ｂａｉ２　ｂａ４　ｂａ４　ｂａ４．ｂａ４　ｐａ２　ｂａ３　ｂａ３　ｂａ２　ｂａ２　ｂａ１　ｒｂａ１．ｂａ１　ｌｂａ１，ｂａ５，ｂａ１，ｂａ１．ｂａｌ，ｂａ１，ａｏ４．ａｏ４，ａｏ４，ａｏ４．　ａｏ３．ａｏ２，ａｏ２．ａｏ２．ａｏｌ，ａｎｇ４，ａｎｇ２，ａｎｇｌ，ａｎ４．ａｎ４，ａｎ４，ａｎ４　３汉字一拼音转换的ＶＢＡ代码实现　３．１建立拼音数组　ａｎ４　ａｎ３　ａｎ１　ａｎ１　ａｎ１　ａｉ４．ａｉ４　ａｉ４　ａｉ４　ａｉ３　ａｉ３　ａｉ２　ａｉ２　ａｉｌ　ａｌ１．　创建Ｓｕｂ过程，通过Ｆｏｒ循环．建立拼音数组　ＧＢＰＹ一ａ　ａ．１ｌａ　ａ１，ａ１，”　ＭＭ＝Ｓｐｌｉｔ（ＰＹ（０）．。．　）　ＲｅＤｉｍＧＢＨＺ＿Ｅｘｃｅｌ—ＩＤ（ＵＢｏｕｎｄ（ＭＭ））　Ｆｏｒ　ｉ＝１　Ｔｏ　ＵＢｏｕｎｄ（ＭＭ）　６７６３（７２，９４），关键语句如下，其中用到的重要　ＶＢＡ函数列于表２。语句中，ＰＹ（１）为ＧＢ　１８０３０“双字节　２０１７疆．０４２／＇ｉ３／电■■疆技圬与毫壬电＿＿技『ｉ＇＿●‘　圬与毫　Ｉｉ　

ＧＢＨｚ＿Ｅｘｃｅｌ—ＩＤ（ｉ）＝ＭＭ（ｉ一１）　建立数组ＧＢＨＺ＿ＥｘｃｅｌｌＤ（），　＿Ｄｉｍ　Ｎ　Ａｓ　Ｉｎｔｅｇｅｒ　Ｄｉｍ　ＨＺＥｘｃｅｌＩＤ　Ａｓ　Ｌｏｎｇ　定义数组ＨＺ＿Ｅｘｃｅｌ—ＩＤ，　——为一维数组　Ｎｅｘｔ　ｉ　Ｆｏｒ　ｉ＝１　Ｔｏ　７２　存放需进行拼音转换的汉字的字符值　Ｄｉｍ　Ｙ　Ａｓ　Ｂｙｔｅ　ＭＭ＝Ｓｐｌｉｔ（ＰＹ（ｉ），”，”）　Ｆｏｒ　１　ＴＯ　ＵＢｏｕｎｄ｛ＭＭ）　ＧＢＰＹ６７６３（ｉ，ｊ）＝ＭＭ　一１）　建立拼音数组　Ｄｉｍ　Ａ＿ＨＺ　Ａｓ　Ｓｔｒｉｎｇ　定义数组Ａ＿ＨＺ，存放需进行　拼音转换的汉字，字母Ａ为Ａｒｒａｙ的首字母　Ｄｉｍ　ＡＰＹ　Ａｓ　Ｓｔｒｉｎｇ　定义数组Ａ—ＰＹ，存放需转换　＿ＧＢＰＹ＿６７６３（），为７２行、９４列的二维数组　Ｎｅｘｔｊ　Ｎｅｘｔ　ｉ　Ｅｎｄ　Ｓｕｂ　３２　自定义Ｉ１ｉｌ１　１函数　创建Ｆｕ１｜｛、ｔｉｍ］过程，迎过Ｆｍ・循环、Ｉｎ｝｝句卡¨Ｓｅｌｅｔ・ｔ　（：　语句，Ｉ＇ｔ定义Ｐｉｎ＇￣　ｉｎ闲数．　，口］如＿Ｆ，其ｒＩ】用到的重　ＶＢＡ　数列于表３　ＰｌｌＩＹｉｎ甬数主要参数的含义为：Ｈｚ　衷示Ｅｘｃ－ｅｌ　ｆ：作簿『ｆ】需进行拼ｆ１　转换的汉７，Ｄｅｌｉｍｉｔｅｒ表示　拼肯Ｉｈ　分隔符．Ｔｐｙ表爪所转换的拼肯的型式　、使川该函　数处理Ｅｘｔ，ｌｅ汉字时，有８种¨丁供选择的拼音型式，如表４　所乐　表３　Ｆｕｎｃｔｉｏｎ过程中主要函数及符号说明　号、ＢＡ　数　闲数　兑Ｉ删　；　。・维数组，它包禽指定数目的于　　Ｉ．一…　　．陋　一个下标从零＂始的字符串　２　Ｌ　Ｉ｛（１ｕｎｄ数组的指定维的蛙人『】ｒ川Ｖｔ，Ｊ；　３　Ｔｒ｜Ｉ１　ｌ除了单词之　的单个夺格外，清除史本中所柏的空格　４　１．ｅｎ　统汁文本字符串ｆｆ１　＃符数Ｈ　５　Ｍｉｃ　ｌ　从一个文本字符ｆ　々指定位置开始．戡取指定数门的字符。　６　Ａｓ　趣网汉字的Ｅｘｃｅｌ　符ｆｉｌｌ，勾负值　７　ＵＢｍｍｄ敬纽的指定维的艇火ＩＩ『Ｊ］Ｊ　Ｆ标　８　ｌＩｆ　掘表达式的值，米返…棚部分ｔ１ｌ６々其＿ｌ１一个。　９　＆　字符串连接符　表４　Ｓｅｌｅｃｔ　Ｃａｓｅ语句定义的８种拼音型式　拼音型Ｉ　ｒ　］式编号ｌ　Ｃ一　ｉｌｌ：＇ｕＪ　拼爵型式说明　、写．垒拼．无堋　１ＡＰＹ＝ＳｉｒＣｏｍ　ＩＡＩ　、　，３１　　Ｉｆ　２　ｆ　Ｃａｓｅ２　ｒｐｙｐＹ＝ｌｌｆ（Ａ＿Ｉ’、＝Ａ—Ｈｚ．Ａ＿ｌ’¨‘｝Ｔ　ｊ，令拼，无声调　ｉｆＩ！＿＾：　Ｌ！．　ｎ（Ａ—Ｐ、＿）二Ｉ　一　ｌ　Ａ　ＰＹ＝ＵＣａｓｅ（Ａ～ｌ　Ｙ）　３　Ｃａｓｅ３　Ｔｐ＞ＰＹ＝ｌｌｆ（Ａ＿Ｉ　Ｙ＝Ａ＿ｌ　Ｉ　．一＿】’、　火’ｉ．全拼，尤声’周　ｌＭｉｄ　Ｉ　：Ｉ：！，ｌ，ｌ　Ｉ】（Ａ—Ｉ’Ｙ）一Ｉ））Ｊ——　Ｊ　ｌ４　＿１－　Ｃａｓｅ４　ＴＩ，ｙ＿Ｉ，、　＝Ｉ　ｎ（Ａ＿ｌ　Ｙ＿１）　小　譬．首字母，无声调　５　Ｃａｓｔ　５　ＴＩ，Ｙ＿Ｊ　Ｙ＝ＵＣａｓ　（　ｎ（Ａ一１　Ｙ．１））大写，首字母，无声调　６　Ｃａｓｔ　６　Ｔｐｙ　ＰＹ＝ＡＰＹ　小写，全拼，仃声嗣　７　Ｃａｓｅ＇＂］。ＴｐｙＰＹ＝ＳｔｒＣｏｍ（Ａ—Ｉ　Ｙ．３ｌ　Ｉｔ１写，全拼，有声凋　！！！＿ｒ　ＩＹ＝ＵＣａｓｅ（■　）＿　－伞　，塑皇　Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＰｉｎＹｉｎ（ＨＺ　Ａｓ　Ｖａｒｉａｎｔ．Ｄｅｌｉｍｉｔｅｒ　Ａｓ　Ｓｔｒｉｎｇ，Ｔｐｙ　Ａｓ　Ｂｙｔｅ）Ａｓ　Ｓｔｒｉｎｇ　后的拼音　Ｄｉｍ　Ｔｐｙ—ＰＹ　Ａｓ　Ｓｔｒｉｎｇ　定义数组Ｔｐｙ＿ＰＹ，存放需不　同型式的拼音　Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　发生错误时，继续执行下一句　代码　Ｃａｌｌ　ＧＢＰＹ‘调用Ｓｕｂ过程　Ｉｆ　ＨＺ＝…‘Ｔｈｅｎ　ＰｉｎＹｉｎ＝…’　Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　Ｅｎｄ　ｆｆ　Ｆｏｒ　ｉ＝１　Ｔｏ　Ｌｅｎ（Ｔｒｉｍ（ＨＺ））　Ａ　ＨＺ＝Ｍｉｄ《Ｔｒｉｍ（ＨＺ），ｉ，１）　ｌｆＡ　ＨＺ＝　Ｔｈｅｎ　Ｔｐｙ—ＰＹ＝””　Ｅｌｓｅ　Ｈｚ＿Ｅｘｃｅｌ—Ｉ　Ｄ＝Ａｓｃ（Ａ＿ＨＺ）　Ｆｏｒ　Ｎ＝１　Ｔ０　ＵＢｏｕｎｄ（ＧＢＨＺ　．Ｅｘｃｅｌ　ＪＤ）Ｉｆ　ＧＢＨｚ－Ｅｘｃｅｌ—ＩＤ（Ｎ）＜ＨＺ＿Ｅｘｃｅｌ—ＩＤ　Ｔｈｅｎ　Ｅｘｉｔ　Ｆｏｒ　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　Ｎ　Ｄ—ｖａｌｕｅ＝ＧＢＨＺ　Ｅｘｃｅｌ—ＩＤ（Ｎ一１）一ＨＺ—Ｅｘｃｅｌ—ＩＤ　计算　Ｅｘｃｅｌ中汉字字符值的差值，记为Ｄ—ｖａｌｕｅ　ｔｆ　Ｄ　ｖａｌｕｅ＜０　Ｏｒ　Ｄ—ｖａｌｕｅ＞９３　Ｔｈｅｎ　Ａ　ＰＹ＝Ａ　ＨＺ　Ｙ＝１　Ｅｌｓｅ　Ａ＿ＰＹ＝ＧＢＰ、　６７６３（Ｎ一１，Ｄ＿ｖａｔｕｅ＋１）　从拼音数组　ＧＢＰＹ一６７６３中获取拼音　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｔｐｙ　具体语句详见表４　Ｅｎｄ　Ｓｅｌｅｃｔ　ＰｉｎＹｉｎ：ＰｉｎＹｉｎ＆ＩＩｆ（Ａ　＿ＰＹ＝Ａ．＿ＨＺ，Ｔｐｙ—ＰＹ，ＩＩｆ（Ｙ＝１　Ｄｅ—　Ｉｉｍｉｔｅｒ＆Ｔｐｙ　ＰＹ＆Ｄｅｌｉｍｉｔｅｒ，ＩＩｆ（ｉ＝Ｌｅｎ（Ｔｒｉｍ（ＨＺ）），Ｔｐｙ＿ＰＹ，　Ｔｐｙ＿ＰＹ＆Ｄｅｌｉｍｉｔｅｒ）））　Ｙ＝Ｉｉｆ（Ｙ＝１，ＩＩｆ（Ａ＿ＰＹ＝Ａ＿ＨＺ　１　Ｏ），０）　Ｎｅｘｔ　ｉ　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　３．３汉字～拼音转换结果　Ｅ　ｅｌ　Ｉ：作簿中，使川　定义的　Ｙｉｎ　数．川‘快　速地　州－『义　一拼青转换，以“我们Ｖ，ｊ￣１ｔｌ叫址￣ｇｌ，ｏ１．７Ｅｌ，￣ｌｆ＇ｌ＂Ｊ　蕾缩　护３３　

ｔ■　’　－　●＿　＿　，…＿…　－　…●ｔ　●＿●●●…　，…●＿…　…’●●●…－－　…　●　实用第一　智慧密集　，。…，．　．…　。．　．　，　花朵真鲜艳　”一句为例，在Ｅｘｃｅｌ工作簿空白处输入“＝　ｐｉｎｙｉｎ（Ｘ，””，Ｔｐｙ）”（Ｘ为汉字在Ｅｘｃｅｌ　３－．作簿中的编　号，Ｔｐｙ为想得到的拼音型式），拼音输出结果如表５所示。　表５　ＶＢＡ代码汉字一拼音转换结果　汉字　一拼音转换　花园的花朵真鲜艳。　ｉｙｕａｎ　ｄｅ　ｈｕａ　ｄｕｏ　ｚｈｅｎｘｉａｎｙａｎ。　ａ　Ｙｕａｎ　Ｄｅ　Ｈｕａ　Ｄｕｏ　Ｚｈｅｎ　Ｘｉａｎ　Ｙａｈ。　ＪＡ　ＹＵＡＮ　ＤＥ　ＨＵＡ　ＤＵ０　ＺＨＥＮ　ＸＩ—　Ｉ　ＹＡＮ。　４结语　以ＧＢ２３１２和ＧＢ　１８０３０的汉字编码规则为基础，利月　ＶＢＡ编程，白定义了可在Ｅｘｃｅｌ　Ｔ作簿中使用的“汉字一｛；　音转换函数”，该函数可方便、快捷地将ＧＢ　１８０３０规　ＢＯＡ１～Ｆ７ＦＥ编码范围内的６７６３个汉字转换为拼音，显　提高工作效率。　参考文献　［１】ＥｘｃｅｌＨｏｍｅ．Ｅｘｃｅｌ　ＶＢＡ其实很简单【Ｍ】．北京：人后　邮电出版礼，２０１２．　【２１魏汪洋．Ｅｘｃｅｌ　２００７　ＶＢＡ高级编程宝典【Ｍ】．北京：哇　子工业出版社．２００９．　Ｄ　Ｈ　Ｄ　ＺＸ　Ｙ。　ｙｕａｎ２　ｄｅ５　ｈｕａｌ　ｄｕｏ３　ｚｈｅｎｌ　ｘｉａｎｌ　Ｙｕａｎ２　Ｄｅ５　Ｈｕａｌ　Ｄｕｏ３　Ｚｈｅｎｌ　Ｘｉ．　ｆａｎ４。　ｌ　ＹＵＡＮ２　ＤＥ５　ＨＵＡｌ　ＤＵＯ３　１　ＸＩＡＮ１　ＹＡＮ４。　．［３］ＧＢ　２３１２－８０信息交换用汉字编码字符集基本集［ｓ】．　［４ｌ　ＧＢ　１８０３０—２００５．信息技术中文编码字符集【Ｓ１．　Ｓ止．Ｓ也．址．Ｓ止．Ｓ止．Ｓ‘．址．Ｓ止．Ｓ止．５止．址．　－Ｌ．Ｓ也．址．５止．喜屯．址　驰．Ｓ止．Ｓ止　．Ｓ止．札．Ｓ止．札．Ｓ也．喜　．址　．‘屯．Ｓ‘Ｌ．Ｓ止．Ｓ止．Ｓ‘．址．Ｓ止．　止．５止．址．　屯．｛止．　止．址．５ｌ上．　（上接第２７页）　３．４　ＧＨＯ文件制作　在ＰＥ环境中使用Ｓｙｍａｎｔｅｃ公司的ＧｈｏｓｔＩ１进行ＧＨＯ　文件的制作，选择源分区和目标分区后进行高压缩比的压　缩，进一步减小ＧＨＯ文件体积，为１３后系统软件的升级和　添加预留空间。具体步骤如图２所示。　图３　ＩＳＯ文件制作　４实际部署前测试　经过封装压制，可以将成品的ｌＳＯ文件在虚拟机中ｊＩ　行测试．主要测试启动项能否正常启动．菜单是否有效　ＰＥ系统能否正常引导等，还可以在虚拟机中进行一次实　的部署．以测试万能驱动包以及其他软件能否正常注入　统，经过实际的测试，该ＩＳＯ镜像就可以进行刻录使用了　Ｗｉｎ７自带的ＩＳＯ镜像刻录机进行刻录，为了能在一张ＤＶ］　光盘中刻录整个镜像，需要在封装过程中适度精简系统　图２　ＧＨＯ文件生成　３．５　ＩＳＯ文件制作　件，只安装必须的软件，同时在封装前使用“系统总裁”圭　装＿Ｔ具进行容量预估，确保封装后体积小于４．７ＧＢ，最好｝　有约ｌＧ的余量，以便日后对镜像内的软件进行升级和扩充　使用ＥａｓｙＢｏｏｔ软件可以进行启动界面的制作．为了简　化启动界面的制作过程．可以使用网络上现成的ＩＳＯ镜像，　５结语　本系统恢复盘采用微软ＭＳＤＮ原版操作系统进行系生　封装，系统内预置了本单位所需办公软件、字库、输入法　安全防护软件等必备软件，同时简化了启动界面，操作　单易用，可广泛应用于办公计算机操作系统的快速恢复。　使用ＵｈｒａｌＳＯ软件将其中的ＢＯＯＴ文件夹提取出来，再将　适用的ＰＥ镜像、自定义的启动界面使用ＥａｓｙＢｏｔ软件进行　压制．将新生成的ＧＨＯ文件进行替换即可完成ＩＳＯ文件的　的制作。软件操作实例如图３所示。　３４电　与肇