Kamis, 23 Februari 2017

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.

Tidak ada komentar:

Posting Komentar