EXCEL技巧——如何用VBA实现快速查找

有好多网友不知晓此款EXCEL的软件相关教程，接下来神奇下载软件教程分类编辑给众人送上EXCEL技巧——如何用VBA实现快速查找文章，希望能带给大家一些帮助，一起来了解一下吧！

在EXCEL处理数据的过程中，面对大量的数据，如果要找到一个数据也许很难，这里我们通过VBA编写一个程序来实现查找，并对查找到的内容加亮显示，现在我们来一起制作。

工具/原料

<p>EXCEL软件</p>

方法/步骤

新建一张表格，在表格中导入学生的成绩表，如图所示，我们将建立一个按钮，通过它来实现查找。

单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

现在我们来输入代码：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

If Not c Is Nothing Then

p = c.Address

Do

c.Interior.ColorIndex = 4

q = q & c.Address & vbCrLf

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> p

End If

End With

MsgBox "查找数据在以下单元格中：" & vbCrLf & vbCrLf _

& q, vbInformation + vbOKOnly, "查找结果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

以上内容确是对于《EXCEL技巧——如何用VBA实现快速查找》软件文章全部内容了，希望能帮助正在需要EXCEL软件教程网友！更多精彩EXCEL软件文章教程,可以收藏我们神奇下载！

相关文章

excel怎么固定住表头_如何把excel表头固定不动

怎样在Excel中插入函数《IF函数002》

Excel2010创建迷你图(excel2010迷你图创建在哪里)

怎样在Excel中插入函数《ROUND函数》

使用Excel求两列的交集(excel两列数据不同)

Excel教程：如何在Excel中自动生成人民币大写

excel打印如何使用自定義的紙張(EXCEL如何自定义公式)

怎样在Excel中插入函数《SUM函数002》

Excel2010创建图表(excel2010创建图表时要打开)

EXCEL如何制作控件动态图表(excel制作条形码控件是哪一个)