Excel列條件格式

Question

我有一個Excel工作表，我需要對其應用一些條件格式，並且對如何執行操作感到困惑。

我需要做的是，如果另一列（E列）中的日期已超過五天，並且如果另一列（第一列）中沒有值，則將一列的值（在我的情況中為G列）設為紅色。

我還需要它，以便在第二個條件列（列I）中添加了一個值時，第一個值（在G列中）恢復為常規黑色。

另一個問題是，即使在保存或運行下面的代碼之前滿足條件格式化的條件下，CF也不會持久存在：

這是我們的“顯示最新的”或折疊代碼：

    Sub Collapse1()
'
' Collapse Macro
' Collapses rows to show only the most recent issuance of each unique Document Number
'

'
    Range("Table1[[#Headers],[Document Number]]").Select
    Cells.FormatConditions.Delete
    Selection.AutoFilter
    Selection.AutoFilter
    ActiveSheet.ListObjects("Table1").Sort. _
        SortFields.Clear
    ActiveSheet.ListObjects("Table1").Sort. _
        SortFields.Add Key:=Range("Table1[Document Number]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveSheet.ListObjects("Table1").Sort. _
        SortFields.Add Key:=Range("Table1[Issuance" & Chr(10) & "Date]"), SortOn:=xlSortOnValues _
        , Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveSheet.ListObjects("Table1"). _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Table1[Document Number]").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=COUNTIF($A$12:A12,A12)>1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("Table1[[#Headers],[Document Number]]").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=RGB _
        (255, 255, 255), Operator:=xlFilterNoFill
End Sub

Answer 1

不同的解釋。 請選擇G列，然后選擇HOME>樣式-條件格式，新規則...， 使用公式來確定要格式化的單元格，並在此公式為true的情況下設置值的 格式 ：

=AND(E1<>"",E1<TODAY()-5,I1="")

格式... ，選擇格式選擇（不是黑色），確定，確定。

這將在整整五天后觸發。