Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove all borders from a range
I am using Office 2003 on Windows XP.
I recorded the code to remove ALL borders from a range and got the following: Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Is there a simpler code to just remove all the borders in a range of cells? If so, could you please post example code? Thanks much in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove all borders from a range
Sub test()
Dim rng As Range Set rng = ActiveSheet.Range("A1:B10") rng.Borders.LineStyle = xlNone End Sub -- HTH... Jim Thomlinson "quartz" wrote: I am using Office 2003 on Windows XP. I recorded the code to remove ALL borders from a range and got the following: Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Is there a simpler code to just remove all the borders in a range of cells? If so, could you please post example code? Thanks much in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove all borders from a range
That would do it. Thanks Jim.
"Jim Thomlinson" wrote: Sub test() Dim rng As Range Set rng = ActiveSheet.Range("A1:B10") rng.Borders.LineStyle = xlNone End Sub -- HTH... Jim Thomlinson "quartz" wrote: I am using Office 2003 on Windows XP. I recorded the code to remove ALL borders from a range and got the following: Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Is there a simpler code to just remove all the borders in a range of cells? If so, could you please post example code? Thanks much in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove all borders from a range
Yet one more instance where something so easy is made so complex when
recorded. At least you are savy enough to recognize garbage when you see it and know that there just has to be a better way. -- HTH... Jim Thomlinson "quartz" wrote: That would do it. Thanks Jim. "Jim Thomlinson" wrote: Sub test() Dim rng As Range Set rng = ActiveSheet.Range("A1:B10") rng.Borders.LineStyle = xlNone End Sub -- HTH... Jim Thomlinson "quartz" wrote: I am using Office 2003 on Windows XP. I recorded the code to remove ALL borders from a range and got the following: Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Is there a simpler code to just remove all the borders in a range of cells? If so, could you please post example code? Thanks much in advance. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove all borders from a range
Hi,
in excel 2000, Borders.LineStyle doesn't change diagonal lines and the borders of adjacent cells. I suppose that if you want to delete them, something like the code you wrote is needed. this is an example of looping: Sub ClearBorders() Dim b As Variant For Each b In Array(xlDiagonalDown, xlDiagonalUp, _ xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, _ xlInsideVertical, xlInsideHorizontal) Selection.Borders(b).LineStyle = xlNone Next End Sub -- HTH, okaizawa quartz wrote: I am using Office 2003 on Windows XP. I recorded the code to remove ALL borders from a range and got the following: Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Is there a simpler code to just remove all the borders in a range of cells? If so, could you please post example code? Thanks much in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find Range Borders (Cell Addresses) In VBA | Excel Discussion (Misc queries) | |||
Borders for range | Excel Discussion (Misc queries) | |||
Sorting a range loses formatted borders | Excel Discussion (Misc queries) | |||
how do you remove borders | Excel Discussion (Misc queries) | |||
Borders nor underline commands remove an unusual underline. ?? | Excel Discussion (Misc queries) |