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

Вход

Регистрация

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

 

= Мир MS Excel/Закрасить диапазон ячеек, если ячейка равна значению - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить диапазон ячеек, если ячейка равна значению (Макросы/Sub)
Закрасить диапазон ячеек, если ячейка равна значению
Kioto Дата: Четверг, 13.02.2020, 16:25 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго времени суток, прошу подсказать макрос, который бы закрасил диапазон ячеек с "B:E" в каждой строке, если ячейка в этой строке в столбце "Е" равна "есть" красным цветом. Очень прошу Вас использовать RGB в своём коде.
К сообщению приложен файл: 7366206.xls(26.5 Kb)


Сообщение отредактировал Kioto - Четверг, 13.02.2020, 16:26
 
Ответить
СообщениеДоброго времени суток, прошу подсказать макрос, который бы закрасил диапазон ячеек с "B:E" в каждой строке, если ячейка в этой строке в столбце "Е" равна "есть" красным цветом. Очень прошу Вас использовать RGB в своём коде.

Автор - Kioto
Дата добавления - 13.02.2020 в 16:25
Nic70y Дата: Четверг, 13.02.2020, 17:11 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5979
Репутация: 1308 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Sub u_701()
    Application.ScreenUpdating = False
    u = Cells(Rows.Count, "e").End(xlUp).Row
    For Each c In Range("e2:e" & u)
        y = c.Row
        If c = "есть" Then
            Range("b" & y & ":e" & y).Interior.Color = RGB(192, 0, 0)
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]


ЯД(poison) 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_701()
    Application.ScreenUpdating = False
    u = Cells(Rows.Count, "e").End(xlUp).Row
    For Each c In Range("e2:e" & u)
        y = c.Row
        If c = "есть" Then
            Range("b" & y & ":e" & y).Interior.Color = RGB(192, 0, 0)
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 13.02.2020 в 17:11
Kioto Дата: Четверг, 13.02.2020, 17:16 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Nic70y, преогромнейшее спасибо за помощь.
 
Ответить
СообщениеNic70y, преогромнейшее спасибо за помощь.

Автор - Kioto
Дата добавления - 13.02.2020 в 17:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить диапазон ячеек, если ячейка равна значению (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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