Office中国论坛/Access中国论坛

标题: 有没有办法通过VBA实现汉字匹配拼音? [打印本页]

作者: 众叛亲离 时间: 2010-3-24 23:04
标题: 有没有办法通过VBA实现汉字匹配拼音?
比如说A列给出一组人的姓名,想在B列自动匹配出相关的汉语拼音.请问能做到吗?谢谢

作者: 方漠 时间: 2010-3-26 09:43
应该可以的.
贴上两个相关的函数,ALT+F11,新建一MODULE,然后COPY以下代码,再回工作表引用这两个函数就可以了.

'获取汉字拼音首字母
Public Function PY(Hzz As String) As String
Dim I As Integer, Hz1 As String, Hz As Long
For I = 1 To Len(Hzz)
Hz1 = Mid(Hzz, I, 1)
Hz = Asc(Hz1)
   PY = PY & Switch(Hz < -20319, Hz1, Hz < -20283, "A", Hz < -19775, "B", Hz < -19218, "C", Hz < -18710, "D", _
         Hz < -18526, "E", Hz < -18239, "F", Hz < -17922, "G", Hz < -17417, "H", Hz < -16474, "J", Hz < -16212, "K", _
         Hz < -15640, "L", Hz < -15165, "M", Hz < -14922, "N", Hz < -14914, "O", Hz < -14630, "P", Hz < -14149, "Q", _
         Hz < -14090, "R", Hz < -13318, "S", Hz < -12838, "T", Hz < -12556, "W", Hz < -11847, "X", Hz < -11055, "Y", _
         Hz < -10246, "Z", Hz > -10247, Hz1)
Next
End Function

HZPY（String）:返回汉字拼音首字母函数：

Function HZPY(hzstr As String) As String
Dim p0 As String, C As String, STR As String
Dim i As Integer, j As Integer
p0 = "吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
For i = 1 To Len(hzstr)
C = "z"
STR = Mid(hzstr, i, 1)
If Asc(STR) > 0 Then
      C = STR
Else
      For j = 1 To 26
         If Mid(p0, j, 1) > STR Then
            C = Chr(95 + j)
            Exit For
         End If
      Next
End If
HZPY= HZPY+ C
Next
End Function

作者: 众叛亲离 时间: 2010-4-7 11:30
好像不是这样子的，还是我调用错了？

作者: 方漠 时间: 2010-4-8 09:41
你只要引用其中一个函数就行.

在单元格里输入公式 : =HZPY(A2)

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)