vba cell all borders
' set "All Boarders" around a range
ActiveSheet.Range("A1:C3").Borders.LineStyle = xlContinuousvba cell all borders
' set "All Boarders" around a range
ActiveSheet.Range("A1:C3").Borders.LineStyle = xlContinuousexcel vba set border around range
'VBA routine to set the border AROUND or THROUGH a range:
Sub SetRangeBorders(r As Range, Optional edges As Boolean = 1, Optional stl = 1, Optional clr = 0, Optional wgt = 2)
Dim e
If edges Then
For Each e In Array(xlEdgeLeft, 8, 9, 10)
SetBorder r.Borders(e), stl, clr, wgt
Next
Else
SetBorder r.Borders, stl, clr, wgt
End If
End Sub
Sub SetBorder(b, Optional stl = 1, Optional clr = 0, Optional wgt = 2)
b.LineStyle = stl
b.Color = clr
b.Weight = wgt
End Sub
'--------------------------------------------------------------------
SetRangeBorders [d2:k10]
SetRangeBorders [d2:k10], False, vbRed
SetRangeBorders [d2:k10], , , xlThickexcel vba table border
Sub SetRangeBorder()
With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
End SubCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
