Font Blinking di Excel

Excel tidak punya fitur untuk membuat teks berkedip.  (catatan: blinking teks sangat mengganggu orang yang membaca pesan anda jika pesannya banyak). Untuk membuat teks berkedip, Anda harus menjalankan prosedur secara berkala untuk mengubah warna font teks. Metode OnTime dalam VBE dapat digunakan untuk menjalankan prosedur itu. Anda dapat menggunakan module VBA sbb:

Download file:  Blinking excel 2007.zip

Blinking excel 97-2003.zip

Prosedur untuk Teks Blinking

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets(“Sheet1”).Range(“A1”).Font
If .ColorIndex = 3 Then ‘ Red Text
.ColorIndex = 2 ‘ White Text
Else
.ColorIndex = 3 ‘ Red Text
End If
End With
RunWhen = Now + TimeSerial(0,0,1)
Application.OnTime RunWhen, “‘” & ThisWorkbook.Name & “‘!StartBlink”, , True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets(“Sheet1”).Range(“A1”).Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, “‘” & ThisWorkbook.Name & “‘!StartBlink”, , False
End Sub

Kemudian dalam module ThisWorkbook, masukan kode berikut:

Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

3 Comments

Leave a Reply

Your email address will not be published. Required fields are marked *