Заливка ячейки при условии - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д