kreatif.... !!
cuma nembahin dikit...di bagian ini
If Not OldTarget Is Nothing Then _
OldTarget.EntireRow
If Not OldTarget Is Nothing Then _
OldTarget.EntireCol
bisa diubah menjadi ini
If Not OldTarget Is Nothing Then
OldTarget.EntireRow
OldTarget.EntireCol
End If
Dimodif dikit jadinya seperti ini :
Private Sub Worksheet_Selection
Change(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.EntireCol
umn.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: XL-mania@yahoogroup
s.com [mailto:XL-mania@yahoogroups.com ] On Behalf Of stdev(i)
Sent: 23 Juni 2010 15:48
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 <dagmedt@gmail.
com >
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 kolomwarna row yang tidak aktif tetap kuning, kira2 giman ya scriptnya...
Mohon bantuannya
| jangan lupa sebelum bertanya, cek dulu www.XL-mania.com dan |
| http://tech.groups.yahoo.com/group/XL-mania/messages |
| 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