Bagaimana cara membuat tanda warna cell dengan VBA? Pada dasarnya kesaktian Microsoft Excelyang satu ini bekerja pada halaman Visual Basic of Application (VBA) di Excel, dengan menggunakan code VBA dapat membuat highlight atau tanda warna pada cell. Misalnya tanda warna ini bisa kita masukan pada lembar kerja Excel yang fungsinya untuk menandai baris dan kolom dengan warna secara otomatis. Untuk lebih jelasnya, berikut ulasan lengkapnya.
Misalkan terdapat data pendukuk seperti dibawah ini.
Selanjutnya pada keyboard tekan tombol ALT + F11, maka akan terbuka halaman VBA. Nah, kemudian Simpan dengan nama warna_cell.xls, kemudian klik tulisan Sheet1(Sheet1) dan masukan rumus berikut.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
Cells.Interior.ColorIndex = 0
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
For i = 1 To rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 37
Next i
For j = 1 To columnNumberValue
Cells(rowNumberValue, j).Interior.ColorIndex = 37
Next j
End Sub
Seperti tampilan berikut.
Setelah kode di masukan, kemudian kembali lagi ke lembar kerja Microsoft Excel, lalu lihat apa yang terjadi. Maka secara otomatis jika Anda menggeser atau menempatkan kursor pada salah satu cell akan terdapat warna di baris dan kolom cell tersebut.
No comments:
Post a Comment