员工姓名汉拼转换函数(无需加载宏)

weiguoyin868

<p>本人改编的人名汉字转换拼音的函数：</p><p>Function hztopy(hzpy As String) As String<br/>&nbsp; Dim hzstring As String, pystring As String<br/>&nbsp; Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer<br/>&nbsp; hzstring = Trim(hzpy)<br/>&nbsp; hzpysum = Len(Trim(hzstring))<br/>&nbsp; pystring = ""<br/>&nbsp; For hzi = 1 To hzpysum<br/>&nbsp;&nbsp;&nbsp; hzpyhex = "&amp;H" + Hex(Asc(Mid(hzstring, hzi, 1)))<br/>&nbsp;&nbsp;&nbsp; Select Case hzpyhex<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB0A1 To &amp;HB0C4: pystring = pystring + "A"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB0C5 To &amp;HB2C0: pystring = pystring + "B"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB2C1 To &amp;HB4ED: pystring = pystring + "C"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB4EE To &amp;HB6E9: pystring = pystring + "D"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB6EA To &amp;HB7A1: pystring = pystring + "E"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB7A2 To &amp;HB8C0: pystring = pystring + "F"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB8C1 To &amp;HB9FD: pystring = pystring + "G"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HB9FE To &amp;HBBF6: pystring = pystring + "H"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HBBF7 To &amp;HBFA5: pystring = pystring + "J"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HBFA6 To &amp;HC0AB: pystring = pystring + "K"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC0AC To &amp;HC2E7: pystring = pystring + "L"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC2E8 To &amp;HC4C2: pystring = pystring + "M"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC4C3 To &amp;HC5B5: pystring = pystring + "N"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC5B6 To &amp;HC5BD: pystring = pystring + "O"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC5BE To &amp;HC6D9: pystring = pystring + "P"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC6DA To &amp;HC8BA: pystring = pystring + "Q"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC8BB To &amp;HC8F5: pystring = pystring + "R"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HC8F6 To &amp;HCBF9: pystring = pystring + "S"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HCBFA To &amp;HCDD9: pystring = pystring + "T"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HEDC5: pystring = pystring + "T"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HCDDA To &amp;HCEF3: pystring = pystring + "W"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HCEF4 To &amp;HD1B8: pystring = pystring + "X"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HD1B9 To &amp;HD4D0: pystring = pystring + "Y"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case &amp;HD4D1 To &amp;HD7F9: pystring = pystring + "Z"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pystring = pystring + Mid(hzstring, hzi, 1)<br/>&nbsp;&nbsp;&nbsp; End Select<br/>&nbsp; Next<br/>&nbsp; hztopy = pystring<br/>End Function<br/>以上代码直接拷贝到宏命令里，在单元格里，选“自定义”即可。</p><p></p> SdaMGThU.rar (8.28 KB, 下载次数: 283)

2008-1-24 17:51 上传

点击文件名下载附件
员工姓名汉拼转换函数(无需加载宏)

<br/>

[此贴子已经被作者于2008-1-24 17:51:15编辑过]

xolf

特定的情况下很有用处的，呵呵，谢谢。

little-key

<p>平舌和卷舌的分不开啊</p><p>“陈红”应该是CHH吧，但是现在只可以是CH</p>

s8th

so good lah!!![em02]

weiguoyin868

<p>也发现有点问题，抓紧更正，等待....。</p>

araysqc

<p>这个东东的用处是什么呀</p>

dsp5000

我用拼音打得也很快啊。

dragon5204

好像在2007中不行呀  显示#name?

jghmxx

汉拼转换函数

swbuing

还应当改进
张倩 应用公式后变成了 “Z倩”