Индикация ячеек по критическим значениям.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Индикация ячеек по критическим значениям. (Макросы/Sub)

olegglebovich

Дата: Четверг, 14.01.2021, 10:59 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте! Подскажите, пожалуйста, как сделать индикацию ячеек по критическим значениям? Подробности во вложении.

К сообщению приложен файл: 7717875.xlsb (23.6 Kb)

Ответить

Serge_007

Дата: Четверг, 14.01.2021, 11:16 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

У Вас же готовый код в модуле листа есть...

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Pelena

Дата: Четверг, 14.01.2021, 11:21 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Вариант

К сообщению приложен файл: 8487667.xlsb (19.4 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

olegglebovich

Дата: Четверг, 14.01.2021, 11:23 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте
Да, код есть, но он работает только с одной ячейкой, а надо с четырьмя. Я новичок в программировании и мне эта задача не по зубам.

Ответить

olegglebovich

Дата: Четверг, 14.01.2021, 11:42 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте.
Сделайте, пожалуйста, примечания в макросе ( на русском), для чайников, чтобы понять как это работает

Ответить

Pelena

Дата: Четверг, 14.01.2021, 12:07 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Пожалуйста
[vba]

Код

Private Sub Worksheet_Calculate()   'макрос срабатывает при любом пересчёте листа
    Dim cell As Range
    For Each cell In Range("G28:J28")   'делаем цикл по ячейкам из диапазона G28:J28. cell - очередная текущая ячейка
        cell = cell.Offset(-1)          'присваиваем текущей ячейке значение из вышестоящей (offset - смещение от текущей ячейки)
        If cell >= cell.Offset(4) Then  'если значение текущей ячейки больше или равно значению четырьмя строками ниже
            cell.Interior.Color = RGB(255, 0, 0)    'то красим в красный
        ElseIf cell > cell.Offset(3) Then   'если значение текущей ячейки больше значения тремя строками ниже
            cell.Interior.Color = RGB(0, 255, 0)    'то красим в зеленый
        Else
            cell.Interior.Color = RGB(255, 242, 204)    'иначе красим в желтый
        End If
    Next cell
End Sub

[/vba]