Добрый день уважаемые форумчане!
Хочу макросом задать условное форматирование по нескольким критериям.
Формулу для определения критериев я подготовил, но хотелось бы чтобы одно условие было изменяемым.
Код:
Вопрос такой: в конце формулы "И($D8>0;СУММ($J8:$P8")=0)" - P8 ячейка переменная, зависит от количества колонок в таблице. 8 строка в формуле не изменится, надо только менять название столбца.
Я придумал такой вариант:
где в ячейке О3 - счетчк строк. Таким образом, если в четчике цифра 10, то в формулу должно вставаится Y8 и получиться в итоге: ..... И($D8>0;СУММ($J8:$Y8")=0)
но к сожалению такой трюк не прокатил.
Есть ли другой способ вставить в формулу для УФ переменную?
Хочу макросом задать условное форматирование по нескольким критериям.
Формулу для определения критериев я подготовил, но хотелось бы чтобы одно условие было изменяемым.
Код:
Код |
---|
Range("B8:B518").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=И($D8>0;ИЛИ($B8=0;ИЛИ(И($D8>0;$E8=0;$J8=0);И($D8>0;$E8>0;ИЛИ($J8=0;$K8=0));И($D8>0;СУММ($J8:$P8")=0))))" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = True |
Вопрос такой: в конце формулы "И($D8>0;СУММ($J8:$P8")=0)" - P8 ячейка переменная, зависит от количества колонок в таблице. 8 строка в формуле не изменится, надо только менять название столбца.
Я придумал такой вариант:
Код |
---|
"=И($D8>0;ИЛИ($B8=0;ИЛИ(И($D8>0;$E8=0;$J8=0);И($D8>0;$E8>0;ИЛИ($J8=0;$K8=0));И($D8>0;СУММ($J8:$" & Cells(8, 15 + Range("O3").Value) & ")=0))))" |
но к сожалению такой трюк не прокатил.
Есть ли другой способ вставить в формулу для УФ переменную?