Excel VBA -- 需要帮助使用 for 循环、if 语句和消息框构造一行代码

Question

我需要帮助来构建一个基本上会显示一个消息框的代码，该消息框将充当各种错误消息或通知消息。这是我想的一个示例代码，我知道它会起作用，但不完全是我正在寻找的输出

lr = Sheet1.Cells(Rows.Count, 1).End(xlUP).Row

for a = 1 to lr
   if Sheet1.Cells(a,1) = Date then 
      ` A whole new set of codes here that's not really an issue so i'll save time and just skip writing it down

   else MsgBox "No Data for Today!"
   end if
next a

我知道这会起作用并显示一个带有“今天没有数据！”字样的 msgbox，但问题是，每次 for 循环进行另一遍时，它都会再次显示 msgbox。我想要发生的是它应该只显示 msgbox ONCE 并且只有在它检查了所有单元格并验证这些单元格上的数据不等于当前日期之后。

任何帮助将不胜感激。 :)

编辑：

只是对我想要实现的目标的简要说明。所以基本上，我提供的代码会检查 A 列的每一行，以确定其中的数据是否等于当前日期？所以我想要发生的是，我不想检查该范围内的所有单元格并显示一个 MsgBox 如果该范围内的单元格没有等于当前日期，并且如果它们等于当前日期，那么它不应该显示 MsgBox。我尝试从@JGreenwell 运行下面的代码，如果单元格范围内的所有数据不等于当前日期，它确实显示了正确的 MsgBox，但是，如果我在等于当前日期的范围内添加数据，即使至少有一个数据等于当前日期，它仍会显示 msgbox。

我希望这比我原来的问题更清楚。我真的很感谢你们告诉我的所有提示/建议/帮助。 :)

Dim dataFlag As Boolean
dataFlag = False 'create and set boolean type flag

for a = 1 to lr
    if Sheet1.Cells(a,1) = Date then
        ' A whole new set of codes here that's not really an issue so i'll save time and just skip writing it down

    else 
        dataFlag = True
    end if
next a

If dataFlag Then
    MsgBox "No Data for Today!"
End If

Answer 1

lr = Sheet1.Cells(Rows.Count, 1).End(xlUP).Row

for a = 1 to lr
   if Sheet1.Cells(a,1) = Date then
      ` A whole new set of codes here that's not really an issue so i'll save time and just skip writing it down

   else 
       UnFound = 1
   end if
next a
If UnFound = 1 Then MsgBox "No Data for Today!"

Answer 2

您可以设置一个标志，如果设置了标志，则只显示消息。

Dim dataFlag As Boolean
dataFlag = False 'create and set boolean type flag

for a = 1 to lr
    if Sheet1.Cells(a,1) = Date then
        ' A whole new set of codes here that's not really an issue so i'll save time and just skip writing it down

    else 
        dataFlag = True
    end if
next a

If dataFlag Then
    MsgBox "No Data for Today!"
End If

---

标志是一种标准的编程实践，它允许条件与算法（指令集）关联。对于您的情况，可以使用简单的 Boolean 类型，但这也可以与其他 数据结构 和/或多个 条件 结合使用：例如设置标志到几个值之一，并根据标志包含的值采取不同的操作。