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

宏可以连续找到今天的日期

1 个答案: