high-lite the active cell's row when mouse cursor is in plac

[trillicomm]

A file has thin row height so I can view many rows on the screen. But sometimes I get mixed up reading different cells of either the above or below ones of the active row (because of small text size, too). If someone can help me script an visible feature VBA macro to colorize the row background in light green and bold type the text from columns A to D, that'd be greatly appreciated. But the row has to return to the normal property when the mouse moves to another cell with respect to the row.

Thank you.

 

[trillicomm]

Dave, I greatly appreciate your help.

T. Le

 

[trillicomm]

On 2002-03-23 19:32, Dave Hawley wrote:
Hi

I have a very simple example of this here:
http://www.ozgrid.com/VBA/ExcelWorkbookEvents.htm
Scroll to the bottom and look at:
"Automatic Highlighting of Active Row"



_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training

This message was edited by Dave Hawley on 2002-03-23 19:33

Thank you Dave,
Tan Le

 

[Mav]

Dave,

That is a nice code. Is there any way to implement that in a worksheet that already contains conditional formatting so that the row can be higlighted without loosing that pre-existing conditional formatting?

Thanks.
Mav

 

[Derek]

Mav

If you can insert a hidden column (A) and provided you have not used up all 3 conditional formats you can add this as the first condition:
=$A1=1 (format cells red or whatever)

Then paste this event procedure into your sheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A:A").ClearContents
ActiveCell.Offset(0, -(Target.Column() - 1)).Value = 1
End Sub

This utilises the hidden column A. The event macro first clears column A then adds 1 against the row with the active cell. The conditional formatting temporarily colors the row which has 1 in column A.
regards
Derek

 

[Dave Hawley]

Derek, That is a good way! Mainly for 'ease of read' it could be.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A:A").ClearContents
Cells(Target.Row, 1).Value = 1
End Sub

_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training

This message was edited by Dave Hawley on 2002-03-24 17:37