Color Active Cell

         Color active Cell

mewarnai cell aktif tidak terlepas dari kode Warna Properti
yang diaplikasi dengan sebuah nilai
cek pembahasan sebelumnya yakni color indek
Cara  juga hanya perlu membuat sebuah modul
Pastekan kode berikut

Private Sub CommandButton1_Click()
Selection.Cells.Font.ColorIndex = 1  ' 5=Biru
Selection.Cells.Interior.ColorIndex = 8  ' 5=Biru
Unload Me
End Sub

Private Sub CommandButton2_Click()
Selection.Cells.Font.ColorIndex = 2  ' 5=Biru
Selection.Cells.Interior.ColorIndex = 3  ' 5=Biru
Unload Me
End Sub

Selesai
Silahkan dicoba dilembar kerja excel anda