订阅应用VBA代码制作查询系统
来源：网络收集 点击： 时间：2024-07-03【导读】：
实例,根据条件快速查出相关人员的信息！工具/原料more电脑壹台office办公软件方法/步骤1/8分步阅读
2/8
3/8
4/8
5/8
6/8
7/8
8/8
实例，根据条件查询出人员信息！
2/8在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3/8进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4/8会弹出模块编辑窗口！
5/8在代码编辑窗口输入以下代码：
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 .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/8在“开发工具”菜单下，点击“插入”按钮！插入一表单控件！并命名为“筛选”。
7/8将“筛选”表单控件与编写的VBA代码关联！
8/8点击“筛选”表单控件，便会快速查到符合条件的信息！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_926460.html
上一篇：购买抖音账号交易平台
下一篇：抖音游戏直播如何打开？
