Objeto CellFormat

Application CellFormat Vários objetos

Representa os critérios de pesquisa para o formato da célula.

Usando o objeto CellFormat

Use as propriedades FindFormat ou ReplaceFormat do objeto Application para retornar um objeto CellFormat.

Com um objeto CellFormat, você pode usar as propriedades Borders, Font ou Interior do objeto CellFormat para definir os critérios de pesquisa para o formato da célula. O exemplo a seguir define esses critérios para o interior do formato da célula. Nessa situação, o interior da célula A1 é definido como amarelo, que é então encontrado e substituído por um interior verde.

Sub ChangeCellFormat()

    ' Set the interior of cell A1 to yellow.
    Range("A1").Select
    Selection.Interior.ColorIndex = 36
    MsgBox "The cell format for cell A1 is a yellow interior."

    ' Set the CellFormat object to replace yellow with green.
    With Application
        .FindFormat.Interior.ColorIndex = 36
        .ReplaceFormat.Interior.ColorIndex = 35
    End With

    ' Find and replace cell A1's yellow interior with green.
    ActiveCell.Replace What:="", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=True
    MsgBox "The cell format for cell A1 is replaced with a green interior."

End Sub