如何在vba中用SetCursorPos移动光标?

api函数SetCursorPos可以设置光标的坐标,从而实现移动光标到指定的屏幕坐标上。

它的语法如下

BOOL WINAPI SetCursorPos(
  _In_ int X,
  _In_ int Y
);

其中X、Y参数分别是光标的新的X、Y屏幕坐标。

如下代码可以把光标移动到指定的屏幕坐标上。

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub QQ1722187970()
 Sleep 1000
 x = Sheet1.Range("A1")
 y = Sheet1.Range("b1")
 SetCursorPos x, y
End Sub

 

       

发表评论