Blink Cells Nilai Tertentu

Kali ini saya akan buat tutorial bagaimana membuat sebuah cells blink atau berkedip kedip berdasarkan nilai tertentu.

Pada contoh kali ini, sesuai pertanyaan, saya akan membuat cells Blink atau berkedip ketika nilai pada cells tersebut berisi 0 atau dibawah 0

Untuk kebutuhan tutorial ini disini saya siapkan sebuah data seperti dibawah ini, dilengkapi dengan tombol play dan stop untuk mulai dan berhenti animasi blink pada cells.

Setelah tombol dibuat, simpan script dibawah ini pada standard module

Dim waktu
Sub JalankanCek()
Dim Areanya As Range
Dim Nilai As Range

Set Areanya = Sheet1.Range("D4:D12")

For Each Nilai In Areanya
    If Nilai <= 0 Then
        If Nilai.Font.Color = vbRed Then
            Nilai.Font.Color = vbWhite
            Nilai.Interior.Color = vbRed
        Else
            Nilai.Font.Color = vbRed
            Nilai.Interior.Color = xlNone
        End If
    Else
        Nilai.Interior.Color = xlNone
        Nilai.Font.Color = 1
    End If
Next
waktu = Now + TimeValue("00:00:01")
Application.OnTime waktu, "JalankanCek"
End Sub

Selanjutkan tambahkan script dibawah ini pada tombol Play atau Mulai

Sub Mulai()
Call JalankanCek
End Sub

Lalu simpan script dibawah ini pada tombol berhenti

Sub Berhenti()
On Error Resume Next
Application.OnTime waktu, "JalankanCek", , False
End Sub

Blinking Cells sudah selsai dibuat, silahkan klik tombol mulai untuk memulai menampilkan blinking cells dan klik stop untuk berhenti nemampilkan blink cells.

Jika masih kesulitan dalam proses pembuatannya, silahkan lihat video tutorialnya pada video dibawah ini

File pada tutorial ini juga bisa didownload melalui link dibawah ini.

List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search