VBA – Bordes de Celda

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

Dennis Madrid

Last updated on diciembre 10, 2022

In this Article

Formato de Bordes

Este tutorial mostrará cómo ajustar la configuración de los bordes de celda en VBA.

Formato de Bordes

Borde superior – Línea Doble

Primero veamos un ejemplo de cómo establecer un borde superior azul, grueso y doble a la celda B3 de la Hoja1:

Configurar Bordes VBA

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

Observa que utilizamos una sentencia With para simplificar nuestra codificación.

Accedemos al borde superior con .Borders(xlEdgeTop).

Otros Bordes de Celda

Puedes acceder a otros bordes, incluyendo los diagonales:

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

Configurar Bordes Ej2 VBA

Bordes Interiores

También puede ajustar los bordes horizontales (xlInsideHorizontal) y verticales (xlInsideVertical) para todas las celdas de un rango:

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

Configurar Bordes Internos VBA

LineStyle

La propiedad LineStyle puede cambiarse a xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot and xlLineStyleNone.

La propiedad Weight puede ser xlHariline, xlThin, xlMedium and xlThick. Obtendrá este resultado con el siguiente código:

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

Propiedad LineStyle VBA

Los colores de los bordes se pueden establecer como ColorIndex o Color (RGB, serial number or vbColor). Ver más información sobre la configuración de color aquí.

También puede añadir bordes alrededor de un rango con un comando de una línea:

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