设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3145|回复: 5
打印 上一主题 下一主题

有没有办法通过VBA实现汉字匹配拼音?

[复制链接]
跳转到指定楼层
1#
发表于 2010-3-24 23:04:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
比如说A列给出一组人的姓名,想在B列自动匹配出相关的汉语拼音.请问能做到吗?谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2010-3-26 09:43:21 | 只看该作者
应该可以的.
贴上两个相关的函数,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
3#
 楼主| 发表于 2010-4-7 11:30:02 | 只看该作者
好像不是这样子的,还是我调用错了?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
发表于 2010-4-8 09:41:30 | 只看该作者
你只要引用其中一个函数就行.

在单元格里输入 公式  : =HZPY(A2)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 16:28 , Processed in 0.121586 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表