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

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

ниже то, что я в настоящее время собрал, но нужно изменить "да", чтобы его любой текст в этой ячейке.

Частный 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

Конец Sub

спасибо
James

22
задан James Robinson
18.03.2023 2:15 Количество просмотров материала 3300
Распечатать страницу

1 ответ

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

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
0
отвечен gtwebb 2023-03-19 10:03

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх