MEMBUAT TANDA WARNA CELL DENGAN VBA PADA MICROSOFT EXCEL

Bagaimana cara membuat tanda warna cell dengan VBA? Pada dasarnya keahlian Microsoft Excel yang 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 adalah langkah-langkah untuk membuatnya:

• Buka Microsoft Excel, dengan klik start - all programs - Microsoft Office - Microsoft Excel. Disini yang saya gunakan adalah Microsoft Excel 2010. Pastikan pada tab menu nya sudah ada Menu Developer.
  
  
• Setelah Microsoft Excel terbuka, maka buka halaman VBA, dengan klik tab menu developer kemudian pilih Visual Basic.

• Lalu pilih View Code.

• Copy kode dibawah ini misalnya, atau jika Anda ingin membuat kode sendiri juga bisa.

Private Sub worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") = 1 Then

Range("B1") = "Satu"

Range("A1").Interior.ColorIndex = 6

ElseIf Range("A1") = 2 Then

Range("B1") = "Dua"

Range("A1").Interior.ColorIndex = 4

ElseIf Range("A1") = 3 Then

Range("B1") = "Tiga"

Range("A1").Interior.ColorIndex = 3

ElseIf Range("A1") = 4 Then

Range("B1") = "Empat"

Range("A1").Interior.ColorIndex = 5

End If

If Range("C1") = 1 Then

Range("D1") = "Satu"

Range("C1").Interior.ColorIndex = 7

ElseIf Range("C1") = 2 Then

Range("D1") = "Dua"

Range("C1").Interior.ColorIndex = 8

ElseIf Range("C1") = 3 Then

Range("D1") = "Tiga"

Range("C1").Interior.ColorIndex = 9

ElseIf Range("C1") = 4 Then

Range("D1") = "Empat"

Range("C1").Interior.ColorIndex = 5

End If

End Sub

• Setelah itu, klik Run. Lalu, pada sheet 1 di Microsoft Excel ketikkan angka 1 untuk melihat apakah berhasil atau tidak. jika berhasil maka akan muncul warna dan tulisan huruf "satu". seperti ini hasilnya:

Bagaimana hayooo? Mudahkan cara membuatnya? Selamat mencoba ya hihi.....