利用拼音首字母查询人员数据的程序，有需要的可以参考

井底之蛙 · 发表于 2008-4-30 11:31

今天做了一个利用拼音首字母查询人员数据的程序，有需要的可以参考

ZCzfVnJX.rar (52.39 KB, 下载次数: 3802)

小小鲸 · 发表于 2008-4-30 11:36

好东西，谢谢楼主，学习一下

井底之蛙 · 发表于 2008-4-30 11:42

说明:

在网上找了五种将汉字转换为拼音的自定义函数，经过测试，附件中的自定义函数错误率是最小的。另外，这个函数没有解决多音字的问题，如"解"字在名字中读音为xie，但是用此函数得到的却是J。

在输入名字的拼音的时候，为了方便找到两个字的人名，例如图片中的ZL，在输入完拼音后，接着输入0，就表示名字中只有两个字的符合ZL的记录

huangyun · 发表于 2008-4-30 12:34

Private Sub TextBox1_Change()
    Dim lastrow%
    Dim myrg As Range
    TextBox1.Text = UCase(TextBox1.Text)
    ListBox1.Clear
    If TextBox1.Text = "" Then
        Label3 = 0
        Exit Sub
    End If
    lastrow = Sheets("人员").Range("A65536").End(xlUp).Row
    For Each myrg In Sheets("人员").Range("B2:B" & CStr(lastrow))
        If Right(TextBox1.Text, 1) = "0" Then
            If myrg = Left(TextBox1.Text, Len(TextBox1.Text) - 1) Then ListBox1.AddItem myrg.Offset(0, -1).Value
        Else
            If myrg Like "*" & TextBox1.Text & "*" Then ListBox1.AddItem myrg.Offset(0, -1).Value
        End If
    Next
    Label3.Caption = ListBox1.ListCount
End Sub
红色字体作了改动，效果会更好。

tianyurongt · 发表于 2008-5-5 08:48

真的很好，资料更新一下还可以做成通讯录，值得借鉴

乐无存 · 发表于 2008-5-5 10:19

好东西，谢谢分享，小弟收藏了

jilijun · 发表于 2008-5-5 12:11

很实用的程序，感谢分享！

safinx · 发表于 2008-5-6 20:08

好的～谢谢～～

hetai · 发表于 2008-5-6 22:42

如果有上万条记录，速度不知如何？

井底之蛙 · 发表于 2008-5-8 17:11

QUOTE:

以下是引用hetai在2008-5-6 22:42:44的发言：

如果有上万条记录，速度不知如何？

好象listbox有32K的限制吧?

		自动登录	找回密码
密码			免费注册

[分享] 利用拼音首字母查询人员数据的程序，有需要的可以参考