如何让单选按钮或工作表宏用相对引用实现同行单元格增减

问题说明 #

原本尝试用单选按钮绑定单元格实现库存增减失败，转而通过点击E列（填充"+"）和F列（填充"-"）对应行，实现同行D列库存数值加1或减1，但原有代码仅对D2生效，需调整为相对引用以支持E2:E450、F2:F450全范围的对应行操作。

优化后的代码方案 #

直接简化工作表事件逻辑，无需单独宏，代码更高效稳定：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理单个单元格选中的场景
    If Target.Count <> 1 Then Exit Sub
    
    ' 处理E列2-450行的加1操作
    If Not Intersect(Target, Me.Range("E2:E450")) Is Nothing Then
        Me.Cells(Target.Row, "D").Value = Me.Cells(Target.Row, "D").Value + 1
    ' 处理F列2-450行的减1操作
    ElseIf Not Intersect(Target, Me.Range("F2:F450")) Is Nothing Then
        Me.Cells(Target.Row, "D").Value = Me.Cells(Target.Row, "D").Value - 1
    End If
End Sub

关键修改点 #

• 用Target.Row获取当前点击单元格的行号，实现相对引用，替代固定的D2单元格定位
• 直接通过Me.Cells(行号, 列标识)定位同行D列，避免使用Select/Activate（VBA中应尽量避免这类操作，提升代码效率和稳定性）
• 合并条件判断逻辑，同时限定操作范围为E2:E450和F2:F450，避免误触发
• 增加If Target.Count <> 1 Then Exit Sub，防止多选单元格时出现错误

若需保留独立宏用于其他调用场景，可修改为带参数的宏：

Sub AddOne(targetRow As Long)
    Me.Cells(targetRow, "D").Value = Me.Cells(targetRow, "D").Value + 1
End Sub

Sub MinusOne(targetRow As Long)
    Me.Cells(targetRow, "D").Value = Me.Cells(targetRow, "D").Value - 1
End Sub

对应工作表事件代码调整为：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    
    If Not Intersect(Target, Me.Range("E2:E450")) Is Nothing Then
        Call AddOne(Target.Row)
    ElseIf Not Intersect(Target, Me.Range("F2:F450")) Is Nothing Then
        Call MinusOne(Target.Row)
    End If
End Sub

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