如何找到工作表中满足条件的所有记录并逐条显示?
发布时间:2022-05-01 13:10:40
标签:excel常用函数,excel常见问题,excel技巧,Excel教程
Q:工作表中有很多同名人员的信息,想要在用户窗体中设置查询,输入人员姓名后,显示其有多少条信息,并且可以逐条显示这些信息。
A:下面是详细的实现过程。
在VBE中插入“用户窗体”并命名为UInfo,在窗体中放置“标签”、“文本框”和“按钮”控件,并分别给这些控件命名,如下图所示。
在用户窗体模块中输入下列代码:
说明:
声明模块级变量
用来传递已找到的全部单元格,以及当前显示的单元格
说明:
初始化用户窗体
使用查找到的第一条记录填充用户窗体中的相应控件
说明:
设置前一条按钮和后一条按钮
在用户窗体控件中填充相应的记录
同时显示记录数
说明:
当显示的记录在第1条或者在最后一条时,禁用相应的按钮;在中间时,启用相应的按钮。
在VBE中插入一个标准模块,输入下列代码:
说明:
首先使用Find方法根据查找条件查找到满足条件的全部记录,并将其赋值给相应的Range变量。然后,创建用户窗体并将代表找到的全部记录的变量传递给用户窗体。
为了确保引用的记录区域与工作表中出现的顺序相同,在Find方法中使用了参数After并将其值设置为搜索区域的最后一个单元格,即从搜索区域的第一个单元格开始查找。
在《Excel VBA解读(41):藏得再好也能找到——使用Find方法实现查找》中详细解了Find方法的语法及应用示例。在《经典代码解析2:查找并获取所查找内容的全部单元格》中,详细解了使用Find方法获取满足相同条件的所有单元格的原理及代码。
至此,用户窗体及相应的代码全部制作完成。
运行ShowInfo过程,弹出下列对话框,要求输入查找的姓名:
输入完后,单击“确定”,即显示下图所示的用户窗体:
可以看到查找的记录数,当前在第几条,单击按钮即可逐一显示记录信息。
![](https://www.aspxhome.com/images/zang.png)
![](https://www.aspxhome.com/images/jiucuo.png)
猜你喜欢
- Word文本框文字显示不全怎么办?初次使用文本框是都会遇到这个问题,在文本框中输入文字,但是只显示一半。怎么解决这个文本框显示不全的问题呢?
- 我们都知道有时候驱动跟系统不兼容的情况下,就会造成系统无法正常使用,我们的电脑中没有禁止驱动进行自动更新的话,更新最新版的驱动就有可能会造成
- Excel是日常生活和学习中经常使用的办公软件,其中在Excel中画图也是很常见的,今天小编给大家讲一下如何在表格中画图。首先我们打开一个表
- 在日常的工作中,我们经常会使用到一些PDF图片,大家都知道,PDF文件因为其限制性,我们无法对PDF图片进行编辑。很多用户就会想,我们能不能
- Word 2010跟之前版本一样,根据你编辑的文档会自动生成目录,并可通过目录直接定位到某个段落,那么下面就由小编给大家分享下word201
- 使用Word编辑文档的时候,如果有小技巧的话,可以解决很多遇到的问题,也让工作更高效的完成,下面给大家分享word数字间隔大怎么调的小技巧。
- 使用Word编辑文档时,可能为了使某些内容醒目显示,或者为了使文档内容显示的更美观、更有层次感,需要为文档添加一些分割线,如添加下框线、插入
- Word下划线怎么打?这是一个很简单的操作,但是很多伙伴还是会遇到困扰,会遇到下划线无法对齐的问题,以及效率比较低的问题,今天给大家分享几个
- 今日凌晨,苹果发布了 iOS 14.2、 iPadOS 14.2 、tvOS 14.2 、 watchOS 7.1 开发者测试版
- 在word文档中如果想要输入带圈数字,要怎么样实现呢?有两种方法,使用快捷键的方法特实用!带圈字符输入演示步骤:
- 页边距是什么意思呢?页边距是页面四周的空白区域。页面上除去周围页边距,剩下的以文字和图片为主要组成的部分就是版心。页边距怎么设置呢?不同的软
- word办公软件中打分数是比较常见的操作,但是有很多朋友不知道word中分子分母怎么打的,今天小编特意给大家整理了一篇关于word文档里面打
- 有时候我们会需要在文档里面输入一些数学公式,很多童鞋看到那复杂的公式就会非常抓狂,不知道从何下手,其实Word里自带的公式编辑器就可以很方便
- 打开一份Excel表格,发现很多单元格内容都是英文小写的,有些需要大写的地方不大写,搞的很不正规。那么,有没有什么办法能将小写内容批量转为大
- 如果我们正在做图书统计的工作,利用excel进行书本统计时,我们不可能一条一条地去加书名号,这样效率非常低,有没有什么快速的办法呢?感兴趣的
- 1、打开Word文档,进入“视图”选项卡,在“显示”选项组中勾选“网格线”复选框。 2、Word中出现了网格线,单
- Win10任务栏透明化是一个非常火热的话题,经常有人在咨询如何设置。小编在网上找了一圈,不少都是说使用控制面板,但是小编找了一下一直没有找到
- win10火炬之光2存档在哪?用win10玩火炬之光2还挺带感的,恢弘的画面,有趣的游戏设定,无不让玩家趋之若鹜。可是有玩家下载后却找不着北
- 将多个Word文档页面内容缩印到一个页面中的方法在打印Word文档时,为了节省纸张,我们可能希望在一张纸上打印多个页面的内容。例如,我们可以
- 方法一[1] 选中【C1】,在单元格中输入【=TEXT(A1,"#%")】,输入完毕后回车。