Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: how to make cell pointer / cursor in special color?

  1. #1
    New Member
    Join Date
    Apr 2002
    Location
    puteri shahira
    Posts
    2
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  2. #2
    MrExcel MVP Mark O'Brien's Avatar
    Join Date
    Feb 2002
    Location
    Columbus, OH, USA
    Posts
    3,530
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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 ]

  3. #3
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •