hovering with cursor

%3CLINGO-SUB%20id%3D%22lingo-sub-2100279%22%20slang%3D%22en-US%22%3Ehovering%20with%20cursor%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2100279%22%20slang%3D%22en-US%22%3E%3CP%3EHow%20do%20i%20get%20the%20cursor%20to%20display%20which%20cell%20I%20am%20touching%20when%20I%20hover%20over%20it%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2100279%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2100586%22%20slang%3D%22en-US%22%3ERe%3A%20hovering%20with%20cursor%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2100586%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F943955%22%20target%3D%22_blank%22%3E%40GregV999%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20think%20you%20will%20need%20vba%20to%20do%20that.%20I've%20never%20done%20it%20myself%2C%20but%20I%20think%20this%20may%20get%20you%20started%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EOption%20Explicit%0A%0APublic%20Declare%20PtrSafe%20Function%20GetCursorPos%20Lib%20%22user32%22%20(lpPoint%20As%20POINTAPI)%20As%20Long%0A%0APublic%20Type%20POINTAPI%0A%20%20%20%20%20x%20As%20Long%0A%20%20%20%20%20y%20As%20Long%0AEnd%20Type%0A%0ASub%20TrackCursor()%0A%20%20%20%20%20Dim%20mousePos%20As%20POINTAPI%0A%20%20%20%20%20Dim%20curCell%20As%20Range%0A%20%20%20%20%20Dim%20target%20As%20Range%0A%20%20%20%20%20%0A%20%20%20%20%20On%20Error%20Resume%20Next%0A%20%20%20%20%20%0A%20%20%20%20%20'%2F%2F%20%20Change%20where%2Fhow%20to%20display%20it%20as%20needed.%0A%20%20%20%20%20Set%20target%20%3D%20Sheet1.Range(%22A1%22)%0A%20%20%20%20%20%0A%20%20%20%20%20Do%0A%20%20%20%20%20%20%20%20%20%20GetCursorPos%20mousePos%0A%20%20%20%20%20%20%20%20%20%20Set%20curCell%20%3D%20GetRangeFromXY(mousePos.x%2C%20mousePos.y)%0A%20%20%20%20%20%20%20%20%20%20target.Value%20%3D%20curCell.Address%0A%20%20%20%20%20%20%20%20%20%20DoEvents%0A%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20'%2F%2F%20%20You%20may%20set%20up%20a%20check%20here%20for%20some%20trigger%0A%20%20%20%20%20%20%20%20%20%20'%2F%2F%20%20(maybe%20a%20cell%20that%20is%20TRUE%2FFALSE)%20to%20break%0A%20%20%20%20%20%20%20%20%20%20'%2F%2F%20%20out%20of%20the%20loop%20and%20exit%20the%20procedure.%0A%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20Loop%0AEnd%20Sub%0A%0AFunction%20GetRangeFromXY(x%20As%20Long%2C%20y%20As%20Long)%20As%20Range%0A%20%20%20%20On%20Error%20Resume%20Next%0A%20%20%20%20Set%20GetRangeFromXY%20%3D%20ActiveWindow.RangeFromPoint(x%2C%20y)%0AEnd%20Function%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

How do i get the cursor to display which cell I am touching when I hover over it?

1 Reply

@GregV999 

 

I think you will need vba to do that. I've never done it myself, but I think this may get you started:

 

Option Explicit

Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
     x As Long
     y As Long
End Type

Sub TrackCursor()
     Dim mousePos As POINTAPI
     Dim curCell As Range
     Dim target As Range
     
     On Error Resume Next
     
     '//  Change where/how to display it as needed.
     Set target = Sheet1.Range("A1")
     
     Do
          GetCursorPos mousePos
          Set curCell = GetRangeFromXY(mousePos.x, mousePos.y)
          target.Value = curCell.Address
          DoEvents
          
          '//  You may set up a check here for some trigger
          '//  (maybe a cell that is TRUE/FALSE) to break
          '//  out of the loop and exit the procedure.
          
     Loop
End Sub

Function GetRangeFromXY(x As Long, y As Long) As Range
    On Error Resume Next
    Set GetRangeFromXY = ActiveWindow.RangeFromPoint(x, y)
End Function