Membuat Form Jam Digital Dengan VBA Excel

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.

ToolboxProperties
UserFormPicture : Image
Label1Name: LBPm
ForeColor = &H00FFFFFF&
Label2Name : LBJam
Font : DS Digital
ForeColor = &H00FFFFFF&
Label3Name: LBTanggal
ForeColor = &H00FFFFFF&
Label4Name: LBTahun
ForeColor = &H00FFFFFF&
Label5-8Optional (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.

Be the first to comment

Leave a Reply

Your email address will not be published.


*