请问高手 怎么让到期提醒这一列根据条件变颜色

qwer121381

请教大神，怎么让到期提醒这一列根据日期和现在时间相比进行到期提醒，显示为到期或者未到期，并设置一个颜色？且  如果实际完成情况这一列填写了 已完成，则到期提醒就为空白，谢谢解答！

2801959927

1. Option Explicit
   
2. Sub Main()
   
3.     Application.ScreenUpdating = False
   
4.     Dim arr, brr, crr()
   
5.     Dim i As Integer
   
6.     arr = Range("H8", Range("H8").End(xlDown))
   
7.     brr = Range("N8", "N" & Range("H8").End(xlDown).Row)
   
8.     ReDim crr(1 To UBound(arr), 1 To 1)
   
9.     Range("M8").Resize(UBound(crr), 1).Clear
   
10.     For i = 1 To UBound(arr)
    
11.         If (Date >= arr(i, 1)) And (brr(i, 1) <> "已完成") Then
    
12.             crr(i, 1) = "已到期"
    
13.             Range("M" & CStr(i + 7)).Interior.Color = 255
    
14.         End If
    
15.     Next i
    
16.     Range("M8").Resize(UBound(crr), 1) = crr
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

ykcbf1100

大致就这个意思了吧。

mmwwdd

ykcbf1100 发表于 2023-2-14 10:12
大致就这个意思了吧。

哥们,给你提个建议,你那个截图别用黑背景,看不清楚

ykcbf1100

mmwwdd 发表于 2023-2-14 11:02
哥们,给你提个建议,你那个截图别用黑背景,看不清楚

我这里很清楚啊。