Mendaftar Butuh bantuan tentang Excel?? Gabung aja di
Forum BE-ORG

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:
  3. 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
    
  4. Tambahkan lagi sebuah Module dan masukkan script VBA berikut ini:
  5. 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
    
  6. Kembali ke UserForm1 dan tekan tombol F5 untuk menjalankan UserForm dan UserForm akan menampilkan tanggal dan jam aktif sesuai komputer yang digunakan.
    Tanggal dan Jam di UserForm

Untuk tutorial versi kedua, silahkan buka halaman berikutnya 🙂

2 Comments

Add a Comment

Your email address will not be published. Required fields are marked *