Jam digital berdetak ringan

Jam digital berdetak ringan


Jam digital berdetak ringan - Sudah banyak artikel dalam blog ini yang membahas tentang cara membuat jam digital berdetak, diantara artikel yang dimaksud adalah seperti pada link dibwah ini


Namun ada sedikit permasalahan ketika anda memasang jam jam tersebut pada microsoft excel, permasalahanya adalah workbook atau form terasa agak berat dibandingkan jika tidak dipasang jam digital, ini terjadi karena kode macro bekerja berulang ulang untuk menghasilkan detik yang berjalan. Dan saya baru saja menemukan kode macro jam digital yang lebih ringan dibandingkan dengan kode macro jam digital sebelumnya, dan kode macronya juga lebih sederhana.

Private Sub UserForm_Activate()
Running = Not Running
Do While Running = True
DoEvents
UserForm1.Caption = Now()
Loop
End Sub

Kustomisasi bisa anda lakukan pada kode macro UserForm1.Caption = Now(), jika anda menginginkan jam saja rubah kode macronya menjadi seperti dibwah ini

UserForm1.Caption = Format(Now(), "HH:MM:SS")

Jika anda menginginkan jam aktif pada sel atau range rubah saja kode UserForm1.Caption = Now() menjadi

Range("A1").Value = Format(Now(), "HH:MM:SS")

Dengan demikian anda bisa menambahkan jam digital ini pada aplikasi gudang 2014 yang bisa anda download secara gratis pada link dibwah ini


Demikianlah Jam digital berdetak ringan berbasis microsoft excel, silahkan ikuti blog www.iparengan.com untuk memperoleh update seputar microsoft excel VBA dan mencari tahu kode macro. Silahkan share Jam digital berdetak ringan ke facebook twitter google plus untuk membantu blog ini, dan berikut inimerupakan file sampel yang bisa anda pelajari lebih lanjut

Share this: