有关合同到期提醒问题，麻烦帮忙修改一下代码

sulli112

我明明设置了当到期日等于今天就标橙色提醒，当到快到到期日前四天，就粉色提醒，为啥我一操作，只要日等于今天的日都会提醒，不管是哪个月份

1. Sub 到期提醒()
   
2. For i = 3 To Range("b65526").End(xlUp).Row
   
3.     If Cells(i, "i") <> "" Then
   
4.         Cells(i, "i").Select
   
5.         If Day(Cells(i, "i")) = Day(Now()) Then
   
6.             MsgBox Cells(i, "e") & "今日到期"
   
7.             Rows(i).Interior.ColorIndex = 45
   
8.         End If
   
9.         If Cells(i, "i") - Now() > 0 And Cells(i, "i") - Now() < 10 Then
   
10.             MsgBox Cells(i, "e") & "" & Day(Cells(i, "i")) - Day(Now()) & "天内到期"
    
11.             Rows(i).Interior.ColorIndex = 38 '粉色
    
12.         End If
    
13.     End If
    
14. Next
    
15. End Sub

复制代码

zxsea_7426

你光判断日期，没有判断月份

洋务德雷

你只计算了天，没有计算月份和年份。

ExcelHomeFM

Sub 到期提醒()
      cells.interior.color = xlNone   去掉全部填充色
      你的代码
End Sub

ExcelHomeFM

ExcelHomeFM 发表于 2023-3-9 00:15
Sub 到期提醒()
      cells.interior.color = xlNone   去掉全部填充色
      你的代码

添加判断年月日

xunanming

请楼主参考......

sulli112

zxsea_7426 发表于 2023-3-8 23:20
你光判断日期，没有判断月份

那请问一下要怎么修改呢

sulli112

洋务德雷 发表于 2023-3-8 23:24
你只计算了天，没有计算月份和年份。

那请问要怎么修改呢，把day改成用哪个呢

sulli112

ExcelHomeFM 发表于 2023-3-9 00:15
Sub 到期提醒()
      cells.interior.color = xlNone   去掉全部填充色
      你的代码

删掉，可是我想有颜色提醒，我看了楼上评论，是说我判断的只有天，而不是年月份都判断了

zxsea_7426

sulli112 发表于 2023-3-9 07:04
删掉，可是我想有颜色提醒，我看了楼上评论，是说我判断的只有天，而不是年月份都判断了

这是在你的代码之前先清空原来的颜色设置，然后在进行过滤，符合条件的着色