我确实从你们身上学到了很多,但我无法弄清楚下面的代码。 基本上我有一个带有日期的范围(在第15行),代码需要循环通过这个并突出显示日期介于E25和E26之间的单元格,然后是F25和F26之间的日期,依此类推。优选地,这也是范围。
Dim rng As Range, cell As Range
Set rng = Range("E25:MK25")
For Each cell In rng
Rows("15:15").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="E$25", Formula2:="E$26" Selection.Format
Conditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False
Next cell
Application.ScreenUpdating = True
End Sub