Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Change cell selection border color in excel to stand out more?
Is it possible to change the working cell border color as you move around in
your spreadsheet to find your place easily? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Change cell selection border color in excel to stand out more?
You may want to try Chip Pearson's Rowliner:
http://www.cpearson.com/excel/RowLiner.htm Jeanne wrote: Is it possible to change the working cell border color as you move around in your spreadsheet to find your place easily? -- Dave Peterson |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Change cell selection border color in excel to stand out more?
Take a look at this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim v As Variant v = Array(xlEdgeBottom, xlEdgeTop, xlEdgeRight, xlEdgeLeft) For Each r In ActiveSheet.UsedRange With r For i = 0 To 3 ..Borders(v(i)).LineStyle = xlNone Next End With Next For i = 0 To 3 With ActiveCell.Borders(v(i)) ..LineStyle = xlContinuous ..Weight = xlThick ..ColorIndex = 7 End With Next End Sub Right-click on the tab and paste the code into the window that opens. Regards, Ryan--- -- RyGuy "Dave Peterson" wrote: You may want to try Chip Pearson's Rowliner: http://www.cpearson.com/excel/RowLiner.htm Jeanne wrote: Is it possible to change the working cell border color as you move around in your spreadsheet to find your place easily? -- Dave Peterson |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Change cell selection border color in excel to stand out more?
I think I'd use Target instead of activecell. And instead of activesheet, I'd
refer to it using the Me keyword. And declaring all the variables you use is always a good idea. Did you mean to post this as a followup to my response? Was it meant for the OP? ryguy7272 wrote: Take a look at this: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim v As Variant v = Array(xlEdgeBottom, xlEdgeTop, xlEdgeRight, xlEdgeLeft) For Each r In ActiveSheet.UsedRange With r For i = 0 To 3 .Borders(v(i)).LineStyle = xlNone Next End With Next For i = 0 To 3 With ActiveCell.Borders(v(i)) .LineStyle = xlContinuous .Weight = xlThick .ColorIndex = 7 End With Next End Sub Right-click on the tab and paste the code into the window that opens. Regards, Ryan--- -- RyGuy "Dave Peterson" wrote: You may want to try Chip Pearson's Rowliner: http://www.cpearson.com/excel/RowLiner.htm Jeanne wrote: Is it possible to change the working cell border color as you move around in your spreadsheet to find your place easily? -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change the default border color in Excel? | Setting up and Configuration of Excel | |||
How do I change the color for cell selection in excel? | New Users to Excel | |||
How do I change the format/cell/border/automatic color to black | Excel Discussion (Misc queries) | |||
How to change the default Border, Font Color, and Cell Color | Excel Discussion (Misc queries) | |||
How do you change the color of the cell hi-lite border | Excel Worksheet Functions |