Membuat Tulisan Berkedip Di Excel 2007

Posted by

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.

”Tidak

Tulisan berkedip di Excel Sangat tidak direkomendasikan, karena akan memperlambat perhitungan excel anda.
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

”Catatan”

Didalam program diatas, saya telah menentukan sel berkedip adalah  Cells(1,1). Bila anda ingin sel lain, ganti Cells(1,1) dengan alamat lain. Demikian juga dengan ColorIndex, saya memberi nilai 2 (warna merah) dan 1 (warna putih). Kalau anda ingin warna yang lain, ganti saja colorIndexnya

Source : http://harisaryono.com/2012/06/membuat-tulisan-berkedip-di-excel-2007/


DR.CB
MS. Office TutorialUpdated at : March 30, 2013

0 comments:

Post a Comment