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` 

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