Cara Menampilkan Jam Berdetak Setiap Detik di Excel
Rumus Excel [.] com - Dalam 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:
- Buka aplikasi Microsoft Office Excel dan kemudian Simpan Workbook dengan ekstensi *.xlsm atau *.xlsb
- Tekan tombol Alt+F11 untuk membuka Microsoft Visual Basic atau Buka Tab Developer dan klik Visual Basic.
- Tambahkan sebuah Module pada aplikasi Microsoft Visual Basic, dengan cara klik menu Insert - Module.
- Pada 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
- Untuk menjalankannya tekan Alt+F8 atau pada Tab Developer klik Macros.
- Pada Macro Name pilih Jam dan kemudian klik Run untuk memulai menjalankan macro.
- Hasilnya pada Sheet 1 cell A1 akan ditampilkan jam dengan detik yang terus berjalan.
- Selanjutnya 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.
- Pada Shapes untuk Tombol Mulai, klik kanan dan pilih Assign Macro kemudian pilih Macro Mulai dan klik OK, begitupun untuk shapes yang digunakan sebagai Tombol Berhenti, klik kanan dan pilih Assign Macro kemudian pilih Macro Berhenti dan klik OK
Penjelasan Script Macro :
Membuat Dim dengan nama Waktu:
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:
- Pada Microsoft Visual Basic, klik kanan pada ThisWorkbook yang ada pada VBAProject dan pilih View Code.
- Kemudian Masukkan script VBA berikut ini:
Private Sub Workbook_Open() Call Mulai End Sub
Lampiran
Sekian tutorial cara menampilkan jam berdetak setiap detik di Excel. Semoga Bermanfaat.
Baru tau mas kalo bisa kayak gini :v
BalasHapusIjin belajar dan saya mau coba coba mas hehe
Silahkan mas, dicoba aja satu-satu hehe
HapusMakasih!
HapusUntuk ngeprint data yang pakai fungsi vloookup bagaimana? Biasanya hanya ngeprint satu-satu.
BalasHapusUntuk raport saya pakai fungsi vlookup, tapi ngepritnya hanya bisa satu-satu. Untuk ngeprint data keseluruhan secara otomatis bagaimana ya?
BalasHapusPindahin ke ms word .....
HapusCopy ke word terlebih dahulu
HapusTambah tombol print
Hapusfrom:1 to:akhir
Untuk raport saya pakai fungsi vlookup, tapi ngepritnya hanya bisa satu-satu. Untuk ngeprint data keseluruhan secara otomatis bagaimana ya?
BalasHapusbikin mailmerge aja
Hapusmatur nuwun sanget,,boos,
BalasHapussemoga barokah,,,
Terima kasih atas postingannya. Semoga menjadi amal shalih.
BalasHapusBagaimana bila mau membuat Tulisan berwarna (baik huruf maupun cell-nya) bergerak dan berkedip sebagai warning di worksheet. Terima kasih.
BalasHapusBisa tolong bantu untuk waktu yg berjalan mundur mas..?
BalasHapuskalau mau memprotect sheet yang passwordnya waktu pada saat itu, kode macronya bgaimana Min?
BalasHapusThank's atas penjelasannya
Ketika sheet nya TIDAK DIPROTECT macronya brjalan normal, ttapi ketika sheet nya DIPROTECT macronya ERROR. Supaya Jam nya bisa brjalan normal walaupun sheet nya diprotect bagaimna cara edit kode macronya Min
BalasHapusWah makasih mas postingannya berguna skali ilmunya.
BalasHapusHatur nuhun kang, mugia sing dipaparinan rezeqi anu berkah. Aamiin...
BalasHapussangat membantu sekali, terima kasih, utk module ini apa tidak bida diterapkan pada sheet yang terprotek?
BalasHapusmas, kok item visual basic saya yg di tab developer tidak bisa di klik yaaa??? tetap berwarna abu-abu?? itu gimana solusinya???
BalasHapussaya klik alt + F11 juga tidak bisa???
tapi kok proses copy paste ngga bisa....kursor selalu kedip ....
BalasHapusmohon izin buat nge share, terima kasih sebelumnya
BalasHapusMas minta tolong dong dijelaskan cara menampilkan tanggal beserta jam, menit, dan detik yang selalu update setiap saat.. Sehingga jika dilihat waktu tersebut jalan terus sesuai dengan waktu yang ada di komputer kita
BalasHapus