实例,根据条件快速查出相关人员的信息!
工具/原料
电脑壹台
office办公软件
方法/步骤
1、实例,根据条件查询出人员信息!
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visualbasic】!
3、进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
5、在代码编辑窗口输入以下代码:Sub信息查询()SetRng=Range(&孥恶膈茯quot;o:o").Find(&quo墉掠载牿t;*",,,,,xlPrevious)Range("i2",Rng).Cleari=Application.CountA(Columns("g"))arr=Range("a2:g"&i)Forj=1ToUBound(arr,1)Ifarr(j,1)Like[j1].ValueThenn=n+1Cells(n+1,"i").Resize(1,UBound(arr,2))=WorksheetFunction.Index(arr,j,0)EndIfNextEndSub
6、在“开发工具”菜单下,点击“插入”按钮!插入一表单控件!并命名为“筛选”。
7、将“筛选”表单控件与编写的VBA代码关联!
8、点击“筛选”表单控件,便会快速查到符合条件的信息!