Доброго времени вам! Данный макрос работает только если изменяются данные в ячейке В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 |