Sub BuatKondisiWarnaPerSel()
Cells.FormatConditions.Delete
Dim daerah As Range
Set daerah = Range("$C:$C")' dimulai dari sel C3 sampai akhir baris
Set daerah = Range("C3").Resize(daerah.Rows.Count - 3, 1)
daerah.Select
' sel di Kolom D E, dan F kosong tanpa warna
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(COUNTA($D3:$D3)=0,COUNTA($E3:$E3)=0,COUNTA($F3:$F3)=0)"
With Selection.FormatConditions(1).Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).SetFirstPriority
' sel di Kolom F isi Biru
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTA($F3:$F3)>0"
With Selection.FormatConditions(2).Interior
.PatternColorIndex = 0
.Color = 10192433
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(2).StopIfTrue = True
' sel di Kolom E isi Kuning
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTA($E3:$E3)>0"
With Selection.FormatConditions(3).Interior
.PatternColorIndex = 0
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(3).StopIfTrue = True
' sel di Kolom D isi merah
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTA($D3:$D3)>0"
With Selection.FormatConditions(4).Interior
.PatternColorIndex = 0
.Color = 10192344
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(4).StopIfTrue = TrueEnd Sub
To: belajar-excel@yahoogroups.com
From: sukardi...@gmail.com
Date: Fri, 9 Mar 2012 16:10:57 +0700
Subject: Re: [belajar-excel] Tanya cara bikin kolom agar bisa berubah-ubah warna
Terima kasih atas masukannya Pak. Mohon maaf sebelumnya jika saya tidak
melampirkan contoh dalam pertanyaan saya sebelumnya. Dan maaf ya jika ada
kesalahan penyebutan cell maupun kolom karena masih awam dengan istilah di
excel. Mohon bimbingannya.
Terlampir contoh tabel yang saya maksud.
Terima kasih.
Salam,
Sukardi
Pada 9 Maret 2012 14:50, Ki Semprul <semprul...@gmail.com> menulis:
ADA BERAPA KOLOM YG AKAN DIISI, sebanyak itu pula lah KONDISI yg harus dibuat.
Tanpa makro, Anda hanya bisa membuat 3 KOLOM penyebab berubahnya warna di kolom
A,
karena fitur conditional formatting di excel 2003, katanya, hanya terbatas 3
kondisi + 1 tanpa kondisi.
di sini belum dapat dibuatkan contohnya, karena anda masih menyebut KOLOM.
KOLOM itu ada 65536 cell kalau hanya disebut kolom saja, belum jelas, CELL MANA
kah
yg akan dijadikan kondisi dlm conditional formatting.
Jangan jangan anda mengisi C5 tetapi ingin cell yg berubah = A2
Kalau mau seriusss lampir&kirimkan contoh data (tabel kecil saja) dlm workbook
(*.xls)
Jika anda datang bukan sbg pendekar "bertangan kosong" (gak bawa sheets data
gitu loch..),
maka insyaallah anda akan pulang dengan tangan berisi pula..
Para calon penaggap agak bersemangat karena tidak ferlu beKERJA-BHAKTI dulu
membuatkan woksit nya...
Semprul..Ki!
2012/3/9 Sukardi <sukardi...@gmail.com>
> 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
--
Best Regards,
ζυκαrϑi 林志偉
Whatever risk, yet go forward, keep trying, keep doing !
