如何让指定Excel VBA代码仅在工作簿关闭时运行？

看起来你之前把绑定在Worksheet_Change事件的代码改造成关闭工作簿触发时遇到了问题，同时还想加个手动调用的按钮对吧？我帮你调整代码逻辑，解决失效问题，同时实现两种触发方式。

一、实现关闭工作簿时自动运行 #

要让代码在关闭工作簿前执行，得把逻辑放到ThisWorkbook的Workbook_BeforeClose事件里。和原来的Worksheet_Change只处理当前修改行不同，这里需要遍历所有符合条件的行（第6行及以下，对应你原代码里TestRow>5的判断），重新检查所有相似行的求和情况。

代码实现（放到ThisWorkbook模块） #

打开VBA编辑器（按Alt+F11），双击左侧的ThisWorkbook，然后在右侧的事件下拉框选择BeforeClose，粘贴以下代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim currentSum As Integer
    ' 定义存储匹配列值的变量
    Dim colE As Variant, colF As Variant, colI As Variant, colAP As Variant, colAQ As Variant
    
    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Sheets("Close")
    ' 找到E列（第4列）的最后一行数据，避免遍历空行
    lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row
    
    ' 先重置所有第57列（BE列）的单元格背景色为白色
    ws.Range("BE6:BE" & lastRow).Interior.Color = RGB(255, 255, 255)
    
    ' 遍历每一行数据（从第6行开始）
    For i = 6 To lastRow
        ' 初始化当前行的求和值为自身第57列的值
        currentSum = ws.Cells(i, 57).Value
        ' 获取当前行需要匹配的列值
        colE = ws.Cells(i, 4).Value
        colF = ws.Cells(i, 5).Value
        colI = ws.Cells(i, 8).Value
        colAP = ws.Cells(i, 36).Value
        colAQ = ws.Cells(i, 37).Value
        
        ' 向上遍历之前的行，寻找相似行
        For j = i - 1 To 6 Step -1
            ' 5列值全部匹配才算相似行
            If ws.Cells(j, 4).Value = colE And _
               ws.Cells(j, 5).Value = colF And _
               ws.Cells(j, 8).Value = colI And _
               ws.Cells(j, 36).Value = colAP And _
               ws.Cells(j, 37).Value = colAQ Then
                ' 累加相似行的第57列值
                currentSum = currentSum + ws.Cells(j, 57).Value
            End If
        Next j
        
        ' 判断总和是否小于100，设置红色背景
        If currentSum < 100 Then
            ws.Cells(i, 57).Interior.Color = RGB(255, 0, 0)
        End If
    Next i
End Sub

二、添加按钮手动调用功能 #

为了更灵活，我们可以把核心检查逻辑封装成一个独立的Sub过程，这样不管是关闭事件还是按钮都能调用，代码复用性更好。

1. 封装核心逻辑的独立过程 #

在VBA编辑器里，插入一个新的模块（右键左侧工程窗口→插入→模块），粘贴以下代码：

Sub CheckSimilarRowsAndSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim currentSum As Integer
    Dim colE As Variant, colF As Variant, colI As Variant, colAP As Variant, colAQ As Variant
    
    Set ws = ThisWorkbook.Sheets("Close")
    lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row
    
    ' 重置背景色
    ws.Range("BE6:BE" & lastRow).Interior.Color = RGB(255, 255, 255)
    
    For i = 6 To lastRow
        currentSum = ws.Cells(i, 57).Value
        colE = ws.Cells(i, 4).Value
        colF = ws.Cells(i, 5).Value
        colI = ws.Cells(i, 8).Value
        colAP = ws.Cells(i, 36).Value
        colAQ = ws.Cells(i, 37).Value
        
        For j = i - 1 To 6 Step -1
            If ws.Cells(j, 4).Value = colE And _
               ws.Cells(j, 5).Value = colF And _
               ws.Cells(j, 8).Value = colI And _
               ws.Cells(j, 36).Value = colAP And _
               ws.Cells(j, 37).Value = colAQ Then
                currentSum = currentSum + ws.Cells(j, 57).Value
            End If
        Next j
        
        If currentSum < 100 Then
            ws.Cells(i, 57).Interior.Color = RGB(255, 0, 0)
        End If
    Next i
    
    ' 检查完成后弹出提示
    MsgBox "相似行求和检查完成！已标记总和小于100的单元格。", vbInformation
End Sub

2. 添加按钮绑定宏 #

• 回到Excel界面，点击顶部的开发工具选项卡（如果没显示，可在「文件→选项→自定义功能区」里勾选“开发工具”）
• 点击插入，选择按钮（窗体控件），在工作表合适的位置拖动画出按钮
• 弹出「指定宏」窗口，选择刚才创建的CheckSimilarRowsAndSum，点击确定
• 右键按钮，选择「编辑文字」，把按钮名称改成比如“检查相似行求和”，这样就可以点击按钮手动触发检查了

3. 优化关闭事件代码 #

现在关闭事件可以直接调用这个独立过程，代码更简洁：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    CheckSimilarRowsAndSum
End Sub

三、原代码修改后失效的原因分析 #

你之前修改事件后代码失效，大概率是这几个原因：

• 代码位置错误：Workbook_BeforeClose事件必须放在ThisWorkbook模块里，不能放在工作表模块
• 逻辑不匹配：原代码只处理当前修改的行（依赖Target.Row），改成关闭事件后需要遍历所有行，原逻辑不适用
• 变量未声明：原代码里的EColumnValue等变量没有用Dim声明，可能导致运行时错误（建议开启Option Explicit强制变量声明，避免这类问题）

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