Добрый день, уважаемые читатели блога!
В сегодняшней статье мы поговорим о быстром выделении отрицательных значений в выделенном диапазоне таблицы Excel. Первая мысль, которая приходит в голову — использовать условное форматирование. Мысль правильная, но действий придётся выполнять слишком много. Рассмотрим вариант с использованием макроса.
Имеем таблицу с данными, в ней нужно найти и подсветить все отрицательные значения.
Теперь добавим новый модуль:
- на вкладке «Разработчик» нажимаем кнопку «Visual Basic»;
- далее в меню нажимаем «Insert»;
- выбираем «Module».
Перед нами появится окно модуля, куда нужно вставить следующий код.
Sub OtrZnach()
Dim cell As Range
‘ В выделенном диапазоне залить все ячейки красным
For Each cell In Selection
If cell.Value < 0 Then
cell.Interior.Color = RGB(255, 0, 0)
Else
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub
Мы сделали следующее — для каждой ячейки в выделении, если её значение меньше нуля, цвет фона будет красным, если нет — оставить фон без изменений, перебор всех ячеек в выделенном диапазоне.
Сохраняем книгу с поддержкой макросов и проверяем работу. Для наглядности будет продемонстрировано два варианта с выделением и без (когда ничего не произойдёт).
Если необходимо изменить цвет заливки, то в строке «cell.Interior.Color = RGB(255, 0, 0)» просто поменяйте значения цифр. Для подбора нужного цвета можно воспользоваться сайтом rgb.to.
Вот и всё, теперь можно находить отрицательные значения в таблице Excel с помощью трех движений мышкой!
