TextBox degere gore renklensin.

[manly]

TextBox1 degeri 6 ve üzeri Rakam gelirse renklensin istiyorum.

 

[BedriA]

TextBox1 degeri 6 ve üzeri Rakam gelirse renklensin istiyorum.

Aşağıdaki kodu deneyebilirsiniz.

Private Sub TextBox1_Change()
If TextBox1.Text >= 6 Then
TextBox1.BackColor = &HFF&

Else
TextBox1.BackColor = &H80000005

End If
End Sub

 

[manly]

Teşekkürler. Çok sağolun ..

 

[BedriA]

Teşekkürler. Çok sağolun ..

Rica ederim.

 

[manly]

Textboxtaki deger 3.5 (noktalı) renkli gösteriyor.

 

[yanginci34]

Merhaba; Küsüratlı sayılar virgül ile ayrılır. Virgül ile denermisiniz?

 

[yanginci34]

sizin 3.5 olarak ayırdığınızı 35 olarak algılıyor sistem

 

[manly]

Hucrede 3,5. Fakat veri textboxa geldiginde 3.5 gorunuyor
TextBox1.Value = (CDbl(TextBox1), "##,##0.00")
Bunu yazinca 35 goruyor