If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Active Cell Border Color
I know this can be done, I just can remember how or seem to be able to find
it under help. I would like the border around my active cell to be a different color so it stands out easier than the now black border on an all black text document. I know how to add borders to cells, but I need the active cell border than moves to change color. Please help if you know how to do this! Thanks. |
#2
|
|||
|
|||
Active Cell Border Color
Put the following Event macro in the worksheet code area:
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 REMEMBER: the worksheet code area, not a standard module. -- Gary''s Student - gsnu200773 "Linda Oshkosh WI" wrote: I know this can be done, I just can remember how or seem to be able to find it under help. I would like the border around my active cell to be a different color so it stands out easier than the now black border on an all black text document. I know how to add borders to cells, but I need the active cell border than moves to change color. Please help if you know how to do this! Thanks. |
#3
|
|||
|
|||
Active Cell Border Color
Your event macro works well with single cells..thank you!
How might one get all boarders of merged cells to change color? GarysStuden wrote: Active Cell Border Color 13-Mar-08 Put the following Event macro in the worksheet code area: 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 REMEMBER: the worksheet code area, not a standard module. -- Gary''s Student - gsnu200773 "Linda Oshkosh WI" wrote: Previous Posts In This Thread: On Thursday, March 13, 2008 9:07 AM Linda Oshkosh W wrote: Active Cell Border Color I know this can be done, I just can remember how or seem to be able to find it under help. I would like the border around my active cell to be a different color so it stands out easier than the now black border on an all black text document. I know how to add borders to cells, but I need the active cell border than moves to change color. Please help if you know how to do this! Thanks. On Thursday, March 13, 2008 11:07 AM GarysStuden wrote: Active Cell Border Color Put the following Event macro in the worksheet code area: 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 REMEMBER: the worksheet code area, not a standard module. -- Gary''s Student - gsnu200773 "Linda Oshkosh WI" wrote: Submitted via EggHeadCafe - Software Developer Portal of Choice MSChart For VB.Net http://www.eggheadcafe.com/tutorials...for-vbnet.aspx |
Thread Tools | |
Display Modes | |
|
|