Iki kolon icinde verilerin sartli olarak degisik renkte gosterilmesi

[Ogun]

Degerli arkadaslar,

Excel de olusturdugum bir tabloda sunu yapmak istiyorum.

Iki tane kolon var

Gelir 2005 ve gelir 2006

Gelir 2006 gelir 2005 den kucuk ise kirmizi olarak gorunmesini istiyorum.


Yani ornek olarak:

Gelir 2005 Gelir2006
1000 800 (1000 den kucuk oldugu icin kirmizi olarak gorunmesini istiyorum bunu nasil yapabilirim?

Yardimlariniz icin tesekkurler.

 

[masiva80]

cevap

aşağıdaki kodu

sayfaya bir düğme ekleve altına kopyala

For i = 1 To 10000

If Cells(i, 1) < Cells(i, 2) Then Cells(i, 1).Interior.ColorIndex = 3

Next i

1. sütün değeri 2. stundan küçükse rengi kırmızı oluyor

 

[Ogun]

Pivot tablo yani Ozet tablo icinde bu islemi nasil yapabilirim?

Asagida 2005 ve 2006 yilina ait toplam yekunler ozet tablodan alinmakta burada 2006 nin altinda bulunan rakamlar 2005 den kucuk ise kirmizi omasini buyuk ise yesil renk olmasini nasil saglayabilirim?

Degerli arkadasim masiva80 yanitin icin tesekkur ediyorum ek okarak sunu sormak istiyorum vermis oldugunuz renk hucreyi renklendiriyor ben yaziyi yani rakami renklendirmek isityorum bunu nasil gerceklestirebilirim?


2005 2006 Genel toplam

768,6 0 768,6
2982,5 1690,5 4673
742,7 818,5 1561,2
0 1112,8 1112,8
952 1713,6 2665,6
0 2750,5 2750,5
0 952 952
222 222 444
21022,5 10940 31962,5
2025 0 2025

 

[masiva80]

cevap

a&#351;a&#287;&#305;daki kodu

sayfaya bir d&#252;&#287;me ekleve alt&#305;na kopyala

For i = 1 To 10000

If Cells(i, 1) < Cells(i, 2) Then
Cells(i, 1).Characters.Font.ColorIndex = 3'yaz&#305;y&#305; k&#305;rm&#305;z&#305; yapar
else
Cells(i, 1).Characters.Font.Color= rgb(0,255,0)
endif
Next i

1. s&#252;t&#252;n de&#287;eri 2. stundan k&#252;&#231;&#252;kse rengi k&#305;rm&#305;z&#305; oluyor

 

[Ogun]

Birinci rakamla ikinci rakam esit oldugunda renk mavi olmasi icin ne yapmam lazim

Dergeli Masiva80,

Yanitin icin tesekkur ediyorum. Bir de sayet birinci kolon ikinci kolona esit olursa ozaman rengin mavi olmasini istiyorum bunu nasil yaparim ?

Simdiden tesekkurlerimi iletiyorum.

 

[masiva80]

Cevap

aşağıdaki kodu

sayfaya bir düğme ekleve altına kopyala

For i = 1 To 10000

If Cells(i, 1) < Cells(i, 2) Then
Cells(i, 1).Characters.Font.ColorIndex = 3'yazıyı kırmızı yapar
elseif Cells(i, 1) >Cells(i, 2) then
Cells(i, 1).Characters.Font.Color= rgb(0,255,0)
else
Cells(i, 1).Characters.Font.Color= rgb(0,0,255)

endif
Next i

1. sütün değeri 2. stundan küçükse rengi kırmızı oluyor

 

[Ogun]

Ek olarak birsey daha yapmak istiyorum

Sayin Masiva80 arkadsim,

Yanitlarin icin tesekkurlerimi belirmek isterim ve ek olarak su konuda da yardimci olurmusunuz.

Soylemis oldugun gibi gibi ek buton yaptim ve altina vermis oldugun:

Private Sub CommandButton1_Click()

For i = 1 To 10000

If Cells(i, 5) < Cells(i, 3) Then
Cells(i, 5).Characters.Font.ColorIndex = 3 'yaziyi kirmizi yapar
ElseIf Cells(i, 5) > Cells(i, 3) Then
Cells(i, 5).Characters.Font.Color = RGB(0, 255, 0)
Else
Cells(i, 5).Characters.Font.Color = RGB(0, 0, 255)

End If
Next i

End Sub


Bu kodu yerlestirdim. Fakat size ek olarak jpg olarak gonderdigim goruntude.
Renklendirme de 2005 altinda "Netto regelbedrag ile 2006 altinda "Netto regelbedrag" arasinda karsilastiriliyor ve bu calisiyor. Fakat onun yaninda bulunan 2005 altinda "Aantal 1" ile 2006 altinda bulunan "Aantal 1" karsilastirmsinda da ayni sekilde yapmak istiyorum. Yani bu koda ek birseyler yapmak gerek ama nasil bilemiyorum. Sonuc olarak su olacak:

Ayni yukaridaki karsilastirma 2005 in "Aantal 1" ile 2006 nin "Aantal 1"arasinda yapilmasi. Birde bu renkleri nasil kaldirabilirim yani dugmeye basinca renklendirme oluyor ya bir dugmede yapip normal renklendirmenin kaldirilmasini saglamak icin. yardimlarin icin simiden tesekkur ederim.