Row Aktif Berwarna dalam Propenil

Capek ngedit template bloggger, iseng-iseng posting artikel tentang Propenil. Sudah dijelaskan pada artikel sebelumnya, juga sudah diposting pada website yang masih error, bahwa Propenil memudahkan guru dalam mengolah nilai selama satu tahun. Salah satu hal yang dirasa cukup membantu, khususnya untuk guru yang mulai beranjak tua, adalah fitur row aktif berwarna. Dengan fitur ini maka baris (row) yang diselect akan berada dalam kotak berwarna. Dengan demikian lebih memudahkan dalam pekerjaan, karena tab dan header tidak kelihatan alias sembunyi (tidak ditampilkan), padahal barisnya cukup panjang. Script macro saya peroleh dari master-master Excel  di forum excelmania.com dan akhirnya… bagi-bagi pengetahuan. Trims Bapak Anton Suryadi atas scriptnya. Nih dia scriptnya lewat macro :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.Shapes(“line”)
    .Top = Cells(ActiveCell.Row, ActiveCell.Column).Top
    .Left = Cells(ActiveCell.Row, 1).Left
    .Width = Range(“A1:P1?).Width
    .Height = Cells(ActiveCell.Row, ActiveCell.Column).Height
    End With
    End Sub

• Setelah anda copy-paste script diatas, selanjutnya buatlah shape Rectangle, dengan parameter Fill Color : No Color. Shape namanya diganti menjadi line.
• Khusus yang memakai Office 2007 gunakan zoom 100% agar shape “line” bekerja dengan manis.

Selain script di atas ada beberapa cara lain ilmu dari excelmania.com misalnya kode dari Ibu siti©Vi. Row menjadi berwarna :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    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

Atau yang ini

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    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

Untuk melihat sampelnya silahkan download di sini.