Manfaat Excel Lebih Jauh

 

Cells(5, 5).Interior.Color = vbYellow

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(5, 5).Interior.Color = xlNone

 

Cells(7, 5).Interior.Color = vbGreen

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(7, 5).Interior.Color = xlNone

 

End Sub

Jadi di sini warna akan berubah-ubah dari warna merah, kuning dan hijau. Di sini juga ada delay yang berfungsi supaya warna tersebut berubah tidak terlalu cepat.