Question

请教Excel VBA高手，如何禁止双击单元格的时候也触发Worksheet_Change事件？

双击单元格并不会导致数据改变，但也触发了此事件，不仅造成了多余的执行，性能下降，而且会引发其他初始化相关的问题。
所以想请教下如果在判断区分是真正的内容改变还是双击了鼠标。

Answer 1

用户为什么要双击单元格？我认为，双击单元格目的是为了输入或者修改，也就是change。

把双击单元格的功能屏蔽就可以解决问题。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

如果觉得这方法不够好。那就在双击时保存单元格的值到变量，然后再worksheet_change时做判断，这样就比较绕了。

追问

屏蔽双击倒不失为一个办法，不过还是造成了一定的不便。后面那种，必须维护一个类似字典的数据集，我觉得不太可靠。

追答

双击单元格不等于change，要看用户后续的操作，如果按ESC，那就没有change，否则都是change。

Answer 2

 Dim aa As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    aa = True
    '你的代码
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If aa = True Then aa = False: Exit Sub
    '你的代码
End Sub

Answer 3

使用 application.EnableEvents=False 禁止触发事件

追问

这不是把所有时间都屏蔽了么？

追答

可以用禁止触发分开设置

双击时关闭
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
End Sub

表变化时候打开
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True

End Sub

追问

试过了不行，EnableEvents = false时Worksheet_Change也不会触发。

追答

再加上下面这句, 保存关闭你的excel，然后重新打开，再试试看，我自己操作成功了

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True

End Sub

追问

我是这样写的，但测试不成功，你试试呢？

追答

的确有问题，一旦关闭，就无法触发change

追问

但我的需求还是很合理的啊，双击感觉就不应该触发change，难道就没法解决这个问题？