Чтобы сделать это в Excel, выберите A1: E1, затем Формат> Условное форматирование ...> Формула Is> =SUMIF($A1:$E1,"=1")>0
. Не забудьте знаки доллара $
, чтобы указать абсолютную (а не относительную) ссылку на столбцы от A до E!
Это код VBA для того же действия в макросе:
With Range("A1:E1")
' If you need to delete any "pre-existing conditions"
' (no US healthcare reform pun intended) then uncomment the following line:
'.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMIF($A1:$E1,""=1"")>0"
.FormatConditions(1).Interior.ColorIndex = 6 ' yellow background
End With