Row Aktif Berwarna Pada Microsoft Excel

Awalnya saat proses ujicoba Propenil di sekolah, banyak Bapak/ Ibu guru yang sudah berusia diatas 45 tahun kerepotan saat memasukkan data pada lembar Nilai Harian. Lha ya jelas repot untuk yang mulai berusia lanjut, karena tab dan header tidak kelihatan alias sembunyi (tidak ditampilkan), padahal barisnya cukup panjang. Karena ‘kerepotan’ tersebut saya berpikir bagaimana caranya agar bisa diatasi. Karena muter-muter tidak ketemu solusinya, akhirnya bertanya master-master Excel di forum excelmania.com dan akhirnya… Ketemu deh solusinya. 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:

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

Yang ini menjadikan row menjadi berwarna

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

Leave a Comment


NOTE - You can use these HTML tags and attributes:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>