Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi,
Please assist. I want a thick border around range and a5:l8 I want thin borders around cells in range from a5 to the end of range. The below code gives me the thick borders I want not the cells within the range. Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5")) With rngAL8 '.Borders.LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlContinuous .Borders(xlInsideHorizontal).Weight = xlHairline .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeBottom).Weight = xlHairline .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeRight).Weight = xlHairline .Borders(xlInsideVertical).LineStyle = xlContinuous .Borders(xlInsideVertical).Weight = xlHairline End With Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1")) With rng ..Borders(xlInsideHorizontal).LineStyle = xlNone ..Borders(xlEdgeLeft).Weight = xlThick ..Borders(xlEdgeRight).Weight = xlThick ..Borders(xlEdgeTop).Weight = xlThick ..Borders(xlEdgeBottom).Weight = xlThick End With Set rnga5l7 = Range("A5:L7") With rnga5l7 ..Borders(xlInsideHorizontal).LineStyle = xlNone ..Borders(xlEdgeLeft).Weight = xlThick ..Borders(xlEdgeRight).Weight = xlThick ..Borders(xlEdgeTop).Weight = xlThick ..Borders(xlEdgeBottom).Weight = xlThick End With Thanks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
How can I test a range of cells for the presence of a border? | Excel Worksheet Functions | |||
Border for range | Excel Programming | |||
Apply bottom border only on filled cells, leaves blank cells without border? | Excel Programming | |||
border every other cell in range | Excel Programming | |||
border every other cell in range | Excel Programming |