A Microsoft Office (Excel, Word) forum. OfficeFrustration

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.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » Worksheet Functions
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Active Cell Border Color



 
 
Thread Tools Display Modes
  #1  
Old March 13th, 2008, 02:07 PM posted to microsoft.public.excel.worksheet.functions
Linda Oshkosh WI
external usenet poster
 
Posts: 1
Default 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  
Old March 13th, 2008, 04:07 PM posted to microsoft.public.excel.worksheet.functions
Gary''s Student
external usenet poster
 
Posts: 7,584
Default 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  
Old May 29th, 2010, 09:12 PM posted to microsoft.public.excel.worksheet.functions
Steve Iommi
external usenet poster
 
Posts: 1
Default 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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 01:48 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.