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 pada kolom excel 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.
Semoga artikel yang saya uraikan diatas bermanfaat bagi saya pribadi dan kita semua, baca juga cara membuat teks diuserform bergerak, aamiin
No comments