2017-05-27 98 views
-2

在Excel中,我需要評估從當前日期到輸入單元格中的日期是否還有5天,如果爲真,則將該行塗成紅色並生成通知這種情況的警報消息。如何在Excel中的列中提醒即將到來的日期

例如: 今天是25/05/2017

該塔具有的值:

2017年1月6日2017年3月6日 29/06/2017

因此,該計劃必須提醒日期01/06/2017和2017年6月29日。 如果有2個單元格,則警報消息不需要包含每個日期。如果剩餘5天,則會生成2個警報消息。

我將不勝感激任何幫助,我不知道如何在VBA中編程,這對我來說有點複雜!謝謝。

+0

「霸粘貼整行「可以通過條件格式化來實現(所以不一定是VBA)。 – pnuts

回答

0

對於繪畫,最簡單的方法是使用條件格式。添加新規則,用公式:

=AND(A1-Today()<5;A1>=Today()) 

如果您日期將在A列

爲每個從今天起是少於5天可完成日期警報:

For Each cell In Range("A4:A6") 
    If cell.Value - Now < 5 Then 
     MsgBox "Row " & cell.Row & " has less than 5 days" 
     ' optional alterative to conditional formatting for painting 
     cell.Interior.Color = RGB(255, 0, 0) 
    End If 
Next 
+0

非常感謝,它幫助了我。 – frusciante

0

ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 

With ActiveCell 
    If IsDate(.Value) Then 
     If .Value - Now < 5 Then 
      If .Value >= Now Then 
       MsgBox ("Tic-Tac Tic-Tac... time come soon!") 
       Range(.Row & ":" & .Row).Select 
       With Selection.Interior 
        .Color = RGB(255, 0, 0) 
       End With 
      End If 
     End If 
    End If 
End With 

End Sub 
相關問題