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

1、实例【录入姓名，查询个人信息？】

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

5、在代码编辑窗口输入以下代码：Sub 信息查询系统()Dim endc As Integer, m%, n%R锾攒揉敫ange("i2:o100").Clearendc = Columns("a").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious).RowFor 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, 1), Cells(m + 1, 7)).copy Cells(n + 1, 9) End IfNextEnd Sub

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

9、结果会被很快查询出来，很智能吧！