✅ VBA Cell Borders

Índice

Bordas de formatação

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

Bordas de formatação

Borda Superior - Linha Dupla

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

123456789

Sub ExampleSetBorder ()Com planilhas ("Planilha1"). Intervalo ("B3"). Bordas (xlEdgeTop).LineStyle = xlDouble.Weight = xlThick.ColorIndex = 5Terminar comEnd Sub

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

Acessamos a borda superior com .Borders (xlEdgeTop).

Outras Fronteiras da Célula

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

123456

Planilhas ("Folha1"). Intervalo ("B2"). Bordas (xlEdgeTop) .Cor = RGB (128, 0, 0)Planilhas ("Folha1"). Intervalo ("B2"). Bordas (xlEdgeRight) .Cor = RGB (0, 255, 0)Planilhas ("Folha1"). Intervalo ("B2"). Bordas (xlEdgeBottom) .Cor = RGB (0, 0, 128)Planilhas ("Folha1"). Intervalo ("B2"). Bordas (xlEdgeLeft) .Cor = RGB (255, 0, 0)Planilhas ("Folha1"). Intervalo ("B2"). Bordas (xlDiagonalDown) .Cor = RGB (0, 0, 0)Planilhas ("Planilha1"). Intervalo ("B2"). Bordas (xlDiagonalUp) .Cor = RGB (0, 0, 0)

Dentro das Fronteiras

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

12345

Com planilhas ("Folha1"). Intervalo ("B2: C6"). Bordas (xlInsideHorizontal).LineStyle = xlDashDotDot.Weight = xlMedium.ColorIndex = 3Terminar com

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ê terá esse resultado com o código abaixo:

12345678

Planilhas ("Planilha1"). Intervalo ("C3"). Bordas (xlEdgeTop). Peso = xlHairlinePlanilhas ("Folha1"). Intervalo ("C3"). Bordas (xlEdgeBottom). Peso = xlHairlinePlanilhas ("Planilha1"). Intervalo ("D3"). Bordas (xlEdgeTop). Peso = xlThinPlanilhas ("Planilha1"). Intervalo ("D3"). Bordas (xlEdgeBottom). Peso = xlThinPlanilhas ("Planilha1"). Intervalo ("E3"). Bordas (xlEdgeTop). Peso = xlMediumPlanilhas ("Planilha1"). Intervalo ("E3"). Bordas (xlEdgeBottom). Peso = xlMediumPlanilhas ("Planilha1"). Intervalo ("F3"). Bordas (xlEdgeTop) .Weight = xlThickPlanilhas ("Planilha1"). Intervalo ("F3"). Bordas (xlEdgeBottom) .Weight = xlThick

As cores das bordas 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: