Może to makro wyglądać tak, ale excel ma wbudowaną tą funkcję na pasku: Format\Rormatowanie warunkowe.
Sub rormatowanie_warunkowe()
Range("A1:IV65536").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="5"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
Application.ScreenUpdating = True
Range("A1").Select
End Sub |