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

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

1 个答案: