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

答案:3 悬赏:40 手机版

解决时间 2021-02-22 06:55

提问者网友：你挡着我发光了
2021-02-21 12:07

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

最佳答案

五星知识达人网友：duile
2021-02-21 12:51

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
通过判断目标单元格旁边的数字来进行控制，测试下。

全部回答

1楼网友：北城痞子
2021-02-21 14:46

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

2楼网友：拾荒鲤
2021-02-21 14:25

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息