Cara Menampilkan Jam Di MS Excel Menggunakan Macro

Untuk menampilkan jam di ms excel menggunakan macro terlebih dahulu kita harus memulai macro pada masing-masing versi excel, baca dulu artikel ini Dan kode macro untuk menampilkan jam di ms excel adalah:

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

Jika ingin menghilangkan AM atau PM nya, ubah kode:
.NumberFormat = "hh:mm:ss AM/PM"
menjadi:
.NumberFormat = "hh:mm:ss"

Jika ingin menambahkan tanggal maka ubah kode:
.NumberFormat = "hh:mm:ss AM/PM"
menjadi:
.NumberFormat = "dd-mm-yyyy hh:mm:ss AM/PM"

Sumber: Terimakasih kepada http://www.rumusexcel.com

Posted in: