Код VBA для изменения фонового текста для любого текста в ячейке

Question

Я пытаюсь изменить цвет строки на желтый в зависимости от того, есть ли текст в столбце D. Я уже настроил 5 разных цветов для другой ячейки, но нужно это переопределить. Я могу сделать эту работу, если скажу «ДА», так как это заранее определенное значение. Тем не менее, мне нужно ввести различный текст и цифры, чтобы не серфить.

Ниже приведено то, что я сейчас собрал, но нужно изменить «ДА», чтобы в нем содержался любой текст в этой ячейке.

Private Sub Worksheet_Change(цель ByVal в качестве диапазона)

Set MyPlage = Range("T8:T1000") 
For Each Cell In MyPlage
        Select Case Cell.Value  
     Case Is = "Cancelled"
        Cell.EntireRow.Interior.ColorIndex = 8
     Case Is = "Rejected"
        Cell.EntireRow.Interior.ColorIndex = 3           
    Case Is = "Completed"
        Cell.EntireRow.Interior.ColorIndex = 4
    Case Is = "Pending"
        Cell.EntireRow.Interior.ColorIndex = 15          
    Case Is = "Accepted"
        Cell.EntireRow.Interior.ColorIndex = 39
    Case Else
        Cell.EntireRow.Interior.ColorIndex = xlNone

    End Select

Next

 Set MyPlage = Range("D8:D1000")
 For Each Cell In MyPlage
        Select Case Cell.Value
     Case Is = "YES"
        Cell.EntireRow.Interior.ColorIndex = 6

    End Select
Next

End Sub

Спасибо Джеймс

Answer 1

По сути, вы не хотите делать выборку, просто проверьте, пуста ли ячейка

Sub run()

 Set myplage = Range("D8:D1000")
 For Each cell In myplage
    If Not IsEmpty(cell.Value) Then
        cell.EntireRow.Interior.ColorIndex = 6
    End If
Next