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

Menampilkan Tanggal dan Jam Aktif di UserForm Excel

Menampilkan Tanggal dan Jam versi II

Untuk versi yang kedua tutorial 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 2 buah Label, 1 label untuk menampilkan tanggal dan satu lagi untuk menampilkan jam aktif. Kemudian pada tempat kode UserForm1 masukkan script VBA berikut ini:
  3. Private Sub UserForm_Activate()
    Call JamAktif
    End Sub
    
    Private Sub userform_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
        Application.OnTime TimeABC, "JamAktif", , False
    End Sub
    
  4. Tambahkan lagi sebuah Module dan masukkan script VBA berikut ini:
  5. Option Explicit
    Public TimeABC As Single
    Sub JamAktif()
        UserForm1.Label1 = Format(Date, "dd mmmm yyyy")
        UserForm1.Label2.Caption = Time() + TimeValue("00:00:01")
        TimeABC = Time() + TimeValue("00:00:01")
        Application.OnTime TimeABC, "JamAktif", TimeABC + TimeValue("00:00:01")
    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 yang ketiga, silahkan lanjut buka halaman berikutnya 🙂

4 Comments

Add a Comment

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

This site uses Akismet to reduce spam. Learn how your comment data is processed.