Re: ]] XL-mania [[ Row aktif berwarna

[Daniel Erwin Hendrajaya]

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