沃德电脑大布乐子镇我边？

打开excel并添加一个模块。

函数拼音(Hz为字符串)

Dim PinMa作为字符串

Dim MyPinMa作为变体

Dim Temp为整数，I为整数，j为整数

PinMa = "a，20319，ai，20317，an，20304，ang，20295，ao，20292，"

品马。“巴，20283，白，20265，班，20257，邦，20242，鲍，20230，贝，20051，本，20036，崩，20032，毕，20026，边，20002，彪，19990，别，19986，宾，1938

品马。“ca，19775，蔡，19774，can，19763，苍，19756，曹，19751，ce，19746，曾，19741，查，19739，柴

品马。“达，19218，戴，19212，丹，19038，当，19023，道，19018，德，19006，邓，19003，迪，108

品马。e，18710，en，18697，er，18696

品马。“法，18526，范，18518，方，18501，费，18490，芬，18478，冯，18463，佛，18448，富，18447

品马。“嘎，18239，盖，18237，甘，18231，刚，18220，高，18211，葛，18201，给，1865438+

品马。“哈，17922，海，17759，韩，17752，杭，17733，郝，17730，何，17721，黑，17703，母鸡，17701，恒

品马。“纪，17417，贾，17202，剑，17185，姜，16983，焦，16970，桀，16942，金，16915，景，15438

品马。“ka，16474，kai，16470，kan，16465，kang，16459，kao，16452，ke，16448，ken，16433，keng，16429，kong，16427

品马。“拉，16212，赖，16205，兰，16202，郎，1616687，老，16180，乐，1617166438

品马。“马，15640，梅，15631，男，15625，孟，15454，毛，15448，我，15436，梅，15435，男，15419，孟

品马。“那，15165，奈，15158，南，15153，囊，15150，瑙，15149，内，15144

品马。o，14922，ou，14921

品马。“pa，14914，pai，14908，pan，14902，pang，14894，pao，14889，pei，14882，pen，14876，5438+0，pi

品马。“齐，14630，齐，14594，钱，14429，张，14407，乔，14399，秦，14384，秦，14379，青，14368，琼，1438

品马。“冉，14149，让，14145，饶，14140，热，14137，任，14135，任，14125，日，655438

品马。"萨，14090，赛，14087，桑，14083，桑，13917，骚，13914，塞，13910，森，13907，森，105

品马。“ta，133108，tai，13147，tan，13138，唐，13120，tao，13107，te，13096，teng，1300

品马。“瓦，12838，韦，12831，万，12829，王，12812，魏，12802，文，12607，翁，12597，沃，12594，吴

品马。“，12556，夏，12359，冼，12346，项，12320，肖，12300，谢，12120，辛，12099，邢，12089，熊，65438

品马。“雅，11847，颜，11831，杨，11798，姚，11781，叶，11604，易，165438

品马。“za，11055，zai，11052，zan，11045，zang，11041，zao，11038，ze，11024

MyPinMa = Split(PinMa，"，")

对于i = 1至Len(Hz)

Temp = Asc(Mid(Hz，I，1))

如果温度& lt那么0

温度=绝对温度

对于j = 791至1步骤2

如果温度& lt= Val(MyPinMa(j))然后

拼音=拼音。迈平马(j - 1)及" "

为...退出

如果…就会结束

然后

如果…就会结束

然后

拼音= Trim(拼音)

结束功能

以上音码表是从一些网上工具上获得的，其准确性尚未得到充分验证。希望不要出错！至于算法，ASC码和码表对比有点难看。使用中发现上面的码表只限于GB2312-80 I汉字。

然后在任一单元格中输入。

=拼音(a1)

我把a1中的汉字转换成拼音。