Question

求好心人帮助，请问用excel vba计算鼠标左键的点击数？

求好心人帮助，请问用excel vba设计一个游戏，如何在开始游戏的时候就计算玩家用了多少步骤来完成游戏，也就是计算游戏开始后，在游戏里面鼠标左键的点击数？

Answer 1

这个太简单，但是需要用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

追问

兄弟，怎么我尝试的时候有问题呢？还想请教一下能不能不用窗体来实现这一功能？

追答

也可以在Excel表中计算点击的次数
你尝试有错误，可以是你没有先对按钮，你要在控制工具箱中选择commandbutton这个控件是“命令按钮“
在表1中点击，然后计算次数代码:
Dim i As Integer
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 1 And Target.Column >= 1 Then
Cancel = True
i = i + 1
End If
Sheets(1).Cells(1, 1).Value = "共点击了" & i & " 次右键"
End Sub

追问

你好，我想是我水平太低了，不理解你第二次回答的内容。你第一次回答的内容是不是左右键设置错了呢？因为我点击左键的时候，输出的是右键的点击数。还有就是计算出来的点击数和我点击的数是不同的。请为我解答一下，万分感谢。

追答

第二次的代码,你要点击Excel菜单栏上的工具,然后选择宏在选择Visual Basic编绎器,点开VBE窗口后,在窗口的左边,双击sheet1(sheet1)这个表,然后就会弹出他的代码编写窗口,你在把上面的代码复制进去,关掉代码窗口,然后在excel表1中点击鼠标右键就能看到点击的次数