Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Индикация ячеек по критическим значениям. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Индикация ячеек по критическим значениям. (Макросы/Sub)
Индикация ячеек по критическим значениям.
olegglebovich Дата: Четверг, 14.01.2021, 10:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте! Подскажите, пожалуйста, как сделать индикацию ячеек по критическим значениям? Подробности во вложении.
К сообщению приложен файл: 7717875.xlsb(23.6 Kb)
 
Ответить
СообщениеЗдравствуйте! Подскажите, пожалуйста, как сделать индикацию ячеек по критическим значениям? Подробности во вложении.

Автор - olegglebovich
Дата добавления - 14.01.2021 в 10:59
Serge_007 Дата: Четверг, 14.01.2021, 11:16 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14140
Репутация: 2341 ±
Замечаний: ±

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

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


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

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

Автор - Serge_007
Дата добавления - 14.01.2021 в 11:16
Pelena Дата: Четверг, 14.01.2021, 11:21 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17622
Репутация: 3924 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Вариант
К сообщению приложен файл: 8487667.xlsb(19.4 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Вариант

Автор - Pelena
Дата добавления - 14.01.2021 в 11:21
olegglebovich Дата: Четверг, 14.01.2021, 11:23 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - olegglebovich
Дата добавления - 14.01.2021 в 11:23
olegglebovich Дата: Четверг, 14.01.2021, 11:42 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - olegglebovich
Дата добавления - 14.01.2021 в 11:42
Pelena Дата: Четверг, 14.01.2021, 12:07 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 17622
Репутация: 3924 ±
Замечаний: ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПожалуйста
[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]

Автор - Pelena
Дата добавления - 14.01.2021 в 12:07
RAN Дата: Четверг, 14.01.2021, 13:28 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5428
Репутация: 1084 ±
Замечаний: 0% ±

2010
Дивлюсь я на вас, господа админы. :D
Почему не УФ?
Для какого здесь макрос?
К сообщению приложен файл: 2932882.xlsb(17.1 Kb)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДивлюсь я на вас, господа админы. :D
Почему не УФ?
Для какого здесь макрос?

Автор - RAN
Дата добавления - 14.01.2021 в 13:28
Serge_007 Дата: Четверг, 14.01.2021, 14:56 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 14140
Репутация: 2341 ±
Замечаний: ±

Excel 2010
Для какого здесь макрос?
Для преподавателя :D


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Для какого здесь макрос?
Для преподавателя :D

Автор - Serge_007
Дата добавления - 14.01.2021 в 14:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Индикация ячеек по критическим значениям. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!