Animasi Jam Pada Excel

Animasi Jam Pada Excel - Pada Microsoft Excel kita bisa menampilkan Jam sesuai dengan waktu 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.


Langsung saja berikut ini langkah-langkahnya :

Buka aplikasi Microsoft Office Excel. Simpan Workbook dengan ekstensi *.xlsm atau *.xlsb
Tekan tombol Alt+F11 untuk membuka Microsoft 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.

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.
Simpel bukan :)