oracle 五笔码函数,如何根据单元格汉字自动生成拼音码和五笔码

1)打开电子表格软件；

2)执行工具--宏- VISUAL BASIC编辑器；

3)插入--模块；

4)在模块中输入相关代码；

5)关闭VB编辑器；

如此就OK了。

例如：在A1单元格中有姓名：郑兴民，想在A2单元格中显示拼音"zheng xing min",只需要在A2单元格中输入“=pinyin(a1)",再按回车键。以上就是拼音函数的实现。

附代码：

Function PinYin(Hz As String)

Dim PinMa As String

Dim MyPinMa As Variant

Dim Temp As Integer, i As Integer, j As Integer

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

PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784,"

PinMa = PinMa & "ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,1950