Pop up kalender untuk Excel Vba

Pop up kalender untuk Excel Vba


Pop up kalender untuk Excel Vba - Bagaimana jika dalam microsoft excel anda terdapat kalender yang tidak akan pernah kadaluarsa? pasti sangat membantu ya, apalagi kalender ini nanti bisa kita manfaatkan untuk mengisi sebuah kolom #Textbox yang memang diperuntukan untuk diisi sebuah tanggal, pastinya akan sangat membantu


Membuat kalender sepanjang masa sudah pernah diulas #iParengan, silahkan lihat kembali artikel Sample kalender sepanjang masa, dan kali ini saya akan sajikan cara membuat #Kalender secara pop up untuk #Excel #VBA dengan menggunaan kontrol yang telah disediakan oleh microsoft #excel secara defauld, berikut ini langkah langkah cara membuat #kalender pop up untuk #Excel dengan #VBA :

- Buka microsoft office #Excel, langsung saja tekan Alt+F11 untuk masuk kejendela VBE
- Masukan userform, tampilakn jendela pop up Toolbox
- Pada jendela pop up toolbox klik kanan pada mosue, pilih Additional Controls, lihat gambar dibawah ini



- Tutup jendela #AdditionalControls, pada jendela #Toolbox pilih #MonthView , kemudian seret dan letakan kedalam userform



- Pada tahap ini kita sudah selsai membuat Pop up kalender untuk Excel Vba, silahkan tekan F5 untuk mencoba. Untuk memindahkan tanggal yang kita pilih kedalam textbox, tambahkan kode #macro dibawah ini kedalam userform

- Tambahkan kode ini pada event userform active
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Me.MonthView1.Value = ActiveCell.Value
End If
End Sub
- Kode macro untuk menampilkan tanggal terpilih kedalam sel atau kolom terpilih
Pakai kode ini jika anda menggunakan kalender untuk mengisi kolom atau sel pada worksheet, ada baiknya anda menggunakan opsi menu untuk memanggil Pop up kalender untuk Excel Vba tanpa bantuan tombol commandbutton Membuat kalender dimenu Excel
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = DateClicked
Next cell
Unload Me
End Sub

- Kode macro untuk menampilkan tanggal terpilih kedalam textbox
Pakai kode macro ini untuk meletakan value tanggal terpilih pada kalender kedalam textbox
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Textbox1.Value = DateClicked
Unload Me
End Sub
Semoga bermanfaat, Pop up kalender untuk Excel Vba , jika ada masalah pada #AdditionalControls silahkan ikuti link ini Masalah additional controls yang tidak muncul


Pop up kalender untuk Excel Vba by opsi klik kanan
Jika anda menggunakan Pop up kalender untuk Excel Vba ini sebagai input tanggal pada sel atau kolom ( bukan untuk input di kolom textbox userform ) ada baiknya dan pasti lebih baik anda memanggil Pop up kalender untuk Excel Vba ini dengan opsi klik kanan, jadi Pop up kalender untuk Excel Vba bisa anda panggil dengan menu opsi yang diakses lewat klik kanan pada mouse, tertarik begini caranya
- Buat modul, nama modul BukaTanggal isi modul adalah dibawah ini
Sub BukaTanggal()
Userform1.Show
End Sub
- Buka Thiswrokbook masukan kode macro dibawah ini kedalam thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnKey "+^{C}"
Application.CommandBars("Cell").Controls("Tampilkan Kalender").Delete
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Dim NewControl As CommandBarControl
Application.OnKey "+^{C}", "BukaTanggal.BukaTanggal"
Application.CommandBars("Cell").Controls("Tampilkan Kalender").Delete
Set NewControl = Application.CommandBars("Cell").Controls.Add
With NewControl
.Caption = "Tampilkan Kalender"
.OnAction = "BukaTanggal.BukaTanggal"
.BeginGroup = True
End With
End Sub

- Untuk mencobanya, silahkan tutup jendela VBE klik pada kolom atau sel manapun lalu klik kanan pada mouse anda, lihat opsi menu paling bawah harusnya ada menu Tampilkan Kalender lihat gambar dibawah ini



Demikianlah cara Pop up kalender untuk Excel Vba berbasis microsoft excel, jika anda menemukan kesulitan silahkan tulis kendala dan kesulitan yang anda temukan pada kolom komentar dibawah ini ( anda juga bisa menyisipkan gambar pada kolom komentar sebagaimana komentar di facebook), saya juga telah mengupload file sampel Pop up kalender untuk Excel Vba berbasis microsoft excel di Google Drive dan bisa anda download dilink download dibawah.
Akhir akhir ini banyak sekali komplain mengenai susahnya download di www.box.com, setalah saya amati ternyata kesulitan ini bisa diatasi dengan dua cara yaitu donwload di wwww.box.com dengan menggunakan HP, dan yang kedua yaitu anda harus mempunyai akun di box.com
Dan mulai saat ini saya menggunakan Google drive sebagai penyimpanan sampel tutorial

Share this: