AccessTr.neT
Belli aralık dışında sayı yazınca renkli yazması durumu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Belli aralık dışında sayı yazınca renkli yazması durumu (/konu-belli-aralik-disinda-sayi-yazinca-renkli-yazmasi-durumu.html)



Belli aralık dışında sayı yazınca renkli yazması durumu - youngeagle_3 - 03/12/2014

Arkadaşlar lafı fazla uzatmadan sadede geleyim. Yardım edenlere şimdiden teşekkürler.

Benim istediğim formülün içeriği şöyle olacak. Mesela bir hücreye 50-100 arasında herhangi bir sayı girildiğinde "siyah" yazacak, fakat bu aralığın dışında bir sayı girildiğinde, "kırmızı" renkte yazacak. 50-100 arası temsili bir değer. Bunu değiştirebilirim tabi sonradan. Aslında basit gibi ama yapamadım. Eğer yapabilen varsa yardımcı olursa sevinirim. Teşekkürler.


Cvp: Belli aralık dışında sayı yazınca renkli yazması durumu - Coskun0559 - 03/12/2014

Hücreyi seç ve giriş sekmesinde koşullu biçimlendirmeyi seç
Hücre kuralını vurgula-arasında'yı seç 
ilk kutuya 50 ikinci kutuya 100 yaz 
Biçim açılan kutuya tıkla ve en altta özel biçim var oradan istediğin şekilde düzenle


Cvp: Belli aralık dışında sayı yazınca renkli yazması durumu - atoz112 - 03/12/2014

sayın youngeagle_3,


Aşağıdaki kodlamayı boş bir Excel uygulaması açıp Visual Basic (Alt + F11) kod sayfasına geçip buradan Sayfa1’i seçip yapıştır işaretlemesi ile kodlamayı dahil ediniz.ardından da,excel uygulamasını Dosya - Farklı Kaydet – Excel Makro Etkin Çalışma Kitabı şeklinde kaydediniz.


Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ActiveCell.Select
   Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
       Formula1:="=50", Formula2:="=100"
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
   With Selection.FormatConditions(1).Font
       .Color = vbBlack
       .TintAndShade = 0
   End With
   Selection.FormatConditions(1).StopIfTrue = False
   Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
       Formula1:="=50", Formula2:="=100"
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
   With Selection.FormatConditions(1).Font
       .Color = vbRed
       .TintAndShade = 0
   End With
   Selection.FormatConditions(1).StopIfTrue = False
End Sub

Bu kod ile,sayfa üzerindeki istediğiniz herhangi bir hücresine (aktif hücreye) gireceğiniz değere göre;talebiniz doğrultusunda hücre font renklendirmesi yapacaktır.bilgilerinize.

İyi çalışmalar,
saygılar.


Cvp: Belli aralık dışında sayı yazınca renkli yazması durumu - youngeagle_3 - 04/12/2014

İkinize de çok teşekkürler. Ben gereken cevaplarımı aldım. Sağ olun var olun.