VBA: условное форматирование ячеек под текстом - PullRequest
Новая
       12

VBA: условное форматирование ячеек под текстом

0 голосов
/ 09 ноября 2019

У меня есть необработанные данные, содержащие данные в формате таблицы. где мне нужно выделить 6 последовательных строк, если любое значение ячейки содержит текст «Срочно», который может появиться в любом месте ячейки.

Я написал код, но у меня ничего не вышло. здесь я жестко кодирую с колонкой "J". Однако моя строка может отображаться в любом столбце. 

    With Cells
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=ISNUMBER(SEARCH(""Urgent*"",$J1))"
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = 7405514
            .TintAndShade = 0
        End With
        StopIfTrue = False
    End With

! [Excel] https://ibb.co/swkBbtY

...