Teks berkedip

Insert --> Module
Copy Kode sebagai berikut :
Public RunWhen As Double Sub Berkedip() With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font If .ColorIndex = 5 Then ' Warna biru .ColorIndex = 2 ' Warna putih Else If .ColorIndex = 2 Then ' Warna hijau .ColorIndex = 3 ' Warna merah Else .ColorIndex = 5 ' Warna biru End If End If End With RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , True End Sub Sub Berhenti() On Error Resume Next ThisWorkbook.Worksheets("Sheet1").Range("A1").Font.ColorIndex = xlColorIndexAutomatic Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , False End Sub

Keterangan :

• Teks yang akan berkedip terletak pada Sheet1 dan sel A1
Worksheets("Sheet1").Range("A1")
• Module ini akan merubah teks menjadi warna merah - biru - putih secara simultan
ColorIndex = 5 ...
• perubahan warna teks akan terjadi setiap hitungan 1 detik
TimeSerial(0, 0, 1)

lalu copy paste code berikut ke dalam ThisWorkbook
Private Sub Workbook_Activate() Berkedip End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Berhenti End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Berhenti End Sub

Langkah terakhir adalah Ketikkan teks pada Sheet1 sel A1, kemudian simpan file anda dengan type Excel Macro-Enable Workbook. Hasil dari efek ini bisa terlihat ketika file ini dibuka atau file ini diaktifkan, dan akan secara otomatis berhenti ketika file tertutup.