Countdown Timer

Countdown Timer merupakan sebuah rangkaian atau urutan penghitungan mundur untuk menunjukkan waktu yang tersisa sebelum sebuah event dijadwalkan untuk terjadi. Artikel Countdown Timer ini saya ambil dari blog rumah excel dan saya bermaksud untuk membagikannya untuk anda yang kangen dengan blog rumah excel, semoga empunya rumah excel meridhoi langkah saya ini.

Kita lanjutkan ke topic Countdown Timer, Hitungan countdown seringkali dijumpai menjelang pergantian tahun di mana semua secara serentak menghitung mundur dari angka xxx (ditentukan tergantung pengguna) menuju angka 1 sampai akhirnya terjadi diangka 0 (Nol), dan ketika sudah hitungan sudah berada di angka 0 maka sebuah event akan terjadi dan dilaksanakan.

Inilah konsep sederhana dari tutorial kali ini, VBA countdown Timer atau cara membuat hitungan mundur menggunakan Microsoft excel visual basic for aplicationt Macro VBA.

Kita mulai cara Countdown Timer atau cara membuat hitungan mundur menggunakan Microsoft excel visual basic for aplicationt Macro VBA

Langsung saja menuju jendela Visual basic editor VBE
Gunakan Userform dengan 1 control Textbox dan 2 control Commandbutton, lihat gambar dibawah ini

Kemudian masukan kode macro dibawah ini

Private Sub CommandButton1_Click()
If TextBox1 = vbNullString Or TextBox1 = 0 Then
    TextBox1.SetFocus
    MsgBox "silahkan masukkan angka di kotak yang tersedia"
    Else
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
    TextBox1.Locked = True
    Call Timer
    End If
End Sub

Private Sub CommandButton2_Click()
Call DisableTimer
CommandButton1.Enabled = True
CommandButton2.Enabled = False
    TextBox1.Locked = False
End Sub

Private Sub UserForm_Activate()
CommandButton1.Caption = "Start"
CommandButton2.Caption = "Stop"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call DisableTimer
End Sub

Masukan kode macro dibawah ini agar textbox hanya bias diisi angka saja

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
End Select
End Sub

Satu lagi buat modul, dan masukan koe macro dibawah ini kedalam modul

Dim CountDown As Date
Sub Timer()
CountDown = Now + TimeValue("00:00:01")
Application.OnTime CountDown, "Reset"
End Sub

Sub Reset()
Dim count As Variant
Set count = UserForm1.TextBox1
count.Value = count.Value - 1
If count <= 0 Then
UserForm1.Hide
MsgBox "Countdown selesai..."
Exit Sub
End If
Call Timer
End Sub

Sub DisableTimer()
On Error Resume Next
Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub

Simpan dengan save as enabled macro
Selesai

Countdown Timer merupakan artikel pertama dan alan berlanjut, berlanjut untuk membuat artikel yang saya ambil langsung dari blog rumah excel, semoga bermanfaat
Penasaran ? silahkan download Countdown Timer pada link download dibawah ini.

Download Countdown Timer