Grafik oluşturma

[ozgretmen]

Merhaba arkadaşlar ;
A1 hücremde diyelim ki 45 olsun.Acaba B1 hücresinden başlayarak sağa doğru A1 hücresindeki sayı kadar hücreyi nasıl mavi renk(herhangi bir renk ) yapabilirim?
Teşekkürler...

 

[uzmanamele]

merhaba
koşullu biçimlendirme ile yapılabilir. makro için arkadaşlardan yardım bekleyiniz.

 

[ozgretmen]

teşekürler ... çok sağol...

 

[Mahmut Kök]

Merhaba arkadaşlar ;
A1 hücremde diyelim ki 45 olsun.Acaba B1 hücresinden başlayarak sağa doğru A1 hücresindeki sayı kadar hücreyi nasıl mavi renk(herhangi bir renk ) yapabilirim?
Teşekkürler...

Sub renk()
For a = 2 To [a1]
Cells(1, a).Interior.ColorIndex = 5
Next
End Sub

 

[uzmanamele]

merhaba
syn mesleki
küçük bir ilave yaptım, a1 değerini değiştirmek isteyipde, ilk girilen değerden küçük bir değer girmek gerektiğinde sorun çıkar. silip tekrar renklendirmek gerekebilir.
Sub renksil()
For a = 2 To [a1]
Cells(1, a).Interior.ColorIndex = 0
Next
End Sub

 

[Mahmut Kök]

merhaba
syn mesleki
küçük bir ilave yaptım, a1 değerini değiştirmek isteyipde, ilk girilen değerden küçük bir değer girmek gerektiğinde sorun çıkar. silip tekrar renklendirmek gerekebilir.
Sub renksil()
For a = 2 To [a1]
Cells(1, a).Interior.ColorIndex = 0
Next
End Sub

Haklısınız, küçük değerde sorun çıkarabilirdi. Sizin öneriniz de olabilir ama ben aşağıdaki satırı ekledim.

[LEFT]Sub renk()
[COLOR=red]rows(1).Interior.ColorIndex =xlnone[/COLOR]
For a = 2 To [a1]
Cells(1, a).Interior.ColorIndex = 5
Next
End Sub[/LEFT]