查找今天日期的第一次出现并在上方插入行

Question

以下代码在 D 列中第一次出现的单词 Scheduled 上方插入一行，然后找到第一次出现的单词 Roadblocked 并在其上方插入一行。

当我尝试在 C 列中找到今天日期的第一次出现并在上面插入一行时，它不起作用。

我打算继续查找明天的日期并在上方插入行等代码

Dim cl As Range

Set cl = Range("D:D").Find("Scheduled")
If Not cl Is Nothing Then cl.Select
    ActiveCell.Offset(0).EntireRow.Insert
    ActiveCell.Offset(0, -3).FormulaR1C1 = "SCHEDULED"

Set cl = Range("D:D").Find("Roadblock")
If Not cl Is Nothing Then cl.Select
    ActiveCell.Offset(0).EntireRow.Insert
    ActiveCell.Offset(0, -3).FormulaR1C1 = "ROADBLOCKED"
 
Set cl = Range("C:C").Find([Today()])
If Not cl Is Nothing Then cl.Select
    ActiveCell.Offset(0).EntireRow.Insert
    ActiveCell.Offset(0, -2).FormulaR1C1 = "DUE TODAY"

Answer 1

替换行

Set cl = Range("C:C").Find([Today()])

与

Set cl = Range("C:C").Find(Date)

希望这就足够了。如果不是，请确保您的日期格式匹配。尝试 Debug.Print Date() 查看 VBA 是否与您单元格中的日期格式一致。

查找今天日期的第一次出现并在上方插入行

Find first occurrence of today's date and insert row above

excel

vba

insert

find