VBA маркировка ячеек на основе ключевых слов - PullRequest
Новая
       40

VBA маркировка ячеек на основе ключевых слов

0 голосов
/ 05 сентября 2018

Я определил диапазон, который заполняется цветом на основе текста ячейки. В первом примере он ищет слово «Авто» и помечает ячейку красным. Я застреваю в том, что команда «if», такая как критерии поиска, переносятся в столбец E (но остается в той же строке, что и слово «Auto» состояния), следит за словом «Mortgage» и помечает его красным. Затем он перемещается дальше столбца вверх и отмечает значения красного цвета, которые меньше 4 лет, 6 лет, 7 лет. Следующим шагом будет то же самое со словом «предпочтение». Для простоты я включил картинку. Кажется, это немного сложно, и намек был бы признателен.

enter image description here 

 Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
     If cell.Value = "Auto" Then
     cell.Interior.Color = XlRgbColor.rgbRed

     ElseIf cell.Value = "Mutti" Then
     cell.Interior.Color = XlRgbColor.rgbRed
    End If
Next
End Sub

1 Ответ

0 голосов
/ 05 сентября 2018

Как насчет следующего: 

Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
    If cell.Value = "Auto" Then
        Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & cell.Row).Interior.Color = vbRed
    ElseIf cell.Value = "Mutti" Then
        Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & cell.Row).Interior.Color = vbRed
    End If
Next
End Sub
...