необходимо чтобы при нажатии кнопки выполнялись: если значение < 50 - ячейку закрасить в красный если последняя цифра = 1- число закрасить в зеленый
необходимо чтобы при нажатии кнопки выполнялись: если значение < 50 - ячейку закрасить в красный если последняя цифра = 1- число закрасить в зеленыйshady12
Sub Кнопка1_Щелчок() r1_ = Range("C" & Rows.Count).End(xlUp).Row For i = 2 To r1_ With Range("C" & i) If .Value < 50 Then .Interior.ColorIndex = 3 If Right(.Value, 1) = 1 Then .Font.ColorIndex = 4 End With Next i End Sub
[/vba]
Так нужно? [vba]
Код
Sub Кнопка1_Щелчок() r1_ = Range("C" & Rows.Count).End(xlUp).Row For i = 2 To r1_ With Range("C" & i) If .Value < 50 Then .Interior.ColorIndex = 3 If Right(.Value, 1) = 1 Then .Font.ColorIndex = 4 End With Next i End Sub
_Boroda_, да, только, при открытии файла значения должны быть без изменений, а при выделении диапазона и нажатии на кнопку - меняться и в конце должно быть сообщение о максимальном значении диапазона
_Boroda_, да, только, при открытии файла значения должны быть без изменений, а при выделении диапазона и нажатии на кнопку - меняться и в конце должно быть сообщение о максимальном значении диапазонаshady12