Excel VBA实例教程 查单元格
1、使用Find方法
在Excel中使用查对话框可以查工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。
01。Sub RngFind（)
02.    Dim StrFind As String
03。    Dim Rng As Range
04.    StrFind = InputBox（"请输入要查的值:"）
05。    If Trim(StrFind) <> ”" Then
06。        With Sheet1。Range("A:A”）
07。            Set Rng = .Find（What:=StrFind, _
08。                            After：=.Cells(.Cells.Count), _
09。                            LookIn：=xlValues, _
10.                            LookAt:=xlWhole， _
11.                            SearchOrder：=xlByRows, _
12。                            SearchDirection：=xlNext, _
13.                            MatchCase：=False)
rows函数的使用方法及实例
14.            If Not Rng Is Nothing Then
15。                Application。Goto Rng, True
16.            Else
17.                MsgBox ”没有到该单元格！”
18。            End If
19。        End With
20.    End If
21.End Sub
代码解析：
RngFind过程使用Find方法在工作表Sheet1的A列中查InputBox函数对话框中所输入的值,并查该值所在的第一个单元格.
第6到第13行代码在工作表Sheet1的A列中查InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查特定信息，并返回Range对象，该对象代表用于查信息的第一个单元格.如果未发现匹配单元格，就返回Nothing，语法如下：
01.expression.Find（What， After， LookIn， LookAt, SearchOrder， SearchDirection, MatchCase， MatchByte， SerchFormat)
复制代码参数expression是必需的，该表达式返回一个Range对象。
参数What是必需的，要搜索的数据，可为字符串或任意数据类型.
参数After是可选的，表示搜索过程将从其之后开始进行的单元格,必须是区域中的单个单元格。查时是从该单元格之后开始的，直到本方法绕回到指定的单元格时,才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。
在本例中将After参数设置为A列的最后一个单元格，所以查时从A1单元格开始搜索.
参数LookIn是可选的，信息类型。
参数LookAt是可选的,可为XlLookAt常量的xlWhole 或xlPart之一。
参数SearchOrder是可选的,可为XlSearchOrder常量的xlByRows或xlByColumns之一。
参数SearchDirection是可选的，搜索的方向,可为XlSearchDirection常量的xlNext或xlPrevious之一。
参数MatchCase是可选的，若为True，则进行区分大小写的查。默认值为False。
参数MatchByte是可选的，仅在选择或安装了双字节语言支持时使用。若为True，则双字节字符仅匹配双字节字符.若为False，则双字节字符可匹配其等价的单字节字符。
参数SerchFormat是可选的，搜索的格式.
每次使用Find方法后,参数LookIn、LookAt、SearchOrder 和MatchByte的设置将保存。如果下次调用Find方法时不指定这些参数的值，就使用保存的值。因此每次使用该方法时请明确设置这些参数。
如果工作表的A列中存在重复的数值，那么需要使用FindNext方法或FindPrevious方法进行重复搜索，如下面的代码所示。
01.Sub RngFindNext()
02.    Dim StrFind As String
03。    Dim Rng As Range
04。    Dim FindAddress As String
05。    StrFind = InputBox（”请输入要查的值：”)
06.    If Trim(StrFind) <〉 "” Then
07.        With Sheet1。Range(”A：A")
08。            Set Rng = 。Find(What:=StrFind， _
09。                            After:=。Cells（。Cells.Count)， _
10。                            LookIn：=xlValues， _
11。                            LookAt:=xlWhole, _
12.                            SearchOrder：=xlByRows, _
13.                            SearchDirection:=xlNext， _
14.                            MatchCase：=False)
15。            If Not Rng Is Nothing Then
16.                FindAddress = Rng。Address
17。                Do
18。                    Rng。Interior。ColorIndex = 6
19.                    Set Rng = 。FindNext(Rng)
20.                Loop While Not Rng Is Nothing And Rng。Address <> FindAddress
21。            End If
22。        End With
23.    End If
24。End Sub
代码解析：
RngFindNext过程在工作表Sheet1的A列中查InputBox函数对话框中所输入的值，并将查到单元格底设置成黄.
第8行到第17行代码使用Find方法在工作表Sheet1的A列中查。
第16行代码将查到的第一个单元格地址赋给字符串变量FindAddress。
第18行代码将查到的单元格底设置成黄。
第19行代码使用FindNext方法进行重复搜索。FindNext方法继续执行用Find方法启动的搜索。查下一个匹配相同条件的单元格并返回代表单元格的Range对象，语法如下：
01.expression.FindNext(After）
复制代码参数expression是必需的,返回一个Range对象.
参数After是可选的,指定一个单元格，查将从该单元格之后开始。
第20行代码如果查到的单元格地址等于字符串变量FindAddress所记录的地址,说明A列已搜索完毕，结束查过程.
运行RngFindNext过程，在InputBox函数输入框中输入“196。01”后结果如图1所示.
还可以使用FindPrevious方法进行重复搜索，FindPrevious方法的语法如下：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。