Değeri Minimum veya Maksimum'a Eşit Olan Textbox'un Renklendirilmesi

[Ergün Güler]

Selam,
T_B3, T_B4, T_B5, ......... T_B14 diye adlandırlan textbox'larım var. Bunların hangisinin değeri en büyük sayıya eşit ise backcolor'u kırmızı olsun.
hangisinin değeri en küçük sayıya eşit ise backcolor'u gri olsun istiyorum.
aşağıdaki kodlar ile biraz çabaladım ancak yapamadım yardımcı olabilirseniz çok sevinirim.
İyi çalışmalar.

TB_deg = Val(Controls("T_B" & Satır))

If tmak > TB_deg Then '1 Üretimdeki en fazla Slide sıkışması
tmak = tmak
Else
tmak = TB_deg
End If

If Val(Controls("T_B" & Satır)) = tmak Then
Controls("T_B" & Satır).BackColor = &HFF&
ElseIf Val(Controls("T_B" & Satır)) < tmak Then
Controls("T_B" & Satır).BackColor = &HFFFFFF
End If

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyadaki kod yapısını kullanabilirsiniz. İncelermisiniz.

 

[Ergün Güler]

Selamlar,

Ekteki örnek dosyadaki kod yapısını kullanabilirsiniz. İncelermisiniz.

Selam Sayın Korhan Ayhan,

Çok teşekkür ederim. Ellerinize Sağlık. İyi çalışmalar.