如何在vba中用api函数SetCursorPos移动光标? - API - ExcelOffice【微信公众号：水星Excel】

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

2018年2月7日作者：水星Excel

2,088 次浏览暂无评论

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

其它相关文章推荐：

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

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

其它相关文章推荐：

发表评论取消回复

感谢你的支持，我将持续地写出更好的文章。

热门文章

微信公众号

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

其它相关文章推荐：

发表评论 取消回复

感谢你的支持，我将持续地写出更好的文章。

本站精华

热门文章

微信公众号

发表评论取消回复