renklendirme

[vuslat08]

Selamlar
Bi sorum olacak


Bir hücrenin 0,20' nin üstünde bir değer verdiğinde maviden kırmızıya dönmesini istiyorum uygulana bilir mi ?

 

[gojjira]

Koşullu biçimlendirmede formül kısmına =A1>0,20 yaz.Biçimlendirden yazı rengini kırmızı yap ve çık.Gojjira Çetin

 

[kan-nas]

Yukarıdaki daha kullnışlı ama bu da olabilir.
Sub Button1_Click()
If Range("a1").Value > 0.2 Then
Range("a1").Font.Color = vbRed
Else
Range("a1").Font.Color = vbBlue
End If
End Sub