根据今天的日期更改单元格的值

Question

我正在尝试根据今天的日期和在另一列中找到的日期来更改单元格的值。

N 列记录了问题的打开日期，H 列记录了状态（打开、关闭、进行）。

一旦开放日期不再与今天的日期在同一月份，我希望状态更改为进行。

Answer 1

您需要在帖子中添加更多信息。 但是，由于我只知道您的两个标准，因此这段代码应根据 N 列中给出的日期将 H 列设置为“打开”或“关闭”。

Sub Capture()

Dim ws as worksheet
Dim fRow as Long
Dim curDate as Date

Set ws = ThisWorkbook.Worksheets(“YourSheet”)
curDate = Now()

with ws
  fRow = .Cells(.Rows.Count,13).end(xlUp).Row
End with

For i = 1 to fRow
With ws
    If .Cells(i, 13).Value > curDate Then
      .Cells(i, 8).Value = “Closed”
    Else
      .Cells(i, 8).Value = “Open”
  End if
End with
End sub