连续查找今天日期的宏

Question

我是 VBA 新手，所以请放轻松。我正在尝试连续运行一个宏（特别是第 4 行）以查找今天的日期，但我在网上找到的所有内容都特定于列。我试图自己创建一个，但它只是不工作。我有一些代码，但由于完全缺乏功能而将其删除。任何帮助将不胜感激。

Answer 1

• 启动宏记录器。
• 选择第 4 行
• 按 Ctrl-F 打开“查找”对话框
• 输入今天的日期并点击确定
• 当日期突出显示时，停止宏记录器。

现在编辑代码。声明一个变量并将其设置为今天的日期

Dim myDate As Date
myDate = Date

现在在代码中使用变量 myDate 代替带有今天日期的字符串。

Sub Macro1()
'
' Macro1 Macro
'
Dim myDate As Date
myDate = Date

'
Rows("4:4").Select
Selection.Find(What:=myDate, After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
End Sub