Макрос окрашивания яйчеек

[tikara]

Помогите, пожалуйста, написать макрорс, который окрашивает яйчеки со значением <=0.2 . На диапозоне A1:AX50/

[EducatedFool]

Sub test()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Cells
        If cell <= 0.2 Then cell.Interior.Color = vbRed
    Next cell
End Sub

Ну или так:

Sub test()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In [A1:AX50].Cells
        If cell <= 0.2 Then cell.Interior.Color = vbRed
    Next cell
End Sub

[IgorGO]

если значения в этом диапозоне больше никогда не изменятся, то приведенный макрос - как раз то что вам надо.
А если значения меняются? надо еще один макрос, который будет следить за изменениями значений ячеек. Если значение в ячейче стало больше 0.2 надо бы убрать заливку, вдруг эта ячейка была раньше закрашена (она такой и останется). Если значение в ячейке стало меньше 0.2 надо ее зарисовать. Вы справитесь с написанием такого макроса?
Посмотрите в сторону условного форматирование, возможно, это то что вам надо.