Cell address nearest to screen coordinates
Quartz,
Here's a start at least:
Sub test()
Dim r As Long, c As Long
Dim target_left As Double, target_top As Double
Dim current_left As Double, current_top As Double
c = 1
r = 1
current_left = 0
current_top = 0
target_top = 282.5
target_left = 436.27
While current_left < target_left
If Sheet1.Cells(r, c).Left < target_left Then
c = c + 1
Else
While current_top < target_top
If Sheet1.Cells(r, c).Top < target_top Then
r = r + 1
Else
With Sheet1.Cells(r, c)
.Select
MsgBox .Address & vbCr & _
"Top = " & .Top & "," & " Left = " & .Left
Exit Sub
End With
End If
Wend
End If
Wend
End Sub
hth,
Doug Glancy
"quartz" wrote in message
...
Suppose I have a pair of screen coordinates as follows:
Top = 282.5 and Left = 436.27
How can I obtain the address of the cell that is on or nearest to these
coodinates? (doesn't need to be "exact" just close).
TIA
|