Propriedade CellFormat.Borders (Excel)
Retorna ou define uma coleção Borders que representa os critérios de pesquisa com base no formato de borda da célula.
expressão. Fronteiras
Expressão Uma variável que representa um objeto CellFormat .
Este exemplo define os critérios de pesquisa para identificar as bordas das células que têm uma extremidade inferior com estilo espesso e contínuo, cria uma célula com essa condição, localiza-a e notifica o usuário.
Observação
A cor padrão da borda é usada neste exemplo; Portanto, o índice de cores não é alterado.
Sub SearchCellFormat()
' Set the search criteria for the border of the cell format.
With Application.FindFormat.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
' Create a continuous thick bottom-edge border for cell A5.
Range("A5").Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
Range("A1").Select
MsgBox "Cell A5 has a continuous thick bottom-edge border"
' Find the cells based on the search criteria.
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
MsgBox "Microsoft Excel has found this cell matching the search criteria."
End Sub
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.