使用excel vba /条件格式设置2个提醒日期

Sub SetReminderDates()
    Dim rng As Range
    Dim cell As Range
    
    '选择要设置条件格式的单元格范围
    Set rng = Range("A1:A10") '这里选择的是A1到A10的单元格范围，根据实际情况进行修改
    
    '循环遍历每个单元格
    For Each cell In rng
        '设置第一个提醒日期的条件格式
        With cell.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=TODAY()+7")
            .Interior.Color = RGB(255, 0, 0) '设置背景色为红色
            .Font.Color = RGB(255, 255, 255) '设置字体颜色为白色
        End With
        
        '设置第二个提醒日期的条件格式
        With cell.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=TODAY()+3")
            .Interior.Color = RGB(255, 255, 0) '设置背景色为黄色
            .Font.Color = RGB(0, 0, 0) '设置字体颜色为黑色
        End With
    Next cell
End Sub