Cara Menampilkan Jam Berdetak Setiap Detik Di Excel

RumusExcel.com – Dalam Microsoft Excel kita dapat menampilkan Jam sesuai dengan jam pada komputer yang kita gunakan dengan memakai rumus =NOW() dan kemudian mengubah formatnya menjadi Time, jadinya waktu dikala itu akan ditampilkan dan waktu tersebut akan di update ketika rumus di refresh atau workbook di reopen. Untuk itu kali ini kita akan berguru bagaimana menampilkan waktu atau jam yang berjalan setiap detiknya di Excel.

 Dalam Microsoft Excel kita dapat menampilkan Jam sesuai dengan jam pada komputer yang kita Cara Menampilkan Jam Berdetak Setiap Detik di Excel

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

  1. Buka aplikasi Microsoft Office Excel.
  2. Simpan Workbook dengan ekstensi *.xlsm atau *.xlsb
  3. Tekan tombol Alt+F11 untuk membuka Microsoft Visual Basic atau Buka Tab Developer dan klik Visual Basic.
  4. Tambahkan sebuah Module pada aplikasi Microsoft Visual Basic, dengan cara klik sajian InsertModule.
  5. Pada Module Code masukkan Script Berikut:
  6. 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 
  7. Untuk menjalankannya tekan Alt+F8 atau pada Tab Developer klik Macros.
  8. Pada Macro Name pilih Jam dan kemudian klik Run untuk memulai menjalankan macro.
  9. Hasilnya pada Sheet 1 cell A1 akan ditampilkan jam dengan detik yang terus berjalan. 
Penjelasan Script Macro:
01. Membuat Dim dengan nama Waktu.

Dim Waktu

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

Sub Jam()

End Sub

03. Mengeset Sh sebagai ThisWorkbook.Sheets(1)

Set Sh = ThisWorkbook.Sheets(1)

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

Sh.Calculate

05. 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

06. Menjabarkan Waktu dengan bentuk nilai Jam yang selalu diupdate.

Waktu = Now + TimeValue(“00:00:01”)

07. Kode untuk aplikasi OnTime dengan mekanisme Jam.

Application.OnTime Waktu, “Jam”

09. Membuat Sub Berhenti untuk mematikan detik Jam.

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

10. Membuat Sub Mulai untuk Memulai menjalankan Macro Jam.

Sub Mulai()
Call Jam
End Sub

Agar Jam mulai berjalan dikala Workbook di buka caranya adalah:

  1. Pada Microsoft Visual Basic, klik kanan pada ThisWorkbook yang ada pada VBAProject dan pilih View Code.
  2. Kemudian Masukkan script berikut ini
  3. Private Sub Workbook_Open()  Call Mulai  End Sub

Selanjutnya tambahkan Shape atau gambar pada Sheet 1 yang nantinya dipakai sebagai tombol Mulai dan berhenti, dengan cara klik sajian Insert dan pilih Shapes. Pada Shapes untuk Tombol Mulai, klik kanan dan pilih Asign Macro kemudian pilih Macro Mulai dan klik OK, begitupun untuk shapes yang dipakai sebagai Tombol Berhenti, klik kanan dan pilih Asign Macro kemudian pilih Macro Berhenti dan klik OK

Sekian tutorial cara menampilkan jam berdetak setiap detik di Excel, Contoh File dapat di unduh disini. Semoga Bermanfaat.
Sumber http://www.rumusexcel.com