✅ Fronteras de celda VBA

Tabla de contenido

Dar formato a los bordes

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

Dar formato a los bordes

Borde superior - Línea doble

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

123456789

Sub ExampleSetBorder ()Con hojas de trabajo ("Hoja1"). Rango ("B3"). Bordes (xlEdgeTop).LineStyle = xlDouble.Peso = xlEspesor.ColorIndex = 5Terminar conEnd Sub

Observe que usamos una instrucción With para simplificar nuestra codificación.

Accedemos al borde superior con .Bordes (xlEdgeTop).

Otros bordes celulares

En su lugar, puede acceder a otros bordes, incluidas las diagonales:

123456

Hojas de trabajo ("Hoja1"). Rango ("B2"). Bordes (xlEdgeTop) .Color = RGB (128, 0, 0)Hojas de trabajo ("Hoja1"). Rango ("B2"). Bordes (xlEdgeRight) .Color = RGB (0, 255, 0)Hojas de trabajo ("Hoja1"). Rango ("B2"). Bordes (xlEdgeBottom) .Color = RGB (0, 0, 128)Hojas de trabajo ("Hoja1"). Rango ("B2"). Bordes (xlEdgeLeft) .Color = RGB (255, 0, 0)Hojas de trabajo ("Hoja1"). Rango ("B2"). Bordes (xlDiagonalDown) .Color = RGB (0, 0, 0)Hojas de trabajo ("Hoja1"). Rango ("B2"). Bordes (xlDiagonalUp) .Color = RGB (0, 0, 0)

Fronteras interiores

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

12345

Con hojas de trabajo ("Hoja1"). Rango ("B2: C6"). Bordes (xlInsideHorizontal).LineStyle = xlDashDotDot.Peso = xlMedio.ColorIndex = 3Terminar con

LineStyle

La propiedad LineStyle se puede cambiar a xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot y xlLineStyleNone.

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

12345678

Hojas de trabajo ("Hoja1"). Rango ("C3"). Bordes (xlEdgeTop) .Peso = xlHairlineHojas de trabajo ("Hoja1"). Rango ("C3"). Bordes (xlEdgeBottom) .Peso = xlHairlineHojas de trabajo ("Hoja1"). Rango ("D3"). Bordes (xlEdgeTop) .Peso = xlThinHojas de trabajo ("Hoja1"). Rango ("D3"). Bordes (xlEdgeBottom) .Peso = xlThinHojas de trabajo ("Hoja1"). Rango ("E3"). Bordes (xlEdgeTop) .Peso = xlMedioHojas de trabajo ("Hoja1"). Rango ("E3"). Bordes (xlEdgeBottom) .Peso = xlMediumHojas de trabajo ("Hoja1"). Rango ("F3"). Bordes (xlEdgeTop) .Peso = xlThickHojas de trabajo ("Hoja1"). Rango ("F3"). Bordes (xlEdgeBottom) .Peso = xlThick

Los colores del borde se pueden establecer como ColorIndex o Color (RGB, número de serie o vbColor). Consulte más información sobre la configuración de color aquí.

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