VBA小技巧12：查找正确的格式

如果我们需要查找特定格式的单元格，例如字体为加粗或者有特定背景色的单元格，该怎么操作？

此时，就要用上Find方法的参数SearchFormat了。这是一个布尔参数，它告诉Find方法搜索特定格式。但是，如何设置格式呢？

使用FindFormat对象。

FindFormat是Application对象的一个特殊属性，可以在其中设置特定格式的详细信息以用于Range.Find方法中进行搜索。所需要做的就是设置FindFormat属性，就像设置任何给定Range对象的属性一样。

例如，如果我们想将文本设置为粗体，使用：

Application.FindFormat.Font.Bold = True

如下图1所示，其中包含一些背景色为黄色的单元格，其RGB代码为：R=255，G=255，B=0。要查找这个特定的格式，使用：

Application.FindFormat.Interior.Color = RGB(255,255, 0)

图1

代码如下：

代码语言：javascript复制

Sub FindFormat()
    Dim rngSearch As Range
    Set rngSearch= Range("A1:D10")
   Application.FindFormat.Interior.Color = RGB(255, 255, 0)
    Dim rngFound As Range
    Set rngFound = rngSearch.Find("完美Excel",Lookat:=xlPart, MatchCase:=False, searchformat:=True)
    If rngFound Is Nothing Then
        Debug.Print"没有找到!"
    Else
       Debug.Print rngFound
       Debug.Print rngFound.Address
    End If
End Sub

结果如下图2所示。

图2

可以向一个单元格添加多个格式详细信息，代码如下：

代码语言：javascript复制

Sub FindFormat1()
    Dim rngSearch As Range
    Set rngSearch = Range("A1:D10")
    Application.FindFormat.Interior.Color= RGB(255, 255, 0)
   Application.FindFormat.Font.Color = RGB(255, 0, 0)
    Dim rngFound As Range
    Set rngFound = rngSearch.Find("excelperfect", Lookat:=xlPart,MatchCase:=False, searchformat:=True)
    If rngFound Is Nothing Then
       Debug.Print "没有找到!"
    Else
       Debug.Print rngFound
       Debug.Print rngFound.Address
    End If
End Sub

结果如下图3所示。

图3

也可以使用代码：

代码语言：javascript复制

Sub FindFormat2()
    Dim rngSearch As Range
    Set rngSearch = Range("A1:D10")
    Application.FindFormat.Interior.Color= RGB(255, 255, 0)
   Application.FindFormat.Font.Color = RGB(255, 0, 0)
    Dim rngFound As Range
    Set rngFound = rngSearch.Find("", Lookat:=xlPart, MatchCase:=False,searchformat:=True)
    If rngFound Is Nothing Then
       Debug.Print "没有找到!"
    Else
       Debug.Print rngFound
       Debug.Print rngFound.Address
    End If
End Sub

结果同上图3。

find 搜索

0 人点赞