kreatif.... !!
cuma nembahin dikit...di bagian ini
If Not OldTarget Is Nothing Then _
OldTarget.EntireRow.Interior.ColorIndex = xlNone
If Not OldTarget Is Nothing Then _
OldTarget.EntireColumn.Interior.ColorIndex = xlNone
bisa diubah menjadi ini
If Not OldTarget Is Nothing Then
OldTarget.EntireRow.Interior.ColorIndex = xlNone
OldTarget.EntireColumn.Interior.ColorIndex = xlNone
*End If*
2010/6/24 Ahmad Adriansyah <[email protected]>
> Dimodif dikit jadinya seperti ini :
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> 'codedBy: siti©Vi
>
> Static OldTarget As Range
>
> If Not OldTarget Is Nothing Then _
>
> OldTarget.EntireRow.Interior.ColorIndex = xlNone
>
> If Not OldTarget Is Nothing Then _
>
> OldTarget.EntireColumn.Interior.ColorIndex = xlNone
>
>
>
> With Target.EntireRow.Interior
>
> .ColorIndex = 6
>
> .Pattern = xlSolid
>
> End With
>
> With Target.EntireColumn.Interior
>
> .ColorIndex = 6
>
> .Pattern = xlSolid
>
> End With
>
> With Target.Cells.Interior
>
> .ColorIndex = 17
>
> .Pattern = xlSolid
>
> End With
>
> Set OldTarget = Target
>
> End Sub
>
>
>
> Thanks Buat Bu Siti, tabelku sekarang jadi lebih user friendly... J
>
>
>
>
>
> *From:* [email protected] [mailto:[email protected]] *On
> Behalf Of *stdev(i)
> *Sent:* 23 Juni 2010 15:48
>
> *To:* [email protected]
> *Subject:* Re: ]] XL-mania [[ Row aktif berwarna
>
>
>
>
>
> *genee kaleee...*
>
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> 'codedBy: siti©Vi
> Static OldTarget As Range
> If Not OldTarget Is Nothing Then _
> OldTarget.EntireRow.Interior.ColorIndex = xlNone
>
> With Target.EntireRow.Interior
> .ColorIndex = 6
> .Pattern = xlSolid
> End With
> Set OldTarget = Target
> End Sub
>
>
> 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
>
>
>
>
>
>
>
