如何在vba中用api函数SetCursorPos移动光标? - API

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

2018年2月7日作者：exceloffice

暂无评论

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

它的语法如下

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

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

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

打赏

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。http://www.exceloffice.net/archives/819

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

发表评论取消回复

扫一扫下面的二维码图案，加我微信

近期文章

功能

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

发表评论 取消回复

扫一扫下面的二维码图案，加我微信

关键字

近期文章

功能

发表评论取消回复