Renk seçenekli grafik

[Barons]

merhaba

mesajımı aslında grafik bölümüne göndermem gerekirdi ancak sorunun makro ile çözüleceği düşüncesine kapıldım.Grafik bölümünün tümünü inceledim ama benzer bir soru ve cevap göremedim.

problem : Grafikte çubuk değerlerini;
VERİ EĞER 250 VE 250' in ALTINDA İSE KIRMIZI,250 DEĞERİNİN ÜSTÜNDE İSE MAVİ OLMALI..BUNU YAPMAK MÜMKÜNMÜDÜR?

Bu veriler sürekli sütun boyunca aşağı inmekte ve en son değer grafikte okunmaktadır.

Teşekkürler

 

[Mahmut Kök]

Aşağıdaki kodları deneyiniz. Burada "char4" sizin grafik nesnenizin adı, grafiği tıklayınca zaten adını görebilir ve gerekirse değiştirebilirsiniz.

sub grafik ()
ActiveSheet.ChartObjects("Chart 4").Activate
   
    For a = 1 To ActiveChart.SeriesCollection(1).Points.Count
    If ("0" & ActiveChart.SeriesCollection(1).Points(a).DataLabel.Text) * 1 <= 250 Then
    ActiveChart.SeriesCollection(1).Points(a).Interior.Color = vbRed
    Else
    ActiveChart.SeriesCollection(1).Points(a).Interior.Color = vbBlue
    End If
    Next
end sub

 

[Barons]

merhaba
çok teşekkürler...ancak veriler aşağıya doru sürekli ilerliyor yaklaşık 40.000 satır olacak ve hep en son değeri alması lazım...burada sürekli 8.nci satırı görüyor grafik...En son satırı görmesi sağlanabilirmi?

Teşekkürler

 

[1Al2Ver]

Merhaba,

Dosyanız ektedir,

Satırda son değer ( Formül ; 100 satır olarak düzenlenmiştir ) bulunarak çözülmüştür.

 

[Barons]

çok teşekkürler...elinize sağlık

 

[1Al2Ver]

çok teşekkürler...elinize sağlık

Rica ederim, çözüm olduğuna sevindim.