Cara Menampilkan Jam Berdetak Setiap Detik di Microsoft Excel

Cara Menampilkan Jam Berdetak Setiap Detik di Microsoft Excel 
 

Kali ini kita akan belajar tentang cara menampilkan jam di Microsoft Excel.
Dalam Ms.Excel kita dapat menampilkan jam dengan menggunakan fungsi =NOW(), tetapi yang tampil adalah jam pada saat itu juga, namun kekurangannya kita harus mereload/refresh untuk menampilkan waktu yang baru. Selain cara diatas, kita dapat menampilkan jam dengan memanfaatkan Macro pada Ms.Excel. Jam ini memiliki kelebihan yaitu dapat berdetak setiap detiknya sehingga kita tidak perlu melakukan reload/refresh. Dibawah ini akan dijelaskan cara membuat jam yang berdetak setiap detik :

1. Buka Aplikasi Microsoft Office Excel

2. Simpan Workbook dengan ekstensi *.xlsm atau *xlsb

3. Buka Tab Developer dan pilih Visual Basic 

maka akan muncul jendela Visual Basic seperti gambar dibawah ini :

3. Tambahkan Module pada Visual Basic dengan cara klik kanan pada This Workbook

4. Pada Module masukkan kodingan berikut :

Dim Waktu

Sub Jam()

Set Sh = ThisWorkbook.Sheets(1)

Sh.Calculate

With Sh.Range("A1")

.FormulaR1C1 = "=Now()"

.NumberFormat = "hh:mm:ss AM/PM"

End With

Waktu = Now + TimeValue("00:00:01")

Application.OnTime Waktu, "Jam"

End Sub

Sub Berhenti()

On Error Resume Next

Application.OnTime Waktu, "Jam", , False

End Sub

Sub Mulai()

Call Jam

End Sub

5. Kembali ke Workbook dan jalankan dengan menekan tombol Alt+F8 atau dari 

    Tab Developer pilih Macro

6. Pada Macro Name pilih Jam kemudian klik Run maka pada sheet 1 akan tampil 

    jam yang berdetak setiap detik

Anda dapat merubah letak jam dengan mengganti angka dari kode diatas :

Set Sh = ThisWorkbook.Sheets(1) 

Letak Jam adalah pada Sheet1. Untuk mengganti sheet gantilah angka didalam kurung sesuai keinginan

With Sh.Range("A1")

Letak jam adalah pada Range A1. Untuk mengganti Range gantilah angka didalam kurung.