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.
Admin sangat menyarankan bagi yang mempelajari Vba Excel untuk tahap pemula agar membuat berbagai macam file contoh percobaan dengan berbagai kode yang didapatkan.
Dengan membuat file contoh percobaan penerapan kode Vba Excel akan mempercepat memahami dan mengetahui fungsi dan cara kerja kode Vba Excel yang diterapkan pada aplikasi.
Belajar membuat aplikasi itu harus memperbanyak Experiment berdasarkan teori-teori yang ada di internet.
Langkah-langkah membuat Tanggal Pada UserForm VBA Excel :
- Download file Percobaan dibawah ini dengan mengklik tombol share
LINK DOWNLOAD TERKUNCI.
Silahkan SHARE untuk membuka kunci!
Silahkan SHARE untuk membuka kunci!
- 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
LblTanggal = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy")
End Sub
- Selesai.!!!
- 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
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
LblTanggal = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy")
Do Until Berhenti
LblJam = FormatDateTime(Time, vbLongTime)
DoEvents
Loop
End Sub
Demikian yang dapat admin share pada kesempatan ini melalui artikel dengan judul Tanggal dan Jam Digital Di Userform VBA Excel.
Video Cara Membuat Tanggal dan Jam Digital Di Userform VBA Excel
Semoga artikel ini dengan judul Tanggal dan Jam Digital Di Userform VBA Excel dapat menjadi referensi dan informasi bagi anda yang sedang mempelajari VBA Excel.
Jika artikel ini dirasakan ada manfaat dan berguna bagi anda, mohon dapat dishare ke teman-teman lain yang memiliki minat yang sama, agar mereka juga bisa mempelajarinya.
Sampaikan pertanyaan, saran dan kritikan untuk admin, agar admin bisa membangun blog ini menjadi lebih baik lagi.
Posting Komentar untuk "Tanggal dan Jam Digital Di Userform VBA Excel"
Komentar Anda Sangat Menentukan Kelangsungan Blog ini