[分享]一个可实时显示鼠标坐标的文件

大灰狼1976

我也发一个，很久之前网上找来的

1. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
   
2. Private Type POINTAPI
   
3. X As Long
   
4. Y As Long
   
5. End Type
   
6. 
   
7. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
8. Dim dl As Long
   
9. Dim MyPoint As POINTAPI
   
10. lihun:
    
11. dl& = GetCursorPos(MyPoint)
    
12. [a1] = Str(MyPoint.X)
    
13. [b1] = Str(MyPoint.Y)
    
14. DoEvents
    
15. GoTo lihun
    
16. End Sub

复制代码