Membuat kalender Excel

Membuat kalender Excel


Hari gini masih suka input tanggal manual di excel? masih diawal tahun 2016 sepertinya tidaklah basi jikalau saya kembali mengajak anda semuanya membuat kalender sepanjang masa dengan menggunakan microsoft excel visual basic editor, kalender yang akan kita buat kali ini bukanlah kalender biasa melainkan kalender yang bisa dimunculkan disemua workbook aktif, jadi kita bisa menggunakan kalender ini sebagai inputan dalam sebuah worksheet.

Saya tidak akan mengajak anda untuk tour atau bolak balik dengan link link yang akan membuat kepala anda pusing, namun ada baiknya jika anda melihat postingan saya yang lama tentang membuat kalender

Pop up kalender untuk Excel Vba
Sampel kalender sepanjang masa

Kita mulai Membuat kalender Excel
- Langkah pertama buka microsoft excel, lalu simpan dengan nama "Kalender iParengan" ( nama boleh beda ) simpan dengan format XLSM
- Masuk kejendela Visual basic editor #VBA #VBE tekan kombinasi tombol Alt+F11 pada keyboard komputer
- Pilih menu Insert > Userform ganti "Name'nya" menjadi "FrmCalender"
- Pada Userform tadi masukan kontrol "Frame" lihat gambar dibawah ini



- Langkah berikutnya masukan kode macro yang agak lumayan panjang ini kedalam Userform

Private Const WS_POPUP As Long = &H80000000
Private WithEvents Calendar1 As cCalendar
Public Target As Range
Private Sub Calendar1_Click()
Call CloseDatePicker(True)
End Sub
Private Sub Calendar1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then
Call CloseDatePicker(False)
End If
End Sub
Private Sub UserForm_Initialize()
If Calendar1 Is Nothing Then
Set Calendar1 = New cCalendar
With Calendar1
.Add_Calendar_into_Frame Me.Frame1
.UseDefaultBackColors = False
.DayLength = 3
.MonthLength = mlENShort
.Height = 120
.Width = 180
.GridFont.Size = 7
.DayFont.Size = 7
.Refresh
End With
Me.Height = 153 'Win7 Aero
Me.Width = 197
End If
End Sub


Sub CloseDatePicker(Save As Boolean)
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = Calendar1.Value
Next cell
Unload Me
End Sub

Keterangan kode macro dibawah ini berfungsi agar tanggal yang kita pilih nanti secara otomatis mengisi pada kolom yang aktif

Sub CloseDatePicker(Save As Boolean)
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = Calendar1.Value
Next cell
Unload Me
End Sub


- Langkah kedua, masih dijendela Visual basic editor #VBA #VBE, Buatlah Class module dengan "Name" "Ccalnder", lihat gambar dibawah ini



- Pada Class Module "Ccalnder" masukan kode macro yang amat sangat panjang, anda bisa copas kode macronya pada link > Kode macro kalender - Excel VBA

Setelah anda selesai membuat Userform "FrmCalender" dan Class Module "Ccalnder" maka anda sudah berhasil membuat sebuah kalender sepanjang mas, kalender ini bisa anda manfaatkan sesuai dengan kebutuhan anda. Akan tetapi tujuan kita adalah membuat kalender yang bisa muncul disemua workbook jadi tutorial kali ini baru berjalan 37% dari 100%, mari kita lanjutkan

- Langkah berikutnya cara memanggil kalender tanpa bantuan tombol commanbutton, alias kita akan memanggil kalender yang kita buat tadi dengan memanfaatkan kustomisasi klik kanan pada excel, anda bisa melihat kembali artikelnya pada link Menambah opsi klik kanan pada Excel

- Pada jendela Visual basic editor #VBE #VBA pilih Insert > Insert Modul, lalu masukan kode macro dibawah ini kedalam modul
Sub OpenCalendar()
frmCalendar.Show
End Sub

- Sekarang masuk ke Thisworkbook, masukan kode macro ini kedalam ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnKey "+^{C}"
Application.CommandBars("Cell").Controls("Insert Date").Delete
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Dim NewControl As CommandBarControl
Application.OnKey "+^{C}", "Module1.OpenCalendar"
Application.CommandBars("Cell").Controls("Insert Date").Delete
Set NewControl = Application.CommandBars("Cell").Controls.Add
With NewControl
.Caption = "Insert Date"
.OnAction = "Module1.OpenCalendar"
.BeginGroup = True
End With
End Sub

- Pada tahap ini kita telah menyelseaikan 58% tutorial cara Membuat kalender Excel, dan pada tahap ini kita akan membuat kalender tadi muncul disemua workbook excel yang aktif

- Close ( tutup ) jendela Visual basic editor #VBE #VBA, lalu save as dengan format "Excel Add-In" ingat letakan file ini di folder yang mudah di ambil kembali, setalah itu tutup workbook kalendernya
- Langkah hampir terakhir, buka workbook baru, klik menu utama > Pilih Option > Pilih Add-Ins. Lihatlah tulisan "Manage" kemudian ada dropdown "Excel Add-Ins" dan tekan tombol "GO..."



- Setelah anda memijit tombol "GO..." anda akan disuguhkan jendela baru "Add-Ins" dimana ada beberapa Option "Analysis ToolPak, Analysis ToolPak - VBA, Euro Currency Tools, dan Solver Add-In" jangan diceklis dulu ya, tapi pilih tombol "Browse" nah pilih kalender yang kita buat tadi yang disimpan dengan format Add-In lalu tekan ok.






- Pada jendela "Add-Ins" akan bertambah opsi "Kalender" ( nama ini sesuai dengan nama yang anda buat sebelumnya ) ceklis opsi "Kalender" lalu tekan "OK". Silahkan tutup lagi workbook ini dan bukalah sembarang workbook yang ingin anda buka, lalau klik kanan maka anda akan menemukan menu "Inser Date" maka taraaaaaaaaaa kalender muncul disemua workbook excel yang aktif





- Udah udah 100% Membuat kalender Excel


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: