VBA中For Each循环嵌套多If函数失效问题求助

你的问题核心在于：单个工作表的事件无法响应工作簿级的「另存为（Save As）」操作，必须借助工作簿级的BeforeSave事件来实现全局校验，同时用For Each Worksheet循环批量检查所有工作表。

具体实现步骤 #

1. 打开VBA编辑器（按Alt+F11），双击左侧工程窗口中的ThisWorkbook模块。
2. 粘贴以下代码，根据实际需求修改校验的单元格地址：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    Dim targetCell As Range
    
    ' 仅在用户执行「另存为」时触发校验（若需每次保存都校验，可删除此判断）
    If SaveAsUI Then
        For Each ws In ThisWorkbook.Worksheets
            ' 替换为你需要校验的单元格地址，比如每个工作表的B2单元格
            Set targetCell = ws.Range("B2")
            
            If IsEmpty(targetCell.Value) Or targetCell.Value = "" Then
                MsgBox "设备工作表 '" & ws.Name & "' 的必填项未填写，请完成后再保存。", vbExclamation, "校验失败"
                Cancel = True ' 取消「另存为」操作
                targetCell.Activate ' 自动定位到未填写的单元格
                Exit Sub ' 终止循环，避免重复弹出提示
            End If
        Next ws
    End If
End Sub

关键注意事项 #

• 代码位置必须正确：代码必须放在ThisWorkbook模块中，而非普通标准模块或单个工作表模块，否则无法响应工作簿级的保存事件。
• 灵活调整校验逻辑：
  • 若需要跳过第一个工作表（保留原单独代码的逻辑），可在循环内添加判断：If ws.Name <> "Sheet1" Then（替换为你的第一个工作表名称）。
  • 若需校验多个单元格，可扩展判断条件，比如If IsEmpty(ws.Range("B2")) Or IsEmpty(ws.Range("C3")) Then。
• 区分Save和Save As：代码中的SaveAsUI参数为True时表示用户触发的是「另存为」操作，若需要每次保存（包括普通保存）都校验，直接删除If SaveAsUI Then和对应的End If即可。

为什么之前的循环失效？ #

如果你的循环代码写在单个工作表模块中，只有当该工作表处于激活状态时，对应的工作表事件才会触发；而「另存为」是针对整个工作簿的操作，不会触发单个工作表的事件，因此必须使用工作簿级的BeforeSave事件来实现全局校验。

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