根據今天的日期更改單元格的值

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