Cara Membuat Jam Digital Di Microsoft Excel

Langka Pertama yang harus anda lakukan adalah membuat rumus =NOW() pada cell yang anda inginkan untuk letak jam gital. kemudian setting dengan memilih Number category “Time” pada Alignment dan klik “OK”. contoh seperti dialog berikut :

Langkah kedua, pilih visual basic kemudian buatkan modul dan masuka skrip VBA jam digital pada modul.

SKRIP VBA JAM DIGITAL

Option Explicit

Dim nexttick

Sub jam()

    ThisWorkbook.Sheets(1).Calculate

    nexttick = Now + TimeValue("00:00:01")

    Application.OnTime nexttick, "Jam", , True

End Sub

Sub berhenti()

On Error Resume Next

    Application.OnTime nexttick, "Jam", , False

    Application.ScreenUpdating = True

End Sub

Langkah ketiga, klik macros dan pilih jam dan klik Run untuk menjalankan jam dig ital. lihat dialog berikut :

Jrengg….Jam digital telah tercipta. Semoga sukses dan bermanfaat.

Jam Digital versi microsoft excel Download di sini