为什么VBA双击突然停止工作？答案

【问题标题】：Why VBA doubleclick stopped working suddenly?为什么VBA双击突然停止工作？
【发布时间】：2019-10-15 18:55:24
【问题描述】：

下面这段代码突然停止工作，请帮忙？

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

On Error Resume Next
If Target.Column = 2 And Target.Row > 27 And Target.Row < 70 Then
        UserForm1.Show
        Target.Value = returnvalue
        Cancel = True
    End If
End Sub

【问题讨论】：

欢迎来到 StackOverflow Sam。停止工作对我们来说是不够的。有错误吗？哪一行导致错误？错误信息是什么？
您遇到的错误是什么？
用户表单在单元格 B28 到 B69 的 doubleClick 上不显示
删除“on error resume next”然后你得到什么错误？
如果什么也没发生，那么检查事件是否已启用是值得的。使用 VBA 编辑器中的即时窗口键入“Debug.Print Application.EnableEvents”。如果它返回 False，那么您将需要输入“Application.EnableEvents = True”，它应该会重新开始工作。

标签： excel vba

【解决方案1】：

感谢大家的帮助。我正在使用字典来填充表单初始化块中的列表框。用于构建字典的范围有重复，导致代码失败。更新代码以处理重复项解决了我的问题。

【讨论】：