Silakan dicoba :
Dim cf As FormatCondition
On Error Resume Next
If Target.Rows.Count = 1 Then
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions.Add(xlExpression,
Formula1:="=row()=row()")
.Interior.ColorIndex = 6
End With
End If
Jika dengan Excel 2007, tidak perlu buang yang lama kemudian cipta yang
baru, tetapi cukup gunakan metode ModifyAppliesToRange dengan input
parameter adalah range yang akan dikenai conditional formatting
Kid.
2010/6/23 Roji Bahaudin <[email protected]>
>
>
> Dear Pakar2 Excel
> Saya lagi punya masalah, beberapa kali ngutek-utek macro belum berhasil.
> Saya pingin ketika klik sebuah kolom, maka row-nya menjadi warna kuning,
> saat pindah kolom maka row yg tidak aktif warnanya kembali normal. Akan
> tetapi tidak mempengaruhi warna kolom jika sudah ada warnanya.
> pada file lampiran, row bisa berwarna kuning, tetapi saat pindah kolom
> warna row yang tidak aktif tetap kuning, kira2 giman ya scriptnya...
> Mohon bantuannya
>
>
