Excel VBA代码修改求助：多列单元格值超60时弹出警告

原代码存在以下几个关键问题：

• 直接将整列对象Range("O:O")与数值60比较，VBA无法直接识别这种整列范围的条件判断，必须通过函数或循环来检查是否存在符合条件的单元格。
• 未覆盖需要检查的所有目标列（O、X、AG、AP、AY）。
• 变量Response未声明，且逻辑分支存在潜在的未定义风险。

修正后的代码 #

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim targetSheet As Worksheet
    Dim checkColumns As Variant
    Dim col As Variant
    Dim hasOver60 As Boolean
    
    ' 设置目标工作表和需要检查的列
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    checkColumns = Array("O:O", "X:X", "AG:AG", "AP:AP", "AY:AY")
    
    ' 遍历所有目标列，检查是否存在值大于60的单元格
    For Each col In checkColumns
        If WorksheetFunction.CountIf(targetSheet.Range(col), ">60") > 0 Then
            hasOver60 = True
            Exit For ' 找到符合条件的单元格后提前退出循环
        End If
    Next col
    
    ' 如果存在符合条件的单元格，弹出提示框
    If hasOver60 Then
        Select Case MsgBox("WARNING! 存在值大于60的单元格", vbOKCancel + vbExclamation, "警告")
            Case vbCancel
                Cancel = True ' 用户点击取消，阻止工作簿关闭
            Case vbOK
                ' 用户点击确定，允许关闭
        End Select
    End If
End Sub

代码说明 #

• Option Explicit：强制声明所有变量，避免因变量名拼写错误导致的隐性错误。
• checkColumns数组：集中存放需要检查的列范围，方便维护和修改。
• WorksheetFunction.CountIf：高效统计指定列中值大于60的单元格数量，只要数量大于0就说明存在符合条件的单元格。
• Select Case替代单独的If判断，让逻辑更清晰，同时避免Response变量未定义的问题。
• 遍历列时一旦找到符合条件的单元格就退出循环，提升执行效率。

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