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:
Source : http://harisaryono.com/2012/06/membuat-tulisan-berkedip-di-excel-2007/
”Tidak
Tulisan berkedip di Excel Sangat tidak direkomendasikan, karena akan memperlambat perhitungan excel anda.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 Sub4. 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 colorIndexnyaSource : http://harisaryono.com/2012/06/membuat-tulisan-berkedip-di-excel-2007/
0 comments:
Post a Comment