vba - 关于在工作簿中搜索特定日期并在该日期之前设置预先通知？

Question

有一个包含许多数据的工作簿，H 列是日期

我想通过点击按钮搜索，系统自动根据“今天”，选择“一个月后”的日子，例如现在是11/26/2013，点击按钮，系统会选择日期的数据2013 年 12 月 26 日，然后抽出一条消息。

这是我的代码，我只想将今天的“day”存储到变量中并开始搜索

Sub Macro1()
'
Dim oldDate As Date
Dim oldDay As Integer
' Assign a date using standard short format.
oldDate = 2 / 12 / 1969
oldDay = Microsoft.VisualBasic.DateAndTime.Day(oldDate)
' oldDay now contains 12.

    Selection.Formula = ""
    Range("H1").Select
    Sheets("Pipeline").Select
    Cells.Find(What:=oldDay, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

系统说物体错过了。

请帮忙

Answer 1

我不确定这是否是您想要的，但请尝试一下

Sub Main()

    Dim cell As Range
    For Each cell In Range("H1:H" & Range("H" & Rows.Count).End(xlUp).Row)
        If cell = DateAdd("m", 1, Left(Now, 10)) Then
            MsgBox "Cell matches 1 month from today at " & cell.Address
        End If
    Next

End Sub