
Sebelumnya excelnoob telah membuat Text berjalan menggunakan VBA pada userform. Kali ini kita akan membuat sebuah jam digitial pada userform. Jam digital ini bisa ditambahkan ke dalam userform untuk mempercantik tampilan userform. Ataupun diaplikasikan ke hal yang membutuhkan informasi jam.
Untuk membuat Userform Jam digital dengan VBA, hal pertama adalah masuk Visual Basic Editor dengan menekan ALT+F11
kemudian Insert sebuah Userform.Dan design Userform sesuai keinginan. Pada contoh dibawah ini saya mengunakan design seperti ini.

Toolbox | Properties |
UserForm | Picture : Image |
Label1 | Name: LBPm ForeColor = &H00FFFFFF& |
Label2 | Name : LBJam Font : DS Digital ForeColor = &H00FFFFFF& |
Label3 | Name: LBTanggal ForeColor = &H00FFFFFF& |
Label4 | Name: LBTahun ForeColor = &H00FFFFFF& |
Label5-8 | Optional (digunakan untuk mempercantik Form) |
Jika sudah didesign seperti diatas, ataupun di design sesuai keinginan, script untuk membuat jam pada userform adalah seperti berikut ini.
Dim Berhenti As Boolean Private Sub UserForm_Activate() Berhenti = False Do Until Berhenti LBJam.Caption = Format(Time, "hh:mm:ss") LBPM.Caption = Format(Time, "H AM/PM") LBTanggal.Caption = WorksheetFunction.Text(Date, "[$-0421] DDDD, DD MMMM") LBTahun.Caption = Format(Date, "YYYY") DoEvents Loop End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Berhenti = True Unload Me End Sub
jika penamaan Control object dan script benar, ketika dijalankan jam digital akan terlihat seperti ini.

Tapi perlu diingat selain terlihat bagus, jam digital ini tentu memiliki kekurangan jika digunakan dalam sebuah aplikasi vba. kekurangannya adalah aplikasi akan lebih berat dengan adanya jam digital ini. Karena jam digital ini akan terus bergerak sesuai waktu.
Jika membutuhkan File tentang jam digital ini, silahkan download pada menu atau halaman download.
Leave a Reply