VBA：将双击识别为两次单击，避免触发单元格编辑模式

这个问题我之前也碰到过，本质是快速双击时，第一次点击触发SelectionChange跳回A1后，第二次点击要么触发A1的双击编辑事件，要么鼠标还停在C3上触发了双击但默认会进入编辑模式。给你两个实用的解决方案：

方案1：精准拦截双击事件 #

直接在工作表的事件里做判断，既取消编辑模式，又让双击C3也能正常触发功能：

' 处理单次点击逻辑
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        ' 替换成你实际的目标函数名称
        YourTargetFunction
        Range("A1").Select
    End If
End Sub

' 拦截双击事件，避免编辑模式并处理连续点击
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 如果双击的是功能单元格C3
    If Target.Address = "$C$3" Then
        Cancel = True ' 取消默认的编辑行为
        YourTargetFunction ' 再次执行功能
        Range("A1").Select ' 回到中性单元格
    ' 如果双击的是中性单元格A1，直接取消编辑
    ElseIf Target.Address = "$A$1" Then
        Cancel = True
    End If
End Sub

方案2：时间间隔判断（适配极端快速点击） #

如果你的点击速度快到系统都来不及依次处理SelectionChange事件，可以加个时间戳判断，确保每一次连续点击都能被识别：

' 记录上次点击时间的模块级变量
Private lastClickTime As Date

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        ' 判断是否是200毫秒内的连续点击（可根据需求调整时长）
        If Now() - lastClickTime < TimeValue("00:00:00.2") Then
            YourTargetFunction
        Else
            YourTargetFunction
        End If
        ' 更新上次点击时间
        lastClickTime = Now()
        Range("A1").Select
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 全局取消双击编辑，避免任何单元格进入编辑模式
    Cancel = True
    ' 如果双击的是C3，执行功能并返回A1
    If Target.Address = "$C$3" Then
        YourTargetFunction
        Range("A1").Select
    End If
End Sub

原理说明 #

• 方案1通过拦截BeforeDoubleClick事件，直接取消默认的编辑行为，同时让双击C3也能触发功能，完美解决你提到的「第二次点击被取消」的问题。
• 方案2额外增加时间戳判断，就算点击速度快到系统把两次点击识别成连续事件，也能确保每次点击都执行功能，同时全局取消双击编辑，彻底避免A1进入编辑模式。

记得把代码里的YourTargetFunction替换成你实际使用的函数名称哦！

内容的提问来源于stack exchange，提问作者E. Villiger