Доброго времени суток,
Нужна помощь, коллеги.
Задача. Удалить условное форматирование (правила), но оставить формат ячеек. Часть рабочего код ниже.
Спасибо всем, кто откликнется.
Нужна помощь, коллеги.
Задача. Удалить условное форматирование (правила), но оставить формат ячеек. Часть рабочего код ниже.
Спасибо всем, кто откликнется.
Код |
---|
Sub nce_period() Application.ScreenUpdating = 0 'conditional formatting highlite column, according to current month in ranga "P:AA", With Range("A6:BN170").FormatConditions.Add( _ Type:=xlExpression, _ Formula1:="=AND(RC3<>"""",R5C=TEXT(TODAY(),""[$-809]mmm""))") .SetFirstPriority .Interior.Color = RGB(217, 217, 217) End With 'conditional formatting de-emphasize previous column, according to current month in ranga (P:AA), With Range("A6:BN170").FormatConditions.Add( _ Type:=xlExpression, _ Formula1:="=AND(RC3<>"""",R5C=TEXT((EDATE(TODAY(),-1)),""[$-809]mmm""))") .SetFirstPriority .Interior.Color = RGB(255, 255, 255) End With Application.ScreenUpdating = 1 End Sub |