Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Изменение заливки фигуры по условию
 
Доброго времени вам! Данный макрос работает только если изменяются данные в ячейке В4. Как его изменить так что бы он работал при изменении данных в обоих ячейках В4 и В6.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value > Range("B6") Then
            ActiveSheet.Shapes("фигура").Fill.ForeColor.RGB = vbRed
        Else
            ActiveSheet.Shapes("фигура").Fill.ForeColor.RGB = vbWhite
        End If
    End If
End Sub
 
Код
If Intersect(Target, Range("B4, B6")) Is Nothing Then Exit Sub
Кому решение нужно - тот пример и рисует.
 
Пытливый,оказалось все очень просто. Благодарю.
Страницы: 1
Читают тему (гостей: 1)
Наверх