VBA如果单元格值不是当前日期，则在其他单元格上输入文本

Question

我有一个Excel表单，其中按日期排序任务。我想要做的是当一个任务过期，（日期不是当前日期），输入一个“！”在同一行中的其他单元格上签名。

例如：

在其上我有日期的列是列d从D4到D11。

我需要显示感叹号的列是从H4到H11的H列。

干杯！

Answer 1

我认为这应该做你想做的。该循环将继续，直到它到达一个空单元。如果它不适合你，你可以适应它。

`

Sub overdue_date() 

Dim today As Date 
Dim i As Integer 

i = 4 
today = Format(Now, "dd/mm/yyyy") 
With ActiveWorkbook.ActiveSheet 
    While (Not IsEmpty(.Cells(i, 4))) 
     If (.Cells(i, 4) < today) Then 
      .Cells(i, 8) = "!" 
     End If 
     i = i + 1 
    Wend 
End With 
End Sub` 

您可能需要更改日期的格式。