Апострофф, подскажите - как две проверки в один код совместить, чтобы не писать два раза For Each c In [E6:R28] ?
[vba]Код
Sub Макрос4()
Dim c As Range
For Each c In [E6:R28]
If c = 0.5 Then
With c.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 45
With .Gradient.ColorStops
.Clear
.Add(0).Color = vbWhite
.Add(1).ThemeColor = xlThemeColorDark2
.Add(1).TintAndShade = -0.250984221930601
End With
End With
End If
Next
For Each c In [E6:R28]
If c = 1 Then
With c.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 45
With .Gradient.ColorStops
.Clear
.Add(0).Color = vbWhite
.Add(1).Color = 65535
End With
End With
End If
Next
End Sub
[/vba]