รหัส VBA สำหรับการเปลี่ยนข้อความพื้นหลังสำหรับข้อความใด ๆ ภายในเซลล์

ฉันกำลังพยายามเปลี่ยนสีเป็นสีเหลืองโดยขึ้นอยู่กับว่าข้อความใดอยู่ในคอลัมน์ D ฉันได้ตั้งค่าสีที่ต่างกัน 5 สีสำหรับเซลล์อื่น แต่ต้องใช้สิ่งนี้เพื่อขับสีเหล่านั้น ฉันสามารถใช้งานได้ถ้าฉันพูดว่า 'ใช่' เพราะเป็นค่าที่กำหนดล่วงหน้า อย่างไรก็ตามฉันต้องใส่ข้อความและตัวเลขต่าง ๆ เพื่อที่จะไม่ได้ท่อง

ด้านล่างเป็นสิ่งที่ฉันได้รวบรวมในขณะนี้ แต่จำเป็นต้องเปลี่ยน 'ใช่' เพื่อให้ข้อความใด ๆ ภายในเซลล์นั้น

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

ส่วนท้าย

ขอบคุณเจมส์

โดยทั่วไปคุณไม่ต้องการเลือกเคสให้ตรวจสอบว่าเซลล์ว่างเปล่าหรือไม่

ส่วนย่อย ()

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