Şarta Göre "Label" Renklendirme, Mümkün mü?

[yesimgurol]

Merhabalar,

Yapmaya çalıştığım vaka değerlendirme sayfam için daha önce aşağıdaki linkte Sağolsun Sayın Halit Bey'in yardımı ile sonuca ulaşmıştım.

http://www.excel.web.tr/f48/listview-nesnesin-de-duzenleme-hakkynda-t172998.html

Fakat bazı vaka değerlendirmelerinde yanlışlık olduğundan yapmış olduğum dosyayı kullanmama izin verilmedi:-(
Bende özellikle renklendirme kısmında karışıklığı asgari düzeye indirmek adına Listview yerine Label nesnesi kullanıp, şartları asgari düzeye indirerek yapmak istedim.
Araştırdığım kadarı ile Label sanırım dolgu renklendirmesi özelliğine sahip.

Yukarıdaki resimde açıklamaya çalıştığım olay sizce mümkün müdür?

 

[yesimgurol]

Textbox Nesnesi ile bir örnek buldum şarta göre rengini değiştirmek için, Olmaz ise Label yerine Textbox nesnesi de kullanabilirim.

 

[yesimgurol]

Merhabalar,

İlk mesajımda ki resim üzerinde açıklamaya göre Ali Bey'in hazırlamış olduğu kodları düzenleyerek biraz olsun yol katettim. Kodlar şu şekilde ;

If Label61.Caption = Range("M3").Value Then
    Label61.BackColor = &HFFC0C0
 End If
    If Label61.Caption = Range("S3").Value Then
    Label61.BackColor = &HFFC0FF
 End If
  
  If Label62.Caption = Range("m3").Value Then
    Label62.BackColor = &HFFC0C0
  End If
    If Label62.Caption = Range("S3").Value Then
    Label62.BackColor = &HFFC0FF
  End If
  

  If Label63.Caption = Range("m4").Value Then
    Label63.BackColor = &HFFC0C0
  End If
  If Label63.Caption = Range("S4").Value Then
    Label63.BackColor = &HFFC0FF
  End If

  If Label64.Caption = Range("m4").Value Then
    Label64.BackColor = &HFFC0C0
End If
    If Label64.Caption = Range("S4").Value Then
    Label64.BackColor = &HFFC0FF
End If


    
    
    
    If Label65.Caption = Range("m5").Value Then
    Label65.BackColor = &HFFC0C0
End If
    If Label65.Caption = Range("R5").Value Then
    Label65.BackColor = &HFFC0FF
End If

    If Label66.Caption = Range("m5").Value Then
    Label66.BackColor = &HFFC0C0
End If
    If Label66.Caption = Range("R5").Value Then
    Label66.BackColor = &HFFC0FF
End If

Mesaj üzerinde bulunan resim de açıklamaya çalışmış olduğum yerde kalmış durumdayım.:???: