Setelah bisa membuat tulisan berkedip di Word 2007, pertanyaanya adalah : apakah mungkin kita bisa membuat tulisan berkedip di Excel 2007?

Sebenarnya di Excel tidak disediakan fungsi untuk membuat tulisan berkedip, baik itu excel 2007, 2010 maupun excel versi sebelumnya. Hal ini dikarenakan tulisan berkedip, programnya harus di-run secara berkala (per detik atau beberapa detik sekali) , sehingga hal ini akan menggangu kinerja Excel secara keseluruhan.

Namun apabila anda ingin membuat tulisan berkedip, berikut ini adalah macro yang dapat anda jalankan

1. Di Excel, buka tab DEVELOPER, klik VISUAL BASIC

2. Klik kanan pada VBAProject (NamaFileAnda), lalu pilih New Module

3. Pastekan kode berikut ini:

Dim NextTime As Date
Sub Flash()
  NextTime = Now + TimeValue("00:00:01")
  With Cells(1, 1).Font
       If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
  End With
  Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
   Application.OnTime NextTime, "Flash"
   Application.OnTime NextTime, "Flash", schedule:=False
   Cells(1, 1).Font.ColorIndex = xlAutomatic
End Sub

4. Di ThisWorkbook, pastekan kode berikut ini

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
   Calculate
    If Cells(1, 1).Value > 1000 Then
        Flash
    Else
        StopIt
    End If
End Sub

5. Nah, sekarang kembali ke Excel. Klik Sheet1. Di A1 tulis angka 5000 (pokoknya lebih besar daripada 1000), maka akan muncul angka berkedip warna merah

Istilah Pencarian: