vba 控制鼠标移动 绝对坐标

VBA (Visual Basic for Applications) 是一种用于Microsoft Office应用程序的宏语言，包括Excel、Word等。如果你想通过VBA控制Excel工作簿中的鼠标移动到绝对坐标，你可以使用`Application.CutCopyMode = False` 首先禁用剪切模式，然后使用 `ActiveSheet.Range("A1").Select` 或者 `ActiveSheet.Cells(x, y).Select` 来选择指定单元格，其中 `(x, y)` 是你想移动到的绝对行号和列号。

例如：

Sub MoveMouseToAbsoluteCoord()
    Application.CutCopyMode = False ' 禁止剪切模式
    Range("A1").Select ' 移动到A1
    MouseMove X:=100, Y:=200 ' 使用MouseMove方法移动鼠标到绝对位置 (100, 200)
End Sub

这里`MouseMove`不是VBA内置函数，你需要模拟鼠标的移动，可以使用`SendKeys`函数配合数字键盘输入相对坐标转换成绝对坐标的计算，比如先移动到左上角(0, 0)，然后加上目标坐标：

Sub MoveMouseToAbsoluteCoord(SheetName As String, Row As Long, Col As Long)
    Application.CutCopyMode = False
    ActiveWorkbook.Sheets(SheetName).Activate
    Range(Cells(Row, Col)).Select
    
    ' 模拟移动鼠标
    SendKeys "%{HOME}" ' 移动到左上角
    SendKeys CStr(Col + 1) & "{DOWN}" ' 向下移动到当前列
    SendKeys CStr(Row + 1) & "{RIGHT}" ' 向右移动到当前行
End Sub