Cara Menampilkan Jam Berdetak Setiap Detik di Excel

Microsoft Excel kita bisa menampilkan Jam sesuai dengan jam pada komputer yang kita gunakan dengan menggunakan rumus =NOW() dan kemudian mengubah formatnya menjadi Time.

Hasilnya waktu saat itu akan ditampilkan dan waktu tersebut akan di update ketika rumus di refresh dengan cara menekan tombol F9 atau workbook di reopen.

Untuk itu kali ini kita akan belajar bagaimana menampilkan waktu atau jam yang berjalan setiap detiknya di Excel. 

Untuk menampilkan jam yang berdetak setiap detiknya di Worksheet Excel caranya adalah dengan menggunakan Macro, selengkapnya ikuti langkah-langkah berikut ini:

1Buka aplikasi Microsoft Office Excel dan kemudian Simpan Workbook dengan ekstensi *.xlsm atau *.xlsb

2Tekan tombol Alt+F11 untuk membuka Microsoft Visual Basic atau Buka Tab Developer dan klik Visual Basic.

3Tambahkan sebuah Module pada aplikasi Microsoft Visual Basic, dengan cara klik menu Insert - Module.

4Pada Module Code masukkan Script 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

5Untuk menjalankannya tekan Alt+F8 atau pada Tab Developer klik Macros.

6Pada Macro Name pilih Jam dan kemudian klik Run untuk memulai menjalankan macro.

7Hasilnya pada Sheet 1 cell A1 akan ditampilkan jam dengan detik yang terus berjalan. 

8Selanjutnya bisa di tambahkan Shape atau gambar pada Sheet 1 yang nantinya digunakan sebagai tombol Mulai dan berhenti, dengan cara klik menu Insert dan pilih Shapes.

9Pada Shapes untuk Tombol Mulai, klik kanan dan pilih Asign Macro kemudian pilih Macro Mulai dan klik OK, begitupun untuk shapes yang digunakan sebagai Tombol Berhenti, klik kanan dan pilih Asign Macro kemudian pilih Macro Berhenti dan klik OK

Penjelasan Script Macro :
Membuat Dim dengan nama Waktu:

Dim Waktu

Membuat Sub dengan nama Jam untuk menjalankan script Jam yang berjalan setiap detik :

Sub Jam()
...
End Sub

Mengeset Sh sebagai ThisWorkbook.Sheets(1) :

Set Sh = ThisWorkbook.Sheets(1)

Update Waktu hanya berlaku di Sheet 1 pada Workbook ini ( Workbook yang aktif) :

Sh.Calculate

Menampilkan rumus =Now() pada Sheet 1 Cell A1 dan mengubah Formatnya menjadi format Time :

With Sh.Range("A1")
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With

Menjabarkan Waktu dengan bentuk nilai Jam yang selalu diupdate :

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

Kode untuk aplikasi OnTime dengan prosedur Jam :

Application.OnTime Waktu, "Jam"

Membuat Sub Berhenti untuk mematikan detik Jam :

Sub Berhenti()
On Error Resume Next
Application.OnTime Waktu, "Jam", , False
End Sub

Membuat Sub Mulai untuk Memulai menjalankan Macro Jam :

Sub Mulai()
Call Jam
End Sub

Agar Jam mulai berjalan saat Workbook di buka, maka harus ditambahkan script Workbook Open. Caranya adalah:

1Pada Microsoft Visual Basic, klik kanan pada ThisWorkbook yang ada pada VBAProject dan pilih View Code.

2Kemudian Masukkan script berikut ini

Private Sub Workbook_Open()
 Call Mulai 
End Sub