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
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search