Friday, June 10, 2016

Tanggal dan Jam Digital Di Userform VBA Excel

Tanggal Dan Jam Digintal Di Userform VBA Excel - Perhatikan Gambar Gif di bawah yang memperlihatkan UserForm VBA Excel dengan tampilan Hari, Tangga, Bulan dan Tahun Serta dibawahnya ada Jam Digital yang terus bergerak angka hitungan detiknya.

Tampilan ini bisa kita sematkan pada aplikasi untuk menampilkan aplikasi lebih menarik. Bagi yang berminat silahkan simak step by step langkah-langkahnya.


Terlebih dahulu Download  : Tanggal dan Jam Digital VBA Excel

Langkah-langkah membuat Tanggal Pada UserForm VBA Excel :
  • Buka File yang telah di download klik Developer dan pilih Visual Basic
  • Properties Name "Label1 Sudah saya ganti dengan "LblTanggal" dan sesuaikan dengan Aplikasi anda sendiri jika mencantumpkan kodenya pada Aplikasi anda
  • Tempatkan kode dibawah ini pada Userform_Activate
Private Sub UserForm_Activate()
LblTanggal = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy") 
End Sub
  • Selesai.!!! 
Langkah-langkah Membuat Jam Digital pada UserForm VBA Excel :
  • Masih menggunakan File yang sama.
  • Tempatkan kode berikut pada UserForm_Activate
Private Sub UserForm_Activate()
Do Until Berhenti 
LblJam = FormatDateTime(Time, vbLongTime) 
DoEvents 
Loop
End Sub
  • Selesai.!! Jalankan Aplikasinya.
Jika Kode digabungkan maka seperti kode berikut ini :

Private Sub UserForm_Activate()
LblTanggal = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy") 
Do Until Berhenti
LblJam = FormatDateTime(Time, vbLongTime)
DoEvents 
Loop
End Sub

Semoga Bermanfaat untuk anda yang mau membuat aplikasi tampil dengan tanggal dan jam digital.


Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon