Home » Microsoft Office » Excel » Row Aktif Berwarna Pada Microsoft Excel

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 donwload kode macro untuk membuat row aktif berwarna pada Microsoft Office Excel klik di sini,jika ada pertanyaan silahkan kasih komentar.

Share to : Facebook | Twitter | Digg | Google | Technorati | Stumbleupon | Delicious | Reddit |

Artikel terkait :

Random Posts :

5 Comments.

  1. Assalamulaikum.
    pak kami coba mnegirim email ke alamat bapak. kolo udah sampe tolong di tanggapi.
    oya bagaimana caranya menambah kolom data siswa.
    disekolah kami siswanya satu kelas ada yang sampe 48 anak.
    trimakasih semoga tidak bosan dengan kami
    wassalamulaikum

  2. selamat datang di XL-mania! :)

    • Yusuf Fahrurrozi

      Eh…. si Bos turun gunung ya….
      wah jadi malu, kalo dilihat rumus Excelnya, abis ramuan dari kampung ketemu pakar Excel ;)
      trims kunjungannya…

  3. mas mo nanya… biar tiap kali buka excel.. macronya jalan. scriptnya ditaruh dibagian mana ya..
    .. newbie nih.. makasih sebelumnya

Leave a Comment