Pak Roji,
Maksudnya kalau pindah row ya?
bisa menggunakan flag sebagai penanda last row-nya.
Taruh script ini di worksheet yang mau diberi baris kuning.
Dim flag As Integer
Private Sub Worksheet_Activate()
flag = 1
End Sub
Private Sub Worksheet_Deactivate()
For i = 1 To 1000
Cells(i, 1).EntireRow.Interior.ColorIndex = xlNone
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(flag, 1).EntireRow.Interior.ColorIndex = xlNone
ActiveCell.Activate
With Selection.EntireRow.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
flag = ActiveCell.Row
End Sub
Wednesday, June 23, 2010, 10:38:55 AM, you wrote:
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
_._,___
--
Best regards,
Daniel
| 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