Здравствуйте Уважаемые,
Помогите Пожалуйста,
Следующий код работает, если выделить несколько строк, но если выбрать только одну строку то тормозить и выдает неверный результат.
Спасибо.
Помогите Пожалуйста,
Следующий код работает, если выделить несколько строк, но если выбрать только одну строку то тормозить и выдает неверный результат.
Спасибо.
Код |
---|
Dim Rng As Range Set Rng = Selection.SpecialCells(xlCellTypeVisible) For Each rr In Rng.Rows If Range("A" & rr.Row).Value > 4 Then Range("A" & rr.Row).Value = 8 If Range("A" & rr.Row).Value > 4 Then Range("A" & rr.Row & ":C" & rr.Row).Font.Color = RGB(0, 0, 255) Next |