Saltar al contenido

ejemplo de código de borde alrededor de excel vba

Nuestro equipo redactor ha pasado mucho tiempo buscando para dar solución a tus búsquedas, te brindamos la respuesta de modo que esperamos serte de gran apoyo.

Ejemplo 1: excel vba establece el borde alrededor del rango

'VBA routine to set the border AROUND or THROUGH a range:Sub SetRangeBorders(r As Range,Optional edges AsBoolean=1,Optional stl =1,Optional clr =0,Optional wgt =2)Dim e
    If edges ThenForEach e In Array(xlEdgeLeft,8,9,10)
            SetBorder r.Borders(e), stl, clr, wgt
        NextElse
        SetBorder r.Borders, stl, clr, wgt
    EndIfEndSubSub SetBorder(b,Optional stl =1,Optional clr =0,Optional wgt =2)
    b.LineStyle = stl
    b.Color = clr
    b.Weight = wgt
EndSub'--------------------------------------------------------------------

SetRangeBorders [d2:k10]
SetRangeBorders [d2:k10],False, vbRed
SetRangeBorders [d2:k10],,, xlThick

Ejemplo 2: bordes de excel vba

Dim wksWorksheet As Worksheet, rRange As Range
Set wksWorksheet = ThisWorkbook.Worksheets(1)Set rRange = wksWorksheet.Range("A1:D10")' All bordersWith rRange.Borders
    .LineStyle = xlContinuous
    .Color = vbRed
    .Weight = xlThin
EndWith' Outside borders
rRange.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
' InsideWith rRange.Borders.Item(xlInsideHorizontal).ColorIndex =5.LineStyle = xlContinuous
    .Weight = xlThin
EndWith

Comentarios y calificaciones del tutorial

Recuerda que tienes la opción de valorar esta reseña si te fue de ayuda.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *