mungkin bisa dicari jalan lain / tadi belum terfikir...
makro yg tadi hanya melihat apakah semua cell (P5 sd P 38) *sama warnanya*
baru kemudian dukun bertindak !
cara lain,
asal kita tahu* penyebab warna conditional formattng *berarti bisa dibuat
makronya
tolong pak herry jelaskan formula kondisi (bgmana logikanya) untuk pewarnaan
di P5:P38 itu
( yg ada di sisi sudah terlanjur dihapus cond.formattingnya)
sekedar info:
warna yg dikenakan dengan manual itu status warna cell-nya LAIN dibanding
dengan
warna yg dikenakan oleh Conditional Formatting
Coba dicek cell yg diwarnai secara manual = merah
akan kelihat palet warna menunjuk merah
Bila cell (cell itu juga), diberi conditional formatting dan karena memenuhi
syarat
menjadi berwarna HIJAU, jika di cek status-warna cell pada pallet warna teap
hijau
maka makro yg akan bertintak berdasarkan status warna di cell tentu akan ...
kecele...
2011/4/16 Herry Sutjipto <herry...@yahoo.com>
> Dear mBak STDEV(i),
> Waduh ..... padahal pewarnaan cell tsb memang dengan Conditional Formating.
> Jadi ..... nggak ada jalan lain kecuali secara manual?
> Wah .. wah ... kalu gitu perlu dilaporkan ke Bambang Gentolet (BG).
>
> Regards
> Herry Sutjipto
> *From:* STDEV(i) <setiyowati.d...@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Saturday, April 16, 2011 3:03 PM
> *Subject:* Re: [belajar-excel] Memberi warna sheet-name
>
>
> script ini tidak berlaku jika pewarnaan cell karena Conditional Formatting
>
> Private Sub Worksheet_Deactivate()
> Dim Kolor, r As Long
> Kolor = Me.Range("P5").Interior.Color
> For r = 5 To 38
> If Not Range("P" & r).Interior.Color = Kolor Then
> Me.Tab.Color = vbWhite
> Exit Sub
> End If
> Next
> Me.Tab.Color = Kolor
> Me.Tab.TintAndShade = 0
> End Sub
>
>
