Kamis, 29 Desember 2016

Menampilkan Jam Digital Di Form


Guna memanjakan pengguna aplikasi yang berbasis Microsoft Excel atau sekedar gaya gayaan sebuah tampilan Form (VBA), mungkin cara ini bisa Anda jadikan sebagai salah satu pilihan alternatifnya, yakni dengan menampilkan sebuah jam digital pada form. Lihat juga artikel Userform Terletak diSistem Tray

Membuat jam digital pada form

+ Seperti biasanya, aktifkan terlebih dahulu jendela Microsoft Visual Basic Editor (VBE)
+ Kemudian buat sebuah UserForm (UserForm1) dan sebuah Label (Label1)
+ Langkah selanjutnya adalah memasukkan kode berikut

Dim Berhenti As Boolean
Private Sub UserForm_Activate()
Do Until Berhenti
Label1 = FormatDateTime(Time, vbShortTime)
DoEvents
Loop
End Sub
Private Sub UserForm_Terminate()
Berhenti = True
End Sub
+ Tekan F5 untuk mencoba kode macro diatas

Pilihan untuk mengubah format jam digital

vbShortTime tampilan jam tanpa detik (ex, 17:25)
vbLongTime tampilan jam dengan detik (ex, 17:25:31)

Demikianlah tips kali ini tentang cara Menampilkan Jam Digital Di Form, tips ini bisa anda aplikasikan dengan menggunakan microsoft excel visual basic for application, jika ada kesulitan dan pertanyaan seputar microsoft excel silahkan tanyakan pada kolom komentar dibawah, terimakasih.


EmoticonEmoticon