Membuat Tanda Warna Pada Cell dengan VBA di Microsoft Excel

1. Pertama buka Microsoft Excel, kemudian klik Tab Developer. Pastikan anda telah mengaktifkan menu Tab Developer.

2. Pada Tab Developer, klik Visual Basic atau dengan menekan tombol Alt + F11.

3. Jendela Visual Basic terbuka, lalu pilih menu View > Code.

4. Kemudian copy kode dibawah ini.

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

5. Setelah Kode tersebut diisi, klik Run.Kemudian kembali ke jendela Micosoft Excel, pada sheet 1 ketiklah angka 1/2/3/4 untuk melihat perubahan tanda pada cell sheet 1.

Untuk Download Filenya : Click Here