| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Applying Bottom and right border
Hi,
Please assist. How do I put a bottom and right border on each cell in a range? This is what I have for the bottom border. Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7")) rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeBottom).LineStyle = xlContinuous rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeLeft).LineStyle = xlContinuous rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeRight).LineStyle = xlContinuous Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Applying Bottom and right border
Something like this...
Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7")) With rng .Borders.LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous End With -- HTH... Jim Thomlinson "Gwen" wrote: Hi, Please assist. How do I put a bottom and right border on each cell in a range? This is what I have for the bottom border. Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7")) rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeBottom).LineStyle = xlContinuous rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeLeft).LineStyle = xlContinuous rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeRight).LineStyle = xlContinuous Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Applying Bottom and right border
Thanks
Unfortunately, it only worked for the bottom border. "Jim Thomlinson" wrote: Something like this... Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7")) With rng .Borders.LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous End With -- HTH... Jim Thomlinson "Gwen" wrote: Hi, Please assist. How do I put a bottom and right border on each cell in a range? This is what I have for the bottom border. Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7")) rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeBottom).LineStyle = xlContinuous rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeLeft).LineStyle = xlContinuous rng.Borders.LineStyle = xlNone rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rng.Borders(xlEdgeRight).LineStyle = xlContinuous Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Applying a Border Around Sets of Data | Excel Discussion (Misc queries) | |||
| Border at bottom of worksheet | Excel Discussion (Misc queries) | |||
| Apply bottom border only on filled cells, leaves blank cells without border? | Excel Programming | |||
| Repeat bottom Border | Excel Discussion (Misc queries) | |||
| Setting Bottom Border On Each Page | Excel Programming | |||
Linear Mode
