Заливка ячейки при условии - VBA
Формулировка задачи:
Подскажите пожалуйста как через VBA сделать так чтобы при заполнении диапазона ячеек A1:N12 к примеру, когда вводишь значение в ячейку которое не равно 6 или Х то она заливалась красным цветом.
Решение задачи: «Заливка ячейки при условии»
textual
Листинг программы
Sub Макрос1()
Cells.FormatConditions.Delete
Range("A1:N12").FormatConditions.Add(Type:=xlExpression, Formula1:= _
Application.ConvertFormula("=(RC<>6)*(RC<>""Х"")*(RC<>"""")", xlR1C1, Application.ReferenceStyle, , [A1])) _
.Interior.Color = vbRed
End Sub