Sub BuatKondisiWarna () Cells.FormatConditions.Delete
Columns("$A:$A").Select
' Kolom B dan C kosong tanpa warna
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(COUNTA($B:$B)=0,COUNTA($C:$C)=0)"
With Selection.FormatConditions(1).Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).SetFirstPriority
' Kolom C isi Biru
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTA($C:$C)>0"
With Selection.FormatConditions(2).Interior
.PatternColorIndex = 0
.Color = 10192433
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(2).StopIfTrue = True
' Kolom B isi merah
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTA($B:$B)>0"
With Selection.FormatConditions(3).Interior
.PatternColorIndex = 0
.Color = 10192344
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(3).StopIfTrue = True
end sub
To: [email protected]
From: [email protected]
Date: Fri, 9 Mar 2012 11:18:58 +0700
Subject: [belajar-excel] Tanya cara bikin kolom agar bisa berubah-ubah warna
Selamat Siang Para Master Excel,
Mau nanya nih, bagaimana caranya agar kolom yang telah diberi conditional
formatting (kolom berwarna), bisa berubah-ubah warna-nya jika dilakukan input
data pada kolom lainnya? Maksudnya seperti ini : jika saya melakukan input data
di kolom B, maka kolom A akan berubah warna menjadi biru, dan jika saya
melakukan input data di kolom C, maka kolom A berubah menjadi merah, dan
seterusnya. Dalam hal ini, hanya kolom A saja yang warnanya berubah-ubah. Mohon
dishare rumus atau formulanya ya… saya menggunakan excel 2003.
terima kasih.
Best Regards,
Sukardi
