应用VBA代码制作查询系统

1、实例，根据条件查询出人员信息！

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

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

4、会弹出模块编辑窗口！

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

Sub 信息查询()

Set Rng = Range("o:o").Find("*", , , , , xlPrevious)

Range("i2", Rng).Clear

i = Application.CountA(Columns("g"))

arr = Range("a2:g" & i)

For j = 1 To UBound(arr, 1)

  If arr(j, 1) Like [j1].Value Then

    n = n + 1

    Cells(n + 1, "i").Resize(1, UBound(arr, 2)) = WorksheetFunction.Index(arr, j, 0)

  End If

Next

End Sub

6、在“开发工具”菜单下，点击“插入”按钮！插入一表单控件！并命名为“筛选”。

7、将“筛选”表单控件与编写的VBA代码关联！

8、点击“筛选”表单控件，便会快速查到符合条件的信息！