Cara Membuat Label Berkedip Warna-Warni di Sheet Excel dengan Kode VBA

Pada pertemuan kemarin Admin sudah membagikan sebuah kode VBA bagaimana Cara membuat Label berjalan di Form VBA Excel.

Namun pada artikel hari ini kita masih membahas sebeuah kode VBA di Excel yang semua ini terinsfirasi dari kode Visual Basic 6.0 yaitu bagaimaa cara membuat Label berkedip warna warni di sebuah Sheet Excel dengan menggunakan kode VBA yang hasilnya seperti layaknya di form Visual Basic.

Berikut dibawah ini penampakan gambar outputnya :

Label ini Berkedip Warna-warni

Buat Anda yang penasaran bagaimana cara membuatnya yuk ikuti langkah langkah berikut agar tidak tersesat :

1. Buka Excel Anda

2. Aktifkan Tab Developer

3. Pilih Visual Basic  >> Klik Insert Module, jendela Module akan terbuka

4. Pada jendela Module ketik kode dibawah ini :

Sub Berkedip()

With ThisWorkbook.Worksheets("Sheet1").Range("A1").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

5. Langkah selanjutnya Doubel klik ThisWorkBook, jendela Workbook akan terbuka kemudian ketik kode dibawah ini :

Private Sub Workbook_Activate()

Berkedip

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Berhenti

End Sub

6. Langkah terakhir kembali ke Excel di Sheet1, setelah itu ketik kalimat yang akan di buat berkedip ketik di Sheet1 Cell A1

7. Kemudian jalankan kode Anda dengan klik Run Macro (segitiga hijau) atau F5 dan hasilnya perhatikan pada Sheet1 Cell A1.

Simpan File dengan type Excel Macro-Enable Workbook

Demikian pembahasan hari ini tentang  kode VBA Excel untuk membuat label berkrdip, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga sukses....

Related Post: VBA Excel