DigiMagz.Net - Sebelumnya Saya sudah mempublikasin artikel yang membahas mengenai Cara Membuat Userform Di Excel, dan pada kesempatan ini Saya akan memberikan sebuah tutorial mengenai Cara Membuat Jam Digital Di Userform Excel. Atau lebih tapatnya Menambahkan Sebuah Jam Digital Di Dalam Userform Excel.
Jam digital ini sekedar sebagai pemanis tampilan dari Userform yang kita buat di dalam lembar kerja Ms. Excel kita, tidak wajib ada namun jika Sobat Blogger menginginkan untuk menambahkan jam digital tersebut, berikut merupakan langkah-langkahnya :
1. Membuat Userform
Seperti yang sudah Saya bahas pada artikel sebelumnya, untuk membuat sebuah Userform di aplikasi Excel kita bisa melakukannya dalam 2 (dua) cara, yaitu :
- Klik pada tab menu Developer, kemudian klik pada Visual Basic, dan jika di lembar kerja Ms. Excel Sobat Blogger belum ada atau tidak ada menu Developer di Ribbon Menu aplikasi Excel yang Sobat gunakan, silahkan baca artikel Saya sebelumnya yang berjudul Cara Menampilkan Tab Developer Di Excel
- b. Cara yang kedua dengan menggunakan shortcut pada keyboard yaitu kombinasi tombol Alt+F11
Silahkan buat Userform sesuai dengan keinginan kita, dan pada contoh ini Saya membuat seperti pada gambar di bawah ini :
2. Menyisipkan komponen control ke dalam Userform
Untuk bisa membuat sebuah jam digital di dalam userform kita membutuhkan komponen control, yaitu sebuah label yang nantinya akan menjadi jam digitalnya. Dan cara untuk menyisipkan komponen control label adalah klik label pada toolbox kemudian tempatkan di userform dengan cara klik pada area userform yang sudah kita buat tadi.
3. Menyisipkan Kode Macro Jam Digital
Berikutnya adalah menyisipkan kode Macro agar nantinya komponen control label yang sudah kita sisipkan tadi bisa berubah menjadi jam digital pada saat userform kita jalankan (run), silahkan copy kode macro di bawah ini :
Dim Berhenti As Boolean
Private Sub UserForm_Activate()'https://www.digimagz.net
Berhenti = False
Do Until Berhenti
Label1.Caption = Format(Time, "hh:mm:ss")
DoEvents
Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)'https://www.digimagz.net
Berhenti = True
Unload Me
End Sub
Kemudian klik kanan pada Userform dan pilih view code
Hapus semua kode yang ada di dalam Userform dan silahkan paste kode Macro yang sudah kita copy tadi kedalamnya, hasilnya akan seperti pada gambar di bawah ini :
Selesai...
Silahkan Sobat Blogger lihat hasilnya dengan cara klik pada tombol F5 pada keyboard atau klik pada tombol Run yang ada pada halaman Visual Basic Excel. Contoh hasil akhirnya :
Demikian pembahasan mengenai Membuat Jam Digital Di Userform Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.