Mewarnai cell/baris atau kolom pada excel sangatlah mudah dengan menggunakan bantuan menu Home – Fill Color

Namun, bagaimana jika kita ingin mewarnai setiap baris secara teratur Biru-Kuning-Hijau-Merah-Biru-Kuning-Hijau-Merah-dst?

Maka dari itu, kita dapat membuat sebuah perulangan dengan menggunakan VBA Excel agar membantu kita dalam mewarnai secara otomatis

Berikut adalah VBA code untuk mewarnai baris:

___________________________________________

For i = 1 To 8
Rows(i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
i = i + 1
Rows(i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
i = i + 1
Rows(i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
i = i + 1
Rows(i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next i

___________________________________________