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)