Excel时间提醒

发布网友发布时间：2024-02-03 07:09

共2个回答

热心网友时间：2024-12-04 04:17

我是用日期进行比较后符合条件就用不同颜色标记出来。
写在Workbook_Open事件里面，并在Workbook_BeforeClose清除颜色标记。另外，在处理完成相应事件后，也要刻清除颜色标记。
Private Sub Workbook_Open()
For i = 2 To Range("a65536").End(xlUp).Row
If Cells(i, 5).Value = "授权¨" Then
If Cells(i, 10).Value - DateSerial(Year(Date), Month(Date), Day(Date)) < 60 Then ‘设定小于60天用*
Range(Cells(i, 1), Cells(i, 11)).Interior.ColorIndex = 44
If Cells(i, 10).Value - DateSerial(Year(Date), Month(Date), Day(Date)) < 30 Then '小于30天则是红色
Range(Cells(i, 1), Cells(i, 11)).Interior.ColorIndex = 3
End If
Else
Rows(i).Interior.ColorIndex = xlNone ’不符合条件就无底色
End If
End If
Next i
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 2 To Range("a65536").End(xlUp).Row
If Rows(i).Interior.ColorIndex <> xlNone Then
Rows(i).Interior.ColorIndex = xlNone
End If
Next i
End Sub追问可以用图文解说吗？太复杂了谢谢

热心网友时间：2024-12-04 04:18

假定两个时间分别在A1和B1，选定B1，格式——条件格式，条件1，公式，输入=datedif(today(),b1)<=10，格式，颜色。当时间离2013－12－10还有10天内时，B1单元格变成设定的颜色。