根据VBA

Question

我在Col K下的日期和时间以及与Col M.下的这些天相对应的某些值（数字）

我有一个代码，如果这些值大于1，并且如果它们在col P中有“等待”文本，则会更改这些值的颜色。

我不知道要做的是，在此代码中添加以下条件：

1. 我想确定这些日子是否属于星期天。

2. 如果是，那么我想检查一下周日时间（假设日期/时间格式是“15/1/2016 17:00”所以剩下的星期日剩余时间是0.3天）从Col M中的数字中减去，如果数字仍为> 1，则应以“红色”突出显示。

3. 减法不应影响或出现在当前工作表中。

   Sub Datefilter()
   Dim r As Long
   Dim m As Long
   
   On Error GoTo ExitHere:
   m = Range("M:P").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   Application.ScreenUpdating = False
   For r = 1 To m
   remainingDay = 0
   
   If Weekday(Range("K" & r)) = 1 Then
   
         remainingDay = Round((24 - Format(TimeValue(Range("K" & r)), "h")) / 24, 1)
   
          End If
   If Range("P" & r) = "*waiting*" Then
       If Range("M" & r) - remainingDay >= 1 Then
             Range("M" & r).Cells.Font.ColorIndex = 3
             Else
            Range("M" & r).Cells.Font.ColorIndex = 0
          End If
          End If
   Next r
   ExitHere:
   Application.ScreenUpdating = True
   End Sub