Закрасить диапазон ячеек, если ячейка равна значению

Вход

Регистрация

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

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

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

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

Закрасить диапазон ячеек, если ячейка равна значению (Макросы/Sub)

Закрасить диапазон ячеек, если ячейка равна значению

Kioto

Дата: Четверг, 13.02.2020, 16:25 | Сообщение № 1

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

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

Сообщений: 36

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

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

Excel 2007

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

К сообщению приложен файл: 7366206.xls (26.5 Kb)

Сообщение отредактировал Kioto - Четверг, 13.02.2020, 16:26

Ответить

Nic70y

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

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

[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]

ЮMoney 41001841029809

Ответить

Kioto

Дата: Четверг, 13.02.2020, 17:16 | Сообщение № 3

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

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

Сообщений: 36

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

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

Excel 2007

Nic70y, преогромнейшее спасибо за помощь.

Ответить

Закрасить диапазон ячеек, если ячейка равна значению (Макросы/Sub)

Страница 1 из 1
1