Membuat Jam Digital di Worksheet
Pada layar komputer Jam bisa terlihat pada pojok kanan bawah bagi pengguna Windows. Sehingga ketika menggunakan Microsoft Excel dan ingin melihat jam saat ini, cukup arahkan pandangan ke pojok kanan bawah.
Namun ada beberapa anggota group yang bertanya bagaimana membuat Jam digital yang realtime terus berjalan pada lembar kerja excel.
Untuk menjawab hal tersebut disini saya coba buatkan jam digital yang ditampilkan pada worksheet.
karena berada didalam worksheet, Jam digital ini tidak menggunakan Looping tetapi menggunakan teknik recursive. Agar proses VBA tidak terlalu membebani Worksheet saat melakukan proses input atau edit di range.
Bahan:
Siapkan 2 tombol Play dan Stop dan letakan pada B1 dan C1
Script untuk menjalankan Jam digital pada worksheet bisa ditulis seperti ini:
Dim Waktu
Private Sub JalankanJam()
Dim Sh As Worksheet
Set Sh = Sheet1
With Sh.Range("A1")
.Value = Now
.NumberFormat = "hh:mm:ss AM/PM"
End With
Waktu = Now + TimeValue("00:00:01")
Application.OnTime Waktu, "JalankanJam"
End Sub
Kemudian agar jam digital ini bisa dijalankan dan diberhentikan dengan tombol, pada tombol Play tulis script seperti ini:
Sub BtPlay_Click() Call JalankanJam End Sub
Sedangkan pada tombol stop tulis script seperti ini
Sub BTStop_Click() On Error Resume Next 'Schedule waktu di hentikan Application.OnTime Waktu, "JalankanJam", , False End Sub
