how to make cell pointer / cursor in special color?

shah6084 · Apr 24th, 2002, 07:57 PM

hi friends,

i find it's so difficult for me to update my daily report due to so many numbers in my worksheet. is there any way to create a special color (highlighting) on our cell pointer / cursor / indicator ?? Kindly answer me at my email address:

sshaari@hotmail.com

Mark O'Brien · Apr 24th, 2002, 10:50 PM

If you're looking for someone to reply to your hotmail, it ain't gonna happen. It defeats the whole purpose of the board.

If you want to change the colour of the cursor, it ain't gonna happen. (at least not without some intensive hours of API research)

You're stuck with four cursor types in Excel and they're all white.

_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-04-24 21:51 ]

Ivan F Moala · Apr 24th, 2002, 11:56 PM

You can of course highlight the active cell
via application change event to a different
colour.........I believe there is code avial
on this board to do that.....

I believe it was ?? who posted this code ??
There are other ways.....
My appolgies to the original poster(s) I think
it was Nate0,Dave Hawley and others..



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim iColor As Integer



iColor = Target.Interior.ColorIndex



If iColor < 0 Then

    iColor = 1

Else

    iColor = iColor + 1

End If



Cells.FormatConditions.Delete

Target.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

Target.FormatConditions(1).Interior.ColorIndex = iColor



End Sub

Apr 24th, 2002, 11:56 PM	#3
Ivan F Moala MrExcel MVP Join Date: Feb 2002 Location: Auckland, New Zealand Posts: 4,209	You can of course highlight the active cell via application change event to a different colour.........I believe there is code avial on this board to do that..... I believe it was ?? who posted this code ?? There are other ways..... My appolgies to the original poster(s) I think it was Nate0,Dave Hawley and others.. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iColor As Integer iColor = Target.Interior.ColorIndex If iColor < 0 Then iColor = 1 Else iColor = iColor + 1 End If Cells.FormatConditions.Delete Target.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE" Target.FormatConditions(1).Interior.ColorIndex = iColor End Sub __________________ Kind Regards, Ivan F Moala From the City of Sails

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 24th, 2002, 07:57 PM	#1
shah6084 New Member Join Date: Apr 2002 Location: puteri shahira Posts: 2	hi friends, i find it's so difficult for me to update my daily report due to so many numbers in my worksheet. is there any way to create a special color (highlighting) on our cell pointer / cursor / indicator ?? Kindly answer me at my email address: sshaari@hotmail.com

Apr 24th, 2002, 10:50 PM	#2
Mark O'Brien MrExcel MVP Join Date: Feb 2002 Location: Columbus, OH, USA Posts: 3,519	If you're looking for someone to reply to your hotmail, it ain't gonna happen. It defeats the whole purpose of the board. If you want to change the colour of the cursor, it ain't gonna happen. (at least not without some intensive hours of API research) You're stuck with four cursor types in Excel and they're all white. _________________ [b] Mark O'Brien [ This Message was edited by: Mark O'Brien on 2002-04-24 21:51 ]