TextBox içeriğine göre renk

[gravity80]

Private Sub TextBox1_Change()
TextBox1.BackColor = vbWhite
If UCase(TextBox1.Text) = "E" Then TextBox1.BackColor = vbBlue
If UCase(TextBox1.Text) = "K" Then TextBox1.BackColor = vbRed
End Sub

Peki E den başka bir değişken daha varsa, mesela A gibi.
İki değişkeni tek şarta nasıl bağlayabiliriz?

yani "e" ya da "a" varsa mavi
k varsa kırmızı
gibi.

 

[muratgunay48]

Private Sub TextBox1_Change()
TextBox1.BackColor = vbWhite
If UCase(TextBox1.Text) = "E" Then TextBox1.BackColor = vbBlue
If UCase(TextBox1.Text) = "K" Then TextBox1.BackColor = vbRed
End Sub

Hocam, normalde beyaz ara 1 temmuz 2024 saat 9.00 ile 10 temmuz 2024 saat 9.00 arası kırmızı olabilir mi?
Hatta şöyle bu zamanlar E1 ve F1 hücrelerinde yazıyor.
Yani E1 ve F1 arası kırmızı olacak.
Teşekkür ederim.
Saygılarımla