在VBA中设置“查找下一个”和“查找上一个”按钮
在VBA中，可以通过以下步骤设置“查找下一个”和“查找上一个”按钮：
- 首先，创建一个用户界面，可以使用用户窗体或自定义工具栏来实现。在用户界面上添加两个按钮，分别命名为“查找下一个”和“查找上一个”。
- 在VBA编辑器中，打开相关的代码模块。可以通过按下Alt + F11快捷键来打开VBA编辑器。
- 在代码模块中，为“查找下一个”按钮添加点击事件的处理程序。可以通过双击按钮或手动编写代码来实现。以下是一个示例代码：
Private Sub btnFindNext_Click()
Dim searchText As String
Dim startPosition As Long
searchText = InputBox("请输入要查找的文本：")
startPosition = ActiveSheet.Cells.Find(What:=searchText, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
If startPosition > 0 Then
ActiveSheet.Cells(startPosition, 1).Select
Else
MsgBox "未找到匹配的文本。"
End If
End Sub在上述代码中，首先使用InputBox函数获取用户输入的要查找的文本。然后使用Find方法在活动工作表中查找该文本，并返回第一个匹配单元格的行号。如果找到匹配的文本，则选中该单元格；否则，显示一个消息框提示未找到。
- 类似地，为“查找上一个”按钮添加点击事件的处理程序。以下是一个示例代码：
Private Sub btnFindPrevious_Click()
Dim searchText As String
Dim startPosition As Long
searchText = InputBox("请输入要查找的文本：")
startPosition = ActiveSheet.Cells.Find(What:=searchText, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
If startPosition > 0 Then
ActiveSheet.Cells(startPosition, 1).Select
Else
MsgBox "未找到匹配的文本。"
End If
End Sub在上述代码中，与“查找下一个”按钮的处理程序类似，只是将SearchDirection参数设置为xlPrevious，以实现向上查找。
- 最后，保存并关闭VBA编辑器。然后，测试这两个按钮是否按预期工作。
这样，你就可以在VBA中设置“查找下一个”和“查找上一个”按钮了。这些按钮可以帮助用户在Excel工作表中快速查找指定的文本，并定位到匹配的单元格。
相关·内容
我在Excel2007中获取用户表单以自动填写表单时遇到问题。它可以很好地处理第一个条目，但是我不能使用Next按钮来拉出匹配搜索条件的下一个条目。
浏览 62提问于2019-03-09得票数 0
2回答
我已经将脚本设置为使用带有链接的缩略图在照片区域中显示较大的图像。我使用的使箭头起作用的方法是获取当前图像的src，搜索该src的缩略图链接，然后根据单击的箭头找到下一个或上一个src (.left或.right)。
问题是:我不知道该怎么做。我有当用户点击箭头时查找当前src的脚本，但我不知道如何在缩略图中搜索相同的src或查找下一个或上一个src。
浏览 0提问于2012-08-03得票数 0
回答已采纳
在XCode 4.5.1创建一个带有导航控制器的故事板应用程序时，我很难尝试为任何按下的视图控制器设置后退按钮。我正在使用segue的，视图控制器如预期的那样显示。但是，我想动态更改导航栏和后退按钮的名称，并将其放入我的ViewWillAppear中： [self.backButton setTitle:@"Add"];
更改导航栏的标题，但“后退”按钮仍
浏览 0提问于2012-10-15得票数 3
回答已采纳
我正在尝试在Excel Vba中实现一个查找功能。我没有任何代码可以分享，因为我不确定如何开始实现。我想我需要的是一个公式，我可以在其中查找我刚刚添加到这个表中的日期，然后检索与该日期相关的价
浏览 4提问于2011-05-22得票数 1
回答已采纳
1回答
我有一个主从片断布局，看起来像这样：选择列表视图中的数字时，详细视图中的值会发生变化(例如，单选按钮文本发生变化)。我有以下问题:当我在列表视图中单击数字1并在详细视图中选择选项1，然后在列表视图中单击不同的数字时，详细视图选项已设置。如果此时我选择了不同的选项并返回到列表视图1，则设置了最后一个选项(即我之前的选择不是持久的)。如何确保我对单选按钮的选择在列表视图选项中保持不变，并且以前的单选按钮选择不会影响下一个单选<
浏览 0提问于2013-05-17得票数 1
回答已采纳
XCode 4是否有两个菜单选项的键盘快捷键:编辑>查找>替换和查找下一个/上一个？
如果没有，(1)为什么不，(2)我如何创建它们，以及(3)你推荐哪些快捷键组合？
浏览 5提问于2011-05-07得票数 21
回答已采纳
1回答
我有一个数据库(Access 2010)，其中大约有6个与1个主表相关的表，我想从主表中复制一个记录，并从其他表中提取相关的表。是否有一种比我目前的方法更简单的方法：
谢谢你的帮助。
浏览 4提问于2012-11-13得票数 0
回答已采纳
1回答
我对stackoverflow.com和VBA都是新手，所以不要对我太苛刻:-)
我希望有一个按钮在我的excel工作表，当点击时，将搜索整个或行1的日期(位于另一个单元格)。如果它在第1行的调用中找到日期，它将在它下面的单元格中输入一些文本。如果没有找到日期，它会将日期添加到行中的下一个空闲单元格中，然后将文本添加到该单元格下面的单元格中。我发现困难的部分是在整个第1行中查找日期
浏览 0提问于2014-02-20得票数 0
回答已采纳
我在我的应用程序中使用sphinxsearch + php进行全文搜索。是否有可能不查询整个表
浏览 4提问于2015-08-22得票数 0
但是在Vim中有一个非常非常有用的技巧，在Emacs中我不能很方便地使用，那就是在点上查找下一个/上一个单词。这些在Vim中使用*/#非常方便。最简单的方法是移动到单词的开头，然后使用C-s和C-w，使用C-s/C-r查找下一个/上一个单词。
然后我从中发现了另一个技巧，但仍然有一些小错误。今天我发现了一个在Emacs<em
浏览 1提问于2012-04-29得票数 5
回答已采纳
1回答
但是t1和t2可能不一定在我的数据库表中。所以，我想要的是:它应该找到下一个大于或等于t1的可用时间戳(如果t1在数据库表中不存在，则查找> t1；如果存在，则查找t1 )，并且在MDX查询本身中查找小于或等于t2的上一个可用时间戳(如果t2不存在，则查找< t2；如果数据库中存在，查找结果为t2 )。FirstSibling，.LastSibling
浏览 0提问于2011-11-22得票数 2
我正在尝试设置一个VBA表单，该表单将查找表中的下一个空列，并使用输入到表单中的值填充空单元格。
浏览 5提问于2021-05-21得票数 0
2回答
我正在尝试查找std::set中元素的下一个/上一个邻居。在更高的层次上，似乎从红黑树中可以找到O(logN)中的下一个/上一个元素，所以问题是std::set是否支持它？
浏览 0提问于2019-07-25得票数 0
我正在处理MS Project 2013中的VBA宏，它可以自动填充和更改查找表，这些查找表与项目专业版中的本地自定义域相链接。我在VBA上有以下代码段，用于：Set objStateEntry = objOutlineCode.LookupTable.AddChild(entryName)-
浏览 7提问于2017-05-12得票数 0
我设计了一个VBA表单来从用户那里收集数据。但是，我希望允许用户多次填写表单，并且每次都将填写的数据打印到Excel工作表中的相应单元格中，因此我希望VBA程序在工作表中查找下一个空单元格，而无需用户手动查找并选择它。Cells(lastRow, 4) = mngrName例如，在这里，这五个值应该打印到第一行，如果再次使用表单，它应该找到下一个</em
浏览 1提问于2019-11-28得票数 0
我在A38中有一个值，当单击该按钮时，该按钮将对我的工作表“项数据库”进行查找，并在A38中的值之后返回列中的下一个值。目前，我已经将它指向了A36，这是我测试查找的一种方式。当我将它设置为A38时，我不会得到一个错误，但
浏览 1提问于2013-11-21得票数 0
回答已采纳
1回答
我已经编写了一些VBA代码，用于查看列，查找该列中包含数据的下一个单元格，并将这两个单元格之间的单元格设置为一个范围。本文最初是为Excel2003工作簿编写的。谁能帮我把这篇文章翻译成2010年的Excel VBA。& Last).Select Range("A" & Last + 1).Select当我在<
浏览 3提问于2014-01-23得票数 0
=== eventId; };
我想使用当前的事件ID查找上一个和下一个它是在模型内部编写的。events.number，然后添加一个来查找下一个事件编号。返回其下一个events.id的下一个事件编号。中实现的是当用户在赛车/事件上滑动时。
浏览 7提问于2017-10-26得票数 0
2回答
我正在尝试实现搜索例程:在and浏览器中查找下一个和查找上一个。我知道里面有内置的Find对话框，但我不想使用它。相反，我正在努力编写自己的例程，但我无法通过。下面的代码很好地实现了“查找下一个”：
....
浏览 2提问于2010-08-28得票数 2
我正在寻找查找以下查询的下一个或前一个ID的最有效方法： FROM transactions BY CASE order_statusorder_received' THEN 5 ELSE 7 END我尝试向查询中添加where id > '$id'或where id < '$i
浏览 0提问于2020-02-16得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
