| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Border around range working -Border for cells within range not wor
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Border around range working -Border for cells within range not wor
? maybe remove these 2 lines
Borders(xlInsideHorizontal).LineStyle = xlNone HTH, Bernie MS Excel MVP "Gwen" wrote in message ... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Border around range working -Border for cells within range not wor
It seemed to work OK just using the xlInsideHorizontal or xlInsideVertical.
I commented out the others. With RngAL8 '.Borders.LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlContinuous .Borders(xlInsideHorizontal).Weight = xlThick '.Borders(xlEdgeBottom).LineStyle = xlContinuous '.Borders(xlEdgeBottom).Weight = xlThick '.Borders(xlEdgeRight).LineStyle = xlContinuous '.Borders(xlEdgeRight).Weight = xlThick .Borders(xlInsideVertical).LineStyle = xlContinuous .Borders(xlInsideVertical).Weight = xlThick "Gwen" wrote: 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Border around range working -Border for cells within range not
Thanks for your help.
Unfortunately I am not getting the top/bottom border lines "JLGWhiz" wrote: It seemed to work OK just using the xlInsideHorizontal or xlInsideVertical. I commented out the others. With RngAL8 '.Borders.LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlContinuous .Borders(xlInsideHorizontal).Weight = xlThick '.Borders(xlEdgeBottom).LineStyle = xlContinuous '.Borders(xlEdgeBottom).Weight = xlThick '.Borders(xlEdgeRight).LineStyle = xlContinuous '.Borders(xlEdgeRight).Weight = xlThick .Borders(xlInsideVertical).LineStyle = xlContinuous .Borders(xlInsideVertical).Weight = xlThick "Gwen" wrote: 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| 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 | |||
Linear Mode
