如何简化Excel中关联按钮的VBA列值减法重复代码？

针对你重复的按钮触发VBA过程，提供两种简化方案：

方案一：通用子过程封装逻辑 #

将核心计算逻辑封装成一个通用过程，原按钮对应的子过程仅需调用该通用过程，减少重复代码量：

' 通用处理过程，接收目标行号作为参数
Sub UpdateFValue(rowNum As Integer)
    Range("F" & rowNum).Value = Range("F" & rowNum).Value - Range("N" & rowNum).Value
End Sub

' 各按钮对应的简化调用过程
Sub G5ELIMINA()
    UpdateFValue 5
End Sub

Sub G6ELIMINA()
    UpdateFValue 6
End Sub

Sub G7ELIMINA()
    UpdateFValue 7
End Sub

Sub G8ELIMINA()
    UpdateFValue 8
End Sub

Sub G9ELIMINA()
    UpdateFValue 9
End Sub

Sub G10ELIMINA()
    UpdateFValue 10
End Sub

优势：核心逻辑集中维护，后续修改计算规则时只需调整UpdateFValue过程，无需逐个修改按钮对应的子过程。

方案二：单过程处理所有按钮 #

利用按钮命名规则（G[行号]ELIMINA），通过Application.Caller获取触发按钮的名称，自动提取行号执行计算，仅需一个子过程即可对应所有按钮：

Sub GELIMINA()
    Dim callerName As String
    Dim rowNum As Integer
    
    ' 获取触发当前过程的控件名称
    callerName = Application.Caller
    ' 从名称中提取行号（如从"G5ELIMINA"中提取5）
    rowNum = Val(Mid(callerName, 2, Len(callerName) - 8))
    
    ' 执行计算
    Range("F" & rowNum).Value = Range("F" & rowNum).Value - Range("N" & rowNum).Value
End Sub

优化版（含错误处理） #

添加错误处理，避免按钮命名不规范或单元格非数值导致的报错：

Sub GELIMINA()
    Dim callerName As String
    Dim rowNum As Integer
    
    On Error GoTo ErrorHandler
    
    callerName = Application.Caller
    rowNum = Val(Mid(callerName, 2, Len(callerName) - 8))
    
    ' 校验行号有效性及单元格数值类型
    If rowNum >= 5 And rowNum <= 10 And IsNumeric(Range("F" & rowNum).Value) And IsNumeric(Range("N" & rowNum).Value) Then
        Range("F" & rowNum).Value = Range("F" & rowNum).Value - Range("N" & rowNum).Value
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "处理出错，请检查按钮命名或单元格数值", vbExclamation
End Sub

优势：彻底消除重复子过程，所有按钮只需绑定这一个过程即可，维护成本最低。需确保按钮名称严格遵循G[行号]ELIMINA的格式。

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