第七讲 使用Find方法,查找单元格

【分享成果,随喜正能量】无论已到哪里,少回头,多务实,当下不虚度下载到源码怎么用,人生可无悔。

《VBA代码解决方案》这套教程是我最早推出的教程,目前已经是第二版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册下载到源码怎么用,一百四十七讲,内容覆盖较广,也是初级和中级间的过度教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第7讲:利用Find方法查找

第七讲 使用Find方法,查找单元格

在Excel中使用查找对话框可以查找工作表中特定内容的单元格,而在VBA中则使用Find方法,这个方法是我比较喜欢的方法,在EXCEL中用LOOKUP可以的实现的内容均在使用FIND的方法之内。

1 VBA中利用FIND的代码实现单值查找实例

如下面的代码所示。

Sub myFind()

Dim StrFind As String

Dim Rng As Range

StrFind = InputBox(“请输入要查找的值:”)

If Trim(StrFind) “” Then

With Sheet1.Range(“A:A”)

Set Rng = .Find(What:=StrFind, _

After:=.Cells(.Cells.Count), _

LookIn:=xlValues, _

LookAt:=xlWhole, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

If Not Rng Is Nothing Then

Application.Goto Rng, True

Else

MsgBox “没有找到该单元格!”

End If

End With

End If

End Sub

代码解读:myFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值,并查找该值所在的第一个单元格。

语法如下:

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)

参数:

1) expression是必需的,该表达式返回一个Range对象。

2) What是必需的,要搜索的数据,可为字符串或任意数据类型。

3) After是可选的,表示搜索过程将从其之后开始进行的单元格,必须是区域中的单个单元格。查找时是从该单元格之后开始的,直到本方法绕回到指定的单元格时,才对其进行搜索。如果未指定本参数,搜索将从区域的左上角单元格之后开始。

在本例中将After参数设置为A列的最后一个单元格,所以查找时从A1单元格开始搜索。

4) LookIn是可选的,信息类型。xlValues对应 值;xlFormulas 对应 公式;xlComments对应 批注

5) LookAt是可选的,可为XlLookAt常量的xlWhole 或xlPart之一。

6) SearchOrder是可选的,可为XlSearchOrder常量的xlByRows或xlByColumns之一。

7) SearchDirection是可选的,搜索的方向,可为XlSearchDirection常量的xlNext或xlPrevious之一。

8) MatchCase是可选的,若为True,则进行区分大小写的查找。默认值为False。

9) MatchByte是可选的,仅在选择或安装了双字节语言支持时使用。若为True,则双字节字符仅匹配双字节字符。若为False,则双字节字符可匹配其等价的单字节字符。

10) SerchFormat是可选的,搜索的格式。

2 VBA中利用FIND的代码实现多值查找实例

Sub mynz_7() '第7讲 使用Find方法,查找单元格

Dim StrFind As String

Dim Rng As Range

Dim FindAddress As String

StrFind = InputBox(“请输入要查找的值:”)

If Trim(StrFind) “” Then

第七讲 使用Find方法,查找单元格,第七讲 使用Find方法,查找单元格,第1张

With Sheets(“7”).Range(“A:A”)

Set Rng = .Find(What:=StrFind, _

After:=.Cells(.Cells.Count), _

LookIn:=xlValues, _

LookAt:=xlWhole, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

If Not Rng Is Nothing Then

FindAddress = Rng.Address

Do

Rng.Interior.ColorIndex = 6 '设置成黄色

Set Rng = .FindNext(Rng)

Loop While Not Rng Is Nothing And Rng.Address FindAddress

End If

End With

End If

End Sub

代码解析:RngFindNext过程在工作表Sheets(“7”)的A列中查找InputBox函数对话框中所输入的值,并将查到单元格底色设置成黄色。

第8行到第17行代码使用Find方法在工作表Sheet1的A列中查找。

第16行代码将查找到的第一个单元格地址赋给字符串变量FindAddress。

第18行代码将查找到的单元格底色设置成黄色。

第19行代码使用FindNext方法进行重复搜索。

expression.FindNext(After)

参数

1)expression是必需的,返回一个Range对象。

2)After是可选的,指定一个单元格,查找将从该单元格之后开始。

第20行代码如果查找到的单元格地址等于字符串变量FindAddress所记录的地址,说明A列已搜索完毕,结束查找过程。

3 VBA中利用FIND的代码实现多值查找的代码运行

1):代码截图:

2)开始运行:

3)返回结果:

今日内容回向:

1 FIND方法有哪些利用价值?

2 如何实现多值的查找?

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

第7套教程(共三册):《VBA之EXCEL应用》:是对VBA基本的讲解

第1套教程(共三册):《VBA代码解决方案》:是入门后的提高教程

第4套教程(16G):VBA代码解决方案之视频(第一套的视频讲解)

第3套教程(共两册):《VBA数组与字典解决方案》:是对数组和字典的专题讲解

第2套教程(共两册):《VBA数据库解决方案》:是对数据库的专题讲解

第6套教程(共两册):《VBA信息获取与处理》:讲解VBA的网络及跨程序应用

第5套教程(共两册):VBA中类的解读和利用:类及接口技术的讲解

第8套教程(共三册):VBA之Word应用(最新教程):word中VBA的利用

上述教程的学习顺序:

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

本文到此结束,希望对大家有所帮助!

关于作者:

生活百科常识网