Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Изменение цвета ячейки по условию.
 
Доброго времени.
Вообщем есть код.
Он меняет значение ячейки по условию.
Как заставить его менять ещё и цвет этой ячейки ?
в данном случае хотелось бы чтобы красным цветом помечалась ячейка в которую заносится значение 2
Код
    If Target.CountLarge = 1 Then
        If Not Intersect(Target, Columns("AA")) Is Nothing Then
            Set rngFind = [A:A].Find(Target, , xlValues, xlWhole, , xlNext, False, False, False)
            If Not rngFind Is Nothing Then
                Application.EnableEvents = False
                Intersect([C:C], rngFind.EntireRow).Value = 2
                Intersect([W:W], rngFind.EntireRow).Value = Now
                rngFind.Offset(0, 21) = "розничный покупатель"
                Application.EnableEvents = True
            End If
        End If
 
Код
                Application.EnableEvents = False
                Intersect([C:C], rngFind.EntireRow).Value = 2
                Intersect([C:C], rngFind.EntireRow).Interior.ColorIndex = 3
                Intersect([W:W], rngFind.EntireRow).Value = Now
 
Благодарю.
 
А чего Вы так привязались к Intersect? )
Страницы: 1
Читают тему (гостей: 1)
Наверх