如何找到工作表中满足条件的所有记录并逐条显示?
时间:2022-05-01 13:10:40
Q:工作表中有很多同名人员的信息,想要在用户窗体中设置查询,输入人员姓名后,显示其有多少条信息,并且可以逐条显示这些信息。
A:下面是详细的实现过程。
在VBE中插入“用户窗体”并命名为UInfo,在窗体中放置“标签”、“文本框”和“按钮”控件,并分别给这些控件命名,如下图所示。
在用户窗体模块中输入下列代码:
说明:
声明模块级变量
用来传递已找到的全部单元格,以及当前显示的单元格
说明:
初始化用户窗体
使用查找到的第一条记录填充用户窗体中的相应控件
说明:
设置前一条按钮和后一条按钮
在用户窗体控件中填充相应的记录
同时显示记录数
说明:
当显示的记录在第1条或者在最后一条时,禁用相应的按钮;在中间时,启用相应的按钮。
在VBE中插入一个标准模块,输入下列代码:
说明:
首先使用Find方法根据查找条件查找到满足条件的全部记录,并将其赋值给相应的Range变量。然后,创建用户窗体并将代表找到的全部记录的变量传递给用户窗体。
为了确保引用的记录区域与工作表中出现的顺序相同,在Find方法中使用了参数After并将其值设置为搜索区域的最后一个单元格,即从搜索区域的第一个单元格开始查找。
在《Excel VBA解读(41):藏得再好也能找到——使用Find方法实现查找》中详细解了Find方法的语法及应用示例。在《经典代码解析2:查找并获取所查找内容的全部单元格》中,详细解了使用Find方法获取满足相同条件的所有单元格的原理及代码。
至此,用户窗体及相应的代码全部制作完成。
运行ShowInfo过程,弹出下列对话框,要求输入查找的姓名:
输入完后,单击“确定”,即显示下图所示的用户窗体:
可以看到查找的记录数,当前在第几条,单击按钮即可逐一显示记录信息。
标签:excel常用函数,excel常见问题,excel技巧,Excel教程
0
投稿
猜你喜欢
在Word2007文档中应用剪贴画样式
2023-12-07 06:35:06
在 Excel 2010 中,条件格式超过了三个怎么办?
2023-06-03 13:13:04
Office重命名工具栏、菜单以及菜单命令教程
2023-08-31 14:06:48
Win10专业版系统如何关闭语音识别?
2023-11-23 06:14:12
如何在Word 2016中比较文档的两个版本?
2023-11-02 09:53:08
教你如何用word按钮实现文档自动滚动
2023-12-12 12:22:39
如何调节图片分辨率?调节图片分辨率教程
2023-11-09 22:10:34
如何使用已有 Azure 帐户注册 Office 365 或 Power BI 服务
2023-11-07 12:33:32
Win10如何关闭自动更新?Win10关闭自动更新的方法
2023-10-01 02:20:37
wprd中合并单元格和拆分单元格
2022-03-09 16:31:24
没有对比就没有伤害,Office和WPS到底选哪个?
2023-11-08 01:07:34
Win10 20h2怎么开启蓝牙?
2023-11-13 14:59:26
在Excel表格中怎么分列数据?
2022-12-22 17:16:07
win10系统版本2004更新教程
2023-08-13 16:18:11
word如何利用样式格式化文档
2022-07-28 21:22:45
如何使用word的技巧
2023-11-30 03:50:19
excel监视窗口位置怎么调整 excel监视窗口位置调整方法
2023-06-06 23:39:54
Word隔行操作技巧
2023-02-26 22:45:59
金山WPS给重要段落加红色边框的方法
2023-11-29 11:09:32
如何将word文档中所有的m2批量改为上标格式的㎡
2022-03-15 04:55:15