Como fazer as coordenadas X e Y aparecer em A1 e A2

Question

Bom dia, gostaria de saber como fazer as coordenadas X aparecer em A1 e Y aparecer em A2

Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
     
Type PointAPI
 
X_Pos As Long
Y_Pos As Long
 
End Type
Sub Get_Cursor_Pos()
 
Dim Hold As PointAPI
 
GetCursorPos Hold
 
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & "Y Position is : " & Hold.Y_Pos
 
End Sub

Answer 1

Olá ArtesF

Basta você alterar o método Get_Cursor_Pos para:

Sub Get_Cursor_Pos()
 
  Dim Hold As PointAPI
  GetCursorPos Hold
  Range("A1").Value = Hold.X_Pos
  Range("A2").Value = Hold.Y_Pos
  
End Sub

O "problema" agora é você definir quando isso vai acontecer, pois o Excel não reconhece os eventos de mouse.

Mas você poderia testar colocando esse mesmo trecho dentro do evento SelectionChange por exemplo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Hold As PointAPI
    GetCursorPos Hold
    Range("A1").Value = Hold.X_Pos
    Range("A2").Value = Hold.Y_Pos
End Sub

Dessa forma, a cada vês que você alterasse a célula selecionada com o Mouse o valor de x e y serão atualizados.

Abraço!

---

Natan

Answer 2

 Muito obrigado amigo!!