Visi Della

Untuk mengubah Cell A1 menjadi berwarna yang berubah-ubah saat diganti nomer dari 1-6 dan membuat cell A2 menyebutkan angka terbilang dalam hurufnya, seperti berikut ini:

Pada tab developer lalu klik ribbon MACROS disebelah kiri, lalu ketik nama macro tanpa spasi dan klik create, seperti itu


Lalu pada macro tersebut klik Insert, klik Userforms lalu klik pada sheet yang aktif worksheet dan masukkan koding dibawah ini pada kolomnya:

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 = 7
ElseIf Range("A1") = 5 Then
   Range("B1") = "Lima"
   Range("A1").Interior.ColorIndex = 9
ElseIf Range("A1") = 6 Then
   Range("B1") = "Enam"
   Range("A1").Interior.ColorIndex = 8
End If
End Sub


*catatan 6 indeks warna kuning, 4 indeks warna hijau, 3 indeks warna merah bata, 7 indeks warna  ungu, 9 indeks warna merah marun, dan 8 indeks warna turquoise.

JANGAN LUPA UNTUK SAVE MACRO

Setelah selesai memasukkan koding, maka tekan F5 atau klik run macro pada worksheet aktif

Lalu setelah kalian ganti-ganti angkanya, maka akan berubah-ubah juga hasilnya pada cell B1 dan warna pada cell A1