Membuat Teks Berkedip

Membuat Teks Berkedip


Fitur bawaan microsoft excel untuk menghiasi sel bisa diakses dengan klik kanan pada mouse lalu pilih Fomrat Cells, anda akan menemukan pengaturan yang semuanya untuk mengatur gaya sel mulai dari membuat border ( garis tepi ) mewarnai kolom, mewarnai baris, membuat tampilan font menjadi tebal (bold) atau membuat warna font menjadi warna warni, merubah ukuran font dan lain lain banyak sekali. Jikalau seabrek fitur tersebut masih kurang berikut ini saya akan memberikan tips untuk membuat font berkedip (Teks Berkedip (Blink) Excel)

Membuat Teks Berkedip (Blink) bisa digunakan untuk menandai kolom atau baris yang dianggap penting atau sebagai hiasan saja agar terlihat berbeda dengan yang lainnya, yang dimaksud berkedip disini adalah nantinya font tertentu yang dipilih akan berubah rubah warnanya menjadi merah kuning hijau dilangit yang biru. Untruk membuat Teks Berkedip (Blink) ikuti tips berikut ini

Buka microsoft excel save as enable macro
Buka jendela VBE ( tekan Alt + F11)
Buat atau insert Module, ketikan baris kode macro dibawah ini kedalam module tersebut
Public RunWhen As Double
Sub Berkedip()
With ThisWorkbook.Worksheets("Sheet1").Range("A1:A100").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
Untuk memanggil fungsi yang telah dibuat pada module tersebut anda bisa menggunakan tombol commandbutton atau letakan saja kode macro dibawah ini kedalam 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

Untuk mencobanya silahkan kembali ke worksheet, ketikan huruf atau angka pada kolom A, tekan tombol Alt + F8 pilih Berkedip agar teks yang ada pada kolom A berkedip dan pilih Berhenti untuk menghentikan kedipan

Demikianlah cara Membuat Teks Berkedip berbasis microsoft excel, jika anda menemukan kesulitan silahkan tulis kendala dan kesulitan yang anda temukan pada kolom komentar dibawah ini ( anda juga bisa menyisipkan gambar pada kolom komentar sebagaimana komentar di facebook), saya juga telah mengupload file sampel Membuat Teks Berkedip berbasis microsoft excel di Google Drive dan bisa anda download dilink download dibawah.
Akhir akhir ini banyak sekali komplain mengenai susahnya download di www.box.com, setalah saya amati ternyata kesulitan ini bisa diatasi dengan dua cara yaitu donwload di wwww.box.com dengan menggunakan HP, dan yang kedua yaitu anda harus mempunyai akun di box.com
Dan mulai saat ini saya menggunakan Google drive sebagai penyimpanan sampel tutorial


Share this: