Dimodif dikit jadinya seperti ini :
Private Sub Worksheet_Selection
'codedBy: siti©Vi
Static OldTarget As Range
If Not OldTarget Is Nothing Then _
OldTarget.EntireRow
If Not OldTarget Is Nothing Then _
OldTarget.EntireCol
With Target.EntireRow.
.ColorIndex = 6
.Pattern = xlSolid
End With
With Target.EntireColumn
.ColorIndex = 6
.Pattern = xlSolid
End With
With Target.Cells.
.ColorIndex = 17
.Pattern = xlSolid
End With
Set OldTarget = Target
End Sub
Thanks Buat Bu Siti, tabelku sekarang jadi lebih user friendly... J
From: XL-mania@yahoogroup
Sent: 23 Juni 2010 15:48
To: XL-mania@yahoogroup
Subject: Re: ]] XL-mania [[ Row aktif berwarna
genee kaleee...
Private Sub Worksheet_Selection
Static OldTarget As Range
If Not OldTarget Is Nothing Then _
OldTarget.EntireRow
With Target.EntireRow.
.ColorIndex = 6
.Pattern = xlSolid
End With
Set OldTarget = Target
End Sub
2010/6/23 Roji Bahaudin <dagmedt@gmail.
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
| momod akan terdampar seminggu lagi, moderasi akan lemodmod... |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário