Bingung dengan judulnya?, Jangan dulu ya, kali ini Excelnoob akan membuat tutorial bagaimana cara membuat hilghlight Cell yang aktif. dimana pada cell yang aktif tersebut akan ada sebuah highlight pada Baris dan Kolomnya. Misalnya ketika Cell aktif yang dipilih adalah Cell H15 maka kolom H dan Baris ke 15 akan diberikan Warna, begitu juga ketika Cell aktif ini dipindah.
Jika masih belum terbayang, bisa dilihat pada contoh gambar dibawah ini
Membuat highligt Pada Baris dan Kolom yang dipilih
Untuk membuat highlight seperti diatas, kamu bisa simak step-step dibawah ini:
- Block Area Range yang akan dibuat highlight untuk baris dan kolom
- Pada Ribbon Menu pilih Menu HOME
- Pilih Conditional Formating dan pilih New Rule
- Pada Windows Conditional Formating, Pilih “Use a formula to determine which cells to format”.
- Masukan Formula =CELL(“col”)=COLUMN() untuk Kolom
- Masukan Formula =CELL(“row”)=ROW() untuk Row
- Klik pada bagian Format dan Atur Warna Fill sesuai Keinginan
- Klik Ok
Step-step diatas adalah untuk memberikan format kepada Cell yang aktif, namun untuk menjalankanya kita perlu sedikit sentuhan VBA dari sebuah Event yang bernanam Selection Change Event. Silahka copy script berikut ini kedalam Sheet.
Visual Basic EditorPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.CutCopyMode = False Then Application.Calculate End If End Sub
Hightlight Type 2
Untuk highlight type dua ini ada sedikit perbedaan dimana warna highlight tidak sampai ke Akhir Area tetapi hanya sampai di Kursor Aktif. Untuk contoh hasilnya bisa dilihat di gambar dibawah ini:
Untuk Highlight type 2 ini tidak menggunakan Conditional Formating tetapi murni sepenuhnya VBA. Untuk code VBA yang digunakan bisa di cek dibawah ini
Visual Basic EditorPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem Auth : ExcelNoob.com
Dim rowN As Integer, colN As Integer
Dim RArea As Range
Set RArea = Range("A1:I13")
Cells.Interior.ColorIndex = 0
If Intersect(ActiveCell, RArea) Is Nothing Then Exit Sub
rowN = ActiveCell.Row
colN = ActiveCell.Column
Range(Cells(1, colN), Cells(rowN, colN)).Interior.ColorIndex = 37
Range(Cells(rowN, 1), Cells(rowN, colN)).Interior.ColorIndex = 37
End Sub
Copy Script diatas pada Sheet module dan lihat hasilnya di Range A1:I13. Selamat mencoba.
Leave a Reply