在VBA，如何建立智能查询系统

在本篇经验中，我将向大家分享如何使用VBA建立一个智能查询系统。

实例：录入姓名，查询个人信息

首先，在工作表中点击菜单栏的【开发工具】，然后在工具栏内选择【visual basic】进入VBA编辑界面。

接下来，点击菜单栏的【插入】，在下拉菜单中选择【模块】，这会弹出模块编辑窗口。

在代码编辑窗口中输入以下代码：

Sub 信息查询系统()
Dim endc As Integer, m%, n%
Range("i2:o100").Clear
endc  Columns("a").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious).Row
For Each rng In Range(Cells(2, 1), Cells(endc, 1))
    m  m   1
    If rng Like Range("q2") Then
        n  n   1
        Range(Cells(m, 1), Cells(m, 7)).Copy Cells(n, 9)
    End If
Next
End Sub

保存并退出VBA编辑界面，返回到工作表中。在【开发工具】菜单下点击【插入】，在表格中插入一个按钮。

选中插入的按钮，点击鼠标右键，指定宏，选择编辑的【信息查询系统】，并将按钮命名为【信息查询】。

现在，假设我们要查询姓名有两个字的人员的成绩信息。在查询标准中录入通配符“??”，然后点击【信息查询】按钮。

很快，结果就会被智能地查询出来。这真是一个非常方便智能的查询系统！

总结

通过VBA编写智能查询系统，可以大大提高数据处理的效率和准确性。希望本文对您有所帮助，如果有任何问题，请随时留言。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。