不好意思问一个比较菜的问题：excel vba中，如何判断连续两次同击一个单位格？如您再次单击xx单元格。谢

是计算得票用的，点一次记1票，重复点击提示“XXX又的一票”，我需要的是代码，感谢各位的回答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [a1]) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
If Target.Offset(0, 1) > 1 Then
n = MsgBox("你重复点击了！是否取消本次点击记录？", vbYesNo)
If n = vbYes Then
Target.Offset(0, 1) = 0
End If
End If
End If
End Sub
通过判断目标单元格旁边的数字来进行控制，测试下。

不知道你问的是什么意思，要用在哪里？ 系统有默认有 单击 或者双击 单元格 这样的事件过程 你可以把你要做的事情放在那个事件过程里就可以了……

我运行到11518行都没有问题呀，但最好加一句 application.screenupdating = true