Skip to main content

AccessTr.neT


Belli aralık dışında sayı yazınca renkli yazması durumu

youngeagle_3
youngeagle_3
3
1843

Belli aralık dışında sayı yazınca renkli yazması durumu

Çözüldü #1
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.
Cevapla
#2
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
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
#3
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.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
İkinize de çok teşekkürler. Ben gereken cevaplarımı aldım. Sağ olun var olun.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da