如何用vba控制鼠标移动和点击

1、首先在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些自己想要的内容。

3、在VBA编辑器中插入模块。

4、在模块当中输入代码，然后运行。

5、这样用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，鼠标已限定在功能区范围移动了。

这个太简单，但是需要用VBa窗体来完成

你用VBa建立一个窗体，然后在窗体中添加一个按钮,然后代码复制好，在窗体里点完后，按下按钮就知道右，左键各点击了多少次了

点开窗体代码写入:

Dim i As Integer

Dim j As Integer

Private Sub CommandButton1_Click()

MsgBox "共点击了" &i &"次右键"

MsgBox "共点击了" &j &"次左键"

i = 0

j = 0

End Sub

Private Sub UserForm_Click()

i = i + 1

End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Button = 2 Then

j = j + 1

End If

End Sub

可以使用VBA事件完成该 *** 作。

alt+F11

打开VBA编辑器

复制粘贴如下代码

回到sheet界面 *** 作即可

如下代码将选择的内容不断的复制到H列。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Endrow As Single

Dim myTarget As Range

Endrow = Cells(65525, 8).End(xlUp).Row

Application.EnableEvents = False

Set myTarget = Target

    myTarget.Copy

    Cells(Endrow + 1, 8).Select

    ActiveSheet.Paste

    Application.EnableEvents = True

End Sub

---