Excel必填行校验问题：填写完整仍触发弹窗及优化需求

原代码问题分析 #

原代码的核心错误是判断多单元格为空的语法完全错误：Cells(3, 1)(3, 2)...(3, 15).Value = ""这种写法不符合VBA语法规则，无论单元格是否填写内容，该条件都会被判定为True，导致弹窗误触发。

修正并优化后的代码 #

将以下代码替换原工作簿BeforeClose事件代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim checkRange As Range
    Dim cell As Range
    Dim emptyCells As String
    Dim ws As Worksheet
    
    ' 指定要检查的工作表（根据实际情况修改工作表名称，比如Sheet1）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 定义检查范围：A3到O3
    Set checkRange = ws.Range("A3:O3")
    
    ' 清空之前的高亮格式
    checkRange.Interior.ColorIndex = xlNone
    
    ' 遍历检查每个单元格
    For Each cell In checkRange
        If Trim(cell.Value) = "" Then
            ' 记录空单元格地址
            emptyCells = emptyCells & cell.Address(False, False) & ", "
            ' 高亮空单元格为黄色
            cell.Interior.Color = RGB(255, 255, 0)
        End If
    Next cell
    
    ' 处理空单元格提示逻辑
    If emptyCells <> "" Then
        ' 移除末尾多余的逗号和空格
        emptyCells = Left(emptyCells, Len(emptyCells) - 2)
        MsgBox "以下单元格为必填项，请填写：" & vbCrLf & emptyCells, vbExclamation, "提示"
        Cancel = True ' 取消关闭文档
    Else
        ' 所有必填项已填写，允许关闭
        ThisWorkbook.Save ' 可选：自动保存文档，根据需求调整
    End If
End Sub

代码说明 #

• 指定工作表：修改ws = ThisWorkbook.Worksheets("Sheet1")中的Sheet1为你实际需要检查的工作表名称。
• 范围定义：用Range("A3:O3")直接指定要检查的行，比逐个写Cells更简洁规范。
• 高亮处理：先清除之前的高亮，再给空单元格添加黄色背景，方便用户快速定位。
• 精准提示：收集所有空单元格的地址（如A3,C3），弹窗中明确告知用户需要填写的位置。
• 自动保存（可选）：如果需要用户填写完成后自动保存文档，保留ThisWorkbook.Save；不需要则删除该行。

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