如何将工作表双击事件宏限制在指定列运行？

你原来的代码写法有误，VBA的工作表事件不能直接在事件名称里指定列范围。要实现仅让B、C列的双击触发数值更新，其他列无反应，需要在事件内部判断当前双击的单元格是否在目标列范围内，具体修正代码如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 判断双击单元格是否不在B、C列，是的话直接退出，不执行后续逻辑
    If Intersect(Target, Me.Columns("B:C")) Is Nothing Then
        Exit Sub
    End If
    
    Cancel = True ' 仅在目标列取消默认双击编辑行为
    
    ' 数值更新逻辑保持不变
    If Target.Value < 5 Then
        Target.Value = Target.Value + 1
    Else
        Target.Value = 5
    End If
End Sub

关键说明 #

• 用Intersect(Target, Me.Columns("B:C"))检测双击单元格是否落在B、C列范围内，返回Nothing则说明不在目标列，直接退出事件。
• 仅在确认是目标列时设置Cancel = True，避免影响其他列的正常双击编辑功能。
• 原有的数值递增逻辑保留：双击时数值小于5就加1，达到5后不再变化。

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