0

日付が今日から 15 日より古いセルをフォーマットする VBA コードがあります。一部のセルでは機能しますが、他のセルでは機能しません。また、15 日未満の古いセルを強調表示します。

Range("C:C").Select  
Application.CutCopyMode = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=TODAY()-C2>15"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Application.CutCopyMode = False
4

1 に答える 1