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