VBA – Bordas de Células

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

Daniel Caramello

Last updated on May 19, 2023

In this Article

Formatação de Bordas

Este tutorial mostrará como ajustar as configurações de borda da célula no VBA.

Formatação de Bordas

Borda Superior – Linha Dupla

Primeiro, vamos dar uma olhada em um exemplo de como definir uma borda superior azul, espessa e dupla para a célula B3 na Planilha1:

borda-dupla-azul

Sub ExamploDefinirBordas()

 With Worksheets("Planilha1").Range("B3").Borders(xlEdgeTop)
  .LineStyle = xlDouble
  .Weight = xlThick
  .ColorIndex = 5
 End With

End Sub

Observe que usamos uma instrução With para simplificar nossa codificação.

Acessamos a borda superior com .Borders(xlEdgeTop).

Outras Bordas de Células

Em vez disso, você pode acessar outras bordas, inclusive as diagonais:

Worksheets("Planilha1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)
Worksheets("Planilha1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)
Worksheets("Planilha1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)
Worksheets("Planilha1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
Worksheets("Planilha1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)
Worksheets("Planilha1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0)

outras bordas coloridas

Bordas Internas

Você também pode ajustar as bordas horizontais (xlInsideHorizontal) e verticais (xlInsideVertical) de todas as células em um intervalo:

With Worksheets("Planilha1").Range("B2:C6").Borders(xlInsideHorizontal)
 .LineStyle = xlDashDotDot
 .Weight = xlMedium
 .ColorIndex = 3
End With

linhas traco ponto

LineStyle

A propriedade LineStyle pode ser alterada para xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot e xlLineStyleNone.

A propriedade Weight pode ser xlHariline, xlThin, xlMedium e xlThick. Você obterá esse resultado com o código abaixo:

Worksheets("Planilha1").Range("C3").Borders(xlEdgeTop).Weight = xlHairline
Worksheets("Planilha1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairline
Worksheets("Planilha1").Range("D3").Borders(xlEdgeTop).Weight = xlThin
Worksheets("Planilha1").Range("D3").Borders(xlEdgeBottom).Weight = xlThin
Worksheets("Planilha1").Range("E3").Borders(xlEdgeTop).Weight = xlMedium
Worksheets("Planilha1").Range("E3").Borders(xlEdgeBottom).Weight = xlMedium
Worksheets("Planilha1").Range("F3").Borders(xlEdgeTop).Weight = xlThick
Worksheets("Planilha1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

varios estilos linha

As cores de borda podem ser definidas como ColorIndex ou Color (RGB, número de série ou vbColor). Veja mais informações sobre as configurações de cores aqui.

Você também pode adicionar bordas ao redor de um intervalo com um comando de uma linha:

Range("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed