Поиск отрицательных значений в таблице Excel

Поиск отрицательных значений в таблице Excel

 

Добрый день, уважаемые читатели блога!

В сегодняшней статье мы поговорим о быстром выделении отрицательных значений в выделенном диапазоне таблицы Excel. Первая мысль, которая приходит в голову — использовать условное форматирование. Мысль правильная, но действий придётся выполнять слишком много. Рассмотрим вариант с использованием макроса.

Имеем таблицу с данными, в ней нужно найти и подсветить все отрицательные значения.

Поиск отрицательных значений в таблице 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

 

Поиск отрицательных значений в таблице Excel

 

Мы сделали следующее — для каждой ячейки в выделении, если её значение меньше нуля, цвет фона будет красным, если нет — оставить фон без изменений, перебор всех ячеек в выделенном диапазоне.

Сохраняем книгу с поддержкой макросов и проверяем работу. Для наглядности будет продемонстрировано два варианта с выделением и без (когда ничего не произойдёт).

Поиск отрицательных значений в таблице Excel

 

Если необходимо изменить цвет заливки, то в строке «cell.Interior.Color = RGB(255, 0, 0)» просто поменяйте значения цифр. Для подбора нужного цвета можно воспользоваться сайтом rgb.to.

 

Вот и всё, теперь можно находить отрицательные значения в таблице Excel с помощью трех движений мышкой!

 

 

Post Author: Иван

Добавить комментарий

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.