2. Find方法的语法
[语法]
.Find (What,[After],[LookIn],[LookAt],[SearchOrder],[SearchDirection],[MatchCase],[MatchByte],[S earchFormat])
[参数说明]
(1),必须指定,返回一个Range对象。
(2)参数What,必需指定。代表所要查的数据,可以为字符串、整数或者其它任何数据类型的数据。对应于“查与替换”对话框中,“查内容”文本框中的内容。
(3)参数After,可选。指定开始查的位置,即从该位置所在的单元格之后向后或之前向前开始查(也就是说,开始时不查该位置所在的单元格,直到Find方法绕回到该单元格时,才对其内容进行查)。所指定的位置必须是单元格区域中的单个单元格,如果未指定本参数,则将从单元格区域的左上角的单元格之后开始进行查。
(4)参数LookIn,可选。指定查的范围类型,可以为以下常量之一:xlValues、xlFormulas或者xlComment s,默认值为xlFormulas。对应于“查与替换”对话框中,“查范围”下拉框中的选项。
(5)参数LookAt,可选。可以为以下常量之一:XlWhole或者xlPart,用来指定所查的数据是与单元格内容完全匹配还是部分匹配,默认值为xlPart。对应于“查与替换”对话框中,“单元格匹配”复选框。
(6)参数SearchOrder,可选。用来确定如何在单元格区域中进行查,是以行的方式(xlByRows)查,还是以列的方式(xlByColumns)查,默认值为xlByRows。对应于“查与替换”对话框中,“搜索”下拉框中的选项。
(7)参数SearchDirection,可选。用来确定查的方向,即是向前查(XlPrevious)还是向后查(xlNext),默认的是向后查。
(8)参数MatchCase,可选。假设该参数值为True,则在查时区分大小写。默认值为False。对应于“查与替换”对话框中,“区分大小写”复选框。
(9)参数MatchByter,可选。即是否区分全角或半角,在选择或安装了双字节语言时使用。假设该参数为T rue,则双字节字符仅与双字节字符相匹配;假设该参数为False,则双字节字符可匹配与其相同的单字节字符。对应于“查与替换”对话框中,“区分全角/半角”复选框。
(10)参数SearchFormat,可选,指定一个确切类型的查格式。对应于“查与替换”对话框中,“格式”按钮。当设置带有相应格式的查时,该参数值为True。
(11)在每次使用Find方法后,参数LookIn、LookAt、SearchOrder、MatchByte的设置将保存。如果下次使用本方法时,不改变或指定这些参数的值,那么该方法将使用保存的值。
vba 字符串函数在VBA中设置的这些参数将更改“查与替换”对话框中的设置;同理,更改“查与替换”对话框中的设置,也将同时更改已保存的值。也就是说,在编写好一段代码后,假设在代码中未指定上述参数,可能在初期运行时能满足要求,但假设用户在“查与替换”对话框中更改了这些参数,它们将同时反映到程序代码中,当再次运行代码时,运行结果可能会产生差异或错误。假设要防止这个问题,在每次使用时建议明确的设置这些参数。
3. Find方法使用例如
3.1 本例如在活开工作表中查what变量所代表的值的单元格,并删除该单元格所在的列。ookIn:=xlValu es,按值查
LookAt:=xlWhole,全部匹配,xlPart部分匹配
SearchOrder:=xlByRows,按行查
SearchDirection:=xlNext,查方向,向下查
3. Find方法使用例如
3.1 本例如在活开工作表中查what变量所代表的值的单元格,并删除该单元格所在的列。
‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub Find_Error()
Dim rng As Range
Dim what As String
what = "Error"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Columns(rng.Column).Delete
End If
Loop
End Sub
‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3.2 带格式的查
本例如在当前工作表单元格中查字体为"Arial Unicode MS"且颜为红的单元格。其中,
Application.FindFormat对象允许指定所需要查的格式,此时Find方法的参数SearchFormat 应设置为True。
‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub FindWithFormat()
.Name = "Arial Unicode MS"
.ColorIndex = 3
End With
Cells.Find(what:="", SearchFormat:=True).Activate
End Sub
‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[小结] 在使用Find方法到符合条件的数据后,就可以对其进行相应的操作了。您可以:
(1)对该数据所在的单元格进行操作;
(2)对该数据所在单元格的行或列进行操作;
(3)对该数据所在的单元格区域进行操作。
--------------------------------------------------------------------------------
4. 与Find方法相联系的方法
可以使用FindNext方法和FindPrevious方法进行重复查。在使用这两个方法之前,必须用
Find方法指定所需要查的数据内容。
4.1 FindNext方法
FindNext方法对应于“查与替换”对话框中的“查下一个”按钮。可以使用该方法继续执行查,查下一个与Find方法中所指定条件的数据相匹配的单元格,返回代表该单元格的Range对象。在使用该方法时,不影响选定区域或活动单元格。
4.1.1 语法
.FindNext(After)
4.1.2 参数说明
参数After,可选。代表所指定的单元格,将从该单元格之后开始进行查。开始时不查该位置所在的单元格,直到FindNext方法绕回到该单元格时,才对其内容进行查。所指定的位置必须是单元格区域中的单个单元格,如果未指定本参数,则将从单元格区域的左上角的单元格之后开始进行查。
当查到指定查区域的末尾时,本方法将环绕至区域的开始继续查。发生环绕后,为停止查,可保存第一次到的单元格地址,然后测试下一个查到的单元格地址是否与其相同,作为判断查退出的条件,以防止出现死循环。当然,如果在查的过程中,将查到的单元格数据进行了改变,也可不作此判断,如下例所示。
4.1.3 对VBA帮助系统上的一点疑问探讨
在VBA帮助系统中,介绍Find方法和FindNext方法所使用的例如好似有点问题:当在Excel中运行时,虽然运行结果正确,但是在运行到最后时,会报错误:运行时错误’91’:对象变量或With块变量未设置。究其原因,可能是对象变量c的问题,因为当进行查并将相应的值全部改变后,最后变量c的值为Nothing。将其稍作改动后,运行通过。
原例如代码如下:(大家也可参见VBA帮助系统Find方法或FindNext方法帮助主题)
本例如在单元格区域A1:A500中查值为2的单元格,并将这些单元格的值变为5。
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
经修改后的例如代码如下,即在原代码中加了一句错误处理语句On Error Resume Next,忽略所发生的错误。
Sub test1()
Dim c As Range, firstAddress As String
On Error Resume Next
With Worksheets(1).Range("a1:a15")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
或者,将代码作如下修改,即去掉原代码中最后一个判断循环的条件c.Address firstAddress,因为本程序的功能是
追问:
在指定区域查值为2的单元格并替换为数值5,当程序在指定区域查不到数值2时就会退出循环,不涉及到重复循环的问题。
Sub test2()
Dim c As Range, firstAddress As String
With Worksheets(1).Range("a1:a15")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
您也可以试试该程序,看看我的理解是否正确,或者还有什么其它的解决方法。
4.2 FindPrevious方法
可以使用该方法继续执行Find方法所进行的查,查前一个与Find方法中所指定条件的数据相匹配的单元格,返回代表该单元格的Range对象。在使用该方法时,不影响选定区域或活动单元格。
4.2.1 语法
.FindPrevious(After)
4.2.2 参数说明
参数After,可选。代表所指定的单元格,将从该单元格之前开始进行查。开始时不查该位置所在的单元格,直到FindPrevious方法绕回到该单元格时,才对其内容进行查。所指定的位置必须是单元格区域中的单个单元格,如果未指定本参数,则将从单元格区域的左上角的单元格之前开始进行查。
当查到指定查区域的起始位置时,本方法将环绕至区域的末尾继续查。发生环绕后,为停止查,可保存第一次到的单元格地址,然后测试下一个查到的单元格地址是否与其相同,作为判断查退出的条件,以防止出现死循环。
4.2.3 例如
在工作表中输入数据,至少保证在A列中有两个单元格输入了数据“excelhome”。
在VBE编辑器中输入下面的代码测试Find方法、FindNext方法、FindPrevious方法,体验各个方法所查到的单元格位置。
‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub testFind()
Dim findValue As Range
Set findValue = Worksheets("Sheet1").Columns("A").Find(what:="excelhome")
Set findValue = Worksheets("Sheet1").Columns("A").FindNext(After:=findValue)
Set findValue = Worksheets("Sheet1").Columns("A").FindPrevious(After:=findValue) End Sub
Sub宏1()
For i = 2 To10
If Not Cells(i, 11).Find("职称") Is Nothing And Not Cells(i, 12).Find("工程师") Is Nothing Then
Cells(i, 13) = "中级"
End If
Next
End Sub
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论