动态循环范围，VBA

Posted 2023-03-29

【中文标题】动态循环范围，VBA

【英文标题】：Dynamic Loop Range, VBA

【发布时间】：2020-11-15 15:11:15

【问题描述】：

我正在创建宏 Excel，它将在关闭工作簿之前检查特定范围内是否有空单元格。我有一个问题，范围是动态的，并且我有一个包含我每次要检查的范围的单元格，我如何使用 VBA 中的单元格值作为范围。

这是VBA

Private Sub Workbook_BeforeClose（取消为布尔值） 对于范围内的每个单元格（“A2：E2”） 如果 cell.Value = "" 那么 MsgBox "请填写空白单元格", vbInformation, "警告" 单元格.选择 取消 = 真 退出子 万一 下一个 结束子

Private Sub Workbook_Open()

结束子

---

谢谢

【参考方案1】：

试试这个代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim e, cell As Range
    e = Range("O11").Value
    If IsNumeric(Evaluate("SUM(" & e & ")")) And Not IsNumeric(e) Then
        For Each cell In Range(e)
            If cell.Value = "" Then
                MsgBox "Please, Fill Empty Cells", vbInformation, "Warning"
                cell.Select
                Cancel = True: Exit Sub
            End If
        Next cell
    End If
End Sub