VBA 'de hücre boyama kodu

[obenim81]

Merhabalar,

sitenize yeni üye oldum bir konuda yardıma ihtiyacım var. Userformda command button aracılığı ile bir ezcel sayfasındaki yazılı alanları (hücreleri) boyamak istiyorum. Fakat tüm satırı yada sütunu aynı renkte değil. aşağıdaki önekte olduğu gibi yapmak istiyorum. A1 gri iken A2 koyu gri B1 koyu gri iken B2 gri vb....

tşklr...

KravatSATIŞ FATURASIKravatSATIŞ FATURASI

 

[obenim81]

bu konunun bu kadar zor olduğuna inanmıyorum. 1 haftada cevap veren olmadı ama diğer konular gün içerisinde cevaplanıyor.
Umarım bugün cevaplayan uzman yada altın üye yada herhangi biri çıkar

 

[Korhan Ayhan]

Selamlar,

Aramıza hoşgeldiniz. Konu hiç zor değil aslında. Eğer arama yapsaydınız zaten birçok örnek koda ulaşabilirdiniz. Belki arama kriterlerini iyi seçememiş olabilirsiniz.

Aşağıdaki kod ile bir hücrenin arkaplan rengini değiştirebilirsiniz.

Range("A1").Interior.ColoIndex = 16

Eğer yazı fontu rengini değiştirmek isterseniz aşağıdaki kodu kullanabilirsiniz.

Range("A1").Font.ColoIndex = 48

 

[obenim81]

Tşklr. Bu kodu biliyordum döngüyü kuramamıştım ama buldum...

'Dim rapor As Worksheet
'Dim i, j, x, q, k, l, y As Integer

'Set rapor = Worksheets("rapor")
'say1 = WorksheetFunction.CountA(rapor.Range("a:a"))
'say2 = WorksheetFunction.CountA(rapor.Rows(1))

'For i = 2 To say1 Step 2
'For j = 1 To say2 Step 2
'rapor.Cells(i, j).Interior.ColorIndex = 6
'Next j
'For k = 2 To say2 Step 2
'rapor.Cells(i, k).Interior.ColorIndex = 3
'Next k
'Next i
'For x = 3 To say1 Step 2
'For q = 1 To say2 Step 2
'rapor.Cells(x, q).Interior.ColorIndex = 3
'Next q
'For l = 2 To say2 Step 2
'rapor.Cells(x, l).Interior.ColorIndex = 6
'Next l
'Next x
'For y = 1 To say2
'rapor.Cells(1, y).Interior.ColorIndex = 25
'rapor.Cells(1, y).Font.ColorIndex = 14
'rapor.Cells(1, y).Font.Bold = True
'Next y