Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify macro to show grid lines
I recorded a macro to add grid lines to a range of cells, and then I
converted the macro to a more readable format: Public Sub ShowGridLines(rng As Range) With rng .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .Borders(xlEdgeTop)... However, I thought there may be a way to simplify it even more, using the Borders collection: Dim b as Border For Each b in rng.Borders b.LineStyle = xlContinuous b.Weight = xlThin b.ColorIndex = xlAutomatic Next This would reduce all that code to six lines. The problem is this code adds every border, including xlDiagonalDown and xlDiagonalUp. Does anyone know how to filter these two borders from the collection? The recorded macro explicity sets these line styles to "xlNone" (see above). |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify macro to show grid lines
Possibly
Sub efg() Dim b As Border i = 0 Set rng = ActiveCell For Each b In rng.Borders i = i + 1 If i < 5 And i < 6 Then b.LineStyle = xlContinuous b.Weight = xlThin b.ColorIndex = xlAutomatic End If Next End Sub -- Regards, Tom Ogilvy "Mike K" wrote in message ups.com... I recorded a macro to add grid lines to a range of cells, and then I converted the macro to a more readable format: Public Sub ShowGridLines(rng As Range) With rng .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .Borders(xlEdgeTop)... However, I thought there may be a way to simplify it even more, using the Borders collection: Dim b as Border For Each b in rng.Borders b.LineStyle = xlContinuous b.Weight = xlThin b.ColorIndex = xlAutomatic Next This would reduce all that code to six lines. The problem is this code adds every border, including xlDiagonalDown and xlDiagonalUp. Does anyone know how to filter these two borders from the collection? The recorded macro explicity sets these line styles to "xlNone" (see above). |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel grid lines show when pasting, didn't used to | Excel Discussion (Misc queries) | |||
Cell grid lines won't show up, and have box checked | Excel Discussion (Misc queries) | |||
Show grid lines when printing? | New Users to Excel | |||
Why do some grid lines not show in print preview? | Excel Discussion (Misc queries) | |||
Show Grid lines | Excel Programming |