RumusExcel.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
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:
Sekian tutorial cara menampilkan jam berdetak setiap detik 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.
- 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:
- 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.
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
Penjelasan Script Macro:
01. Membuat Dim dengan nama Waktu.
02. Membuat Sub dengan nama Jam untuk menjalankan script Jam yang berjalan setiap detik01. Membuat Dim dengan nama Waktu.
Dim Waktu
Sub Jam()03. Mengeset Sh sebagai ThisWorkbook.Sheets(1)
...
End Sub
Set Sh = ThisWorkbook.Sheets(1)04. Update Waktu hanya berlaku di Sheet 1 pada Workbook ini ( Workbook yang aktif)
Sh.Calculate05. Menampilkan rumus =Now() pada Sheet 1 Cell A1 dan mengubah Formatnya menjadi format Time.
With Sh.Range("A1")06. Menjabarkan Waktu dengan bentuk nilai Jam yang selalu diupdate.
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With
Waktu = Now + TimeValue("00:00:01")07. Kode untuk aplikasi OnTime dengan prosedur Jam.
Application.OnTime Waktu, "Jam"09. Membuat Sub Berhenti untuk mematikan detik Jam.
Sub Berhenti()10. Membuat Sub Mulai untuk Memulai menjalankan Macro Jam.
On Error Resume Next
Application.OnTime Waktu, "Jam", , False
End Sub
Sub Mulai()Agar Jam mulai berjalan saat Workbook di buka caranya adalah:
Call Jam
End Sub
- Pada Microsoft Visual Basic, klik kanan pada ThisWorkbook yang ada pada VBAProject dan pilih View Code.
- Kemudian Masukkan script berikut ini
Private Sub Workbook_Open() Call Mulai End Sub
Sekian tutorial cara menampilkan jam berdetak setiap detik di Excel
0 komentar:
Posting Komentar