Excel 创建VBA代码，该代码基于一行数据（日期）进行计算，如果日期已过或在2周内，则会弹出一个窗口

第一次来这里。我正在尝试创建一个VBA弹出窗口，该窗口仅在特定工作表上某个特定范围内的日期即将到来（大约2周后）时返回弹出窗口/警告。这有一个模板或起点吗

我已经到了打开工作簿时弹出窗口的地步，但不知道如何应用查看日期范围所需的计算/公式

Private Sub Workbook_Open()
    MsgBox "TEST"
End Sub

---

好吧，这对你来说应该是个好的开始。我不是VBA专家。事实上，我对它知之甚少，但这确实适用于我尝试的少数测试用例。我不认为这是正确的处理方法

Sub DateCheck()

    cmpDate = DateAdd("d", -14, Now())

    Range("A1").Select
    ' Set Do loop to stop when an empty cell is reached.
    Do Until IsEmpty(ActiveCell)
        If ActiveCell.Value > cmpDate Then
            MsgBox ActiveCell.Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

---

您可能需要将“A1”更改为范围的开头。这将从A1开始，逐行进行，直到到达没有值的单元格。在每个单元格中，它将当前日期-14天（cmpDate）与单元格中的日期进行比较。如果活动单元格值大于cmpDate，请使用messagebox发送消息。

您是否尝试过在Google或Stackoverflow上搜索这些内容？如何读取工作表中的一系列数据或单元格？你没有给我们提供太多的信息。您是在尝试读取一系列单元格还是仅读取一个单元格？你还应该提供更多关于你尝试过但不起作用的信息。对不起。是的，我已经在谷歌上做了很多搜索，但还没能把搜索结果拼凑起来得到我想要的。我试图读取一系列单元格，在本例中是“V:V”，在“跟踪日志”页上。第五列中的数据是日期。我希望设置一个弹出消息，指示第V列中的一个或多个日期与所列日期相差两周。我尝试更改和合并以下内容，但未成功。范围（“V:V”）中每个r的私有子工作簿_Open（）。特殊单元格（xlCellTypeConstants，1）r.ClearComments如果r.Value=Date-14，则为'