Menampilkan Tanggal dan Jam Aktif di UserForm Excel

Pada kesempatan kali ini kita akan belajar membuat atau menampilkan tanggal dan jam aktif di UserForm Excel, yang di maksud tanggal adalah tanggal hari ini sesuai dengan tanggal komputer dan jam aktif sesuai dengan jam pada komputer yang digunakan. Dan seperti biasanya di akhir postingan akan kami sediakan File contoh latihan-nya yang bisa di download gratis.

Untuk menampilkan tanggal dan Jam pada UserForm Excel sebenarnya ada banyak cara, namun pada kesempatan kali ini kami akan membagikan 3 cara atau 3 versi saja.

Menampilkan Tanggal dan Jam versi I

Untuk versi yang pertama menampilkan tanggal dan jam aktif di UserForm Excel caranya adalah sebagai berikut:

1. Buka aplikasi Microsoft Visual Basic for Applications bisa melalui tab Developer atau bisa juga dengan menekan tombol Alt+F11.
2. Tambahkan sebuah UserForm dan sebuah Label. Kemudian pada tempat kode UserForm1 masukkan script VBA berikut ini:

Option Explicit
Private m_lasttime As Date
Private Sub UserForm_Initialize()
Label1 = Format(Now, "dd mmmm yyyy   hh:mm:ss")
m_lasttime = Now + TimeValue("00:00:01")
Application.OnTime m_lasttime, "GetTime"
End Sub
Public Property Get LastTime() As Date
LastTime = m_lasttime
End Property
Public Property Let LastTime(ByVal Value As Date)
m_lasttime = Value
End Property
Private Sub userform_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.OnTime m_lasttime, "GetTime", , False
End Sub

3. Tambahkan lagi sebuah Module dan masukkan script VBA berikut ini:

Option Explicit
 
Public Sub GetTime()
 
Dim ld As Date
 
UserForm1.Label1 = Format(Now, "dd mmmm yyyy   hh:mm:ss")
ld = Now + TimeValue("00:00:01")
 
UserForm1.LastTime = ld
Application.OnTime ld, "GetTime"
 
End Sub

4. Kembali ke UserForm1 dan tekan tombol F5 untuk menjalankan UserForm dan UserForm akan menampilkan tanggal dan jam aktif sesuai komputer yang digunakan.
   

Untuk tutorial versi kedua, silahkan buka halaman berikutnya 🙂