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

zxsea_7426 · 发表于 2023-3-9 08:26

sulli112 发表于 2023-3-9 07:02
那请问一下要怎么修改呢

代码第一件事，先清空原来的颜色，第二步才是根据条件上颜色

sulli112 · 发表于 2023-3-9 08:30

xunanming 发表于 2023-3-9 00:40
请楼主参考......

谢谢啦

，非常好用

sulli112 · 发表于 2023-3-9 08:32

zxsea_7426 发表于 2023-3-9 08:26
代码第一件事，先清空原来的颜色，第二步才是根据条件上颜色

太感谢啦，谢谢

sulli112 · 发表于 2023-3-9 09:12

Sub 到期提醒()
With ActiveSheet
.Cells.Interior.Color = xlNone
For i = 3 To .Range("b65526").End(xlUp).Row
If .Cells(i, "i") <> "" Then
If Day(.Cells(i, "i")) = Day(Date) And Month(.Cells(i, "i")) = Month(Date) Then
MsgBox Cells(i, "e") & "今日到期"
Rows(i).Interior.ColorIndex = 45
End If
距离到期的天数 = DateSerial(Year(Date), Month(.Cells(i, "i")), Day(.Cells(i, "i"))) - Date
If 距离到期的天数 > 0 And 距离到期的天数 < 10 Then
MsgBox Cells(i, "e") & "距离" & Day(Cells(i, "i")) - Day(Now()) & "天内到期"
Rows(i).Interior.ColorIndex = 38 '粉色
End If
End If
Next
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

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