Scribd
Upload
30 views

Código Macro 'Este Código Agrega Bordes A Las Celdas Seleccionadas..

This macro code adds thin continuous borders of color index 0 around any selected cells. It sets the left, top, bottom, right, inside vertical and inside horizontal borders of the selection to have a thin continuous line style with color index 0 and no tint or shade. The code is designed to add borders to selected cells in Excel.

Uploaded by

Pedro Mesias Mejia
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
30 views

Código Macro 'Este Código Agrega Bordes A Las Celdas Seleccionadas..

This macro code adds thin continuous borders of color index 0 around any selected cells. It sets the left, top, bottom, right, inside vertical and inside horizontal borders of the selection to have a thin continuous line style with color index 0 and no tint or shade. The code is designed to add borders to selected cells in Excel.

Uploaded by

Pedro Mesias Mejia
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Código Macro

'Este código agrega bordes a las celdas seleccionadas...

Sub Agregar_Bordes()
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Leer más: https://stricker-ruben-dario.webnode.es/products/agregar-bordes/

You might also like