VBA中Worksheet_BeforeDoubleClick的Elseif逻辑返回结果异常求助

你的代码逻辑存在错误：当前是判断双击单元格的值是否等于F6/F9/F12的值，而非判断是否双击了F6/F9/F12这些单元格本身。如果多个单元格值相同，或者双击其他值与F6一致的单元格，都会触发第一个条件，完全不符合你“双击对应单元格触发Sub”的需求。

修正方案一：用地址匹配判断 #

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅处理单个单元格双击
    If Target.Cells.Count > 1 Then Exit Sub
    
    Select Case Target.Address(False, False) ' 使用相对地址判断
        Case "F6"
            Call Main_Facture
            Cancel = True ' 取消双击进入编辑模式的默认行为
        Case "F9"
            MsgBox "Programme en cours de création"
            Cancel = True
        Case "F12"
            MsgBox "Programme en cours de création"
            Cancel = True
        Case Else
            Exit Sub
    End Select
End Sub

修正方案二：用Intersect判断单元格范围 #

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅处理单个单元格双击
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Me.Range("F6")) Is Nothing Then
        Call Main_Facture
        Cancel = True
    ElseIf Not Intersect(Target, Me.Range("F9")) Is Nothing Then
        MsgBox "Programme en cours de création"
        Cancel = True
    ElseIf Not Intersect(Target, Me.Range("F12")) Is Nothing Then
        MsgBox "Programme en cours de création"
        Cancel = True
    End If
End Sub

关键优化点 #

• 增加Target.Cells.Count > 1判断：避免选中多个单元格双击时误触发
• 添加Cancel = True：取消双击默认的单元格编辑状态，提升操作体验
• 核心逻辑从值匹配改为位置匹配：精准对应“双击指定单元格触发对应Sub”的需求

内容的提问来源于stack exchange，提问作者Kim Lelouch