Jika anda terbiasa dengan internet banking, mungkin anda bisa menebak kemana arah dan tujuan dari pembahasan kali ini. Ya, karena fitur ini terdapat dalam salah satu menu internet banking, yakni ketika pengguna ingin melihat rekening koran atau mutasi bulanan pembukuan perbankan - yang pada umumnya pengguna hanya diberikan akses untuk melihat pembukuan selama dua atau tiga bulan terakhir dari tanggal saat ini.

Salah satu contoh internet banking yang menerapkan konsep seperti ini adalah Klik BCA, seperti yang terlihat dalam tampilan berikut :
Gambar disamping merupakan gambar dari rekening pribadi yang saya ambil bersamaan dengan dibuatnya postingan ini, sebagai contoh agar lebih mudah memahami tujuan dari tutorial kali ini.
Dan jika anda lihat, situs KlikBCA memungkinkan pengguna untuk melihat, mencetak, dan atau mendownload mutasi rekening maksimal 2 bulan sebelumnya yang ditampilkan dalam kotak ComboBox. Tentu hal ini cukup beralasan, dan mungkin salah satu alasannya adalah agar tidak membebani tugas server dalam menampikan informasi rekening yang hanya dibatasi maksimal 2 bulan terdahulu.

Kembali ke pokok pembahasan Microsoft Excel.
Bayangkan jika anda memiliki sekumpulan data transaksi keuangan yang tersimpan dalam lembar kerja dalam jumlah yang sangat banyak, kemudian anda ingin membatasi pengguna agar bisa melihat transaksi selama 2 atau 3 bulan terakhir saja agar kinerja komputer tidak terlalu berat. Maka, konsep dari situs KlikBCA seperti gambar diatas dapat anda jadikan sebagai alternatifnya.

Ok, tutorial ini dibuat dengan menggunakan sebuah ComboBox yang diletakkan didalam Userform, jadi silahkan anda buat dan desain dulu UserForm serta ComboBox nya. Kemudian tuliskan kode berikut dan letakkan ke dalam even UserForm Initialize, agar ComboBox dapat terisi secara otomatis dengan nama-nama bulan sebelumnya ketika Userform dibuka atau aktifkan.

Dim a As Long
Dim b As Variant
For a = 2 To 0 Step -1
b = Month(Date) - a
ComboBox1.AddItem Format(DateSerial(Year(Date), b, 1), "mmmm yyyy")
Next a

Maka dari itu agar Indeks tersebut berbunyi nama-nama bulan, maka item b harus disematkan dalam parameter Format dengan penulisan lengkapnya seperti berikut :

Format(DateSerial(Year(Date), b, 1), "mmmm")

• nilai "mmmm" akan mengkonversi indeks menjadi nama bulan dengan model nama panjang.
• anda dapat mengubah nilai "mmmm" menjadi "mmm" jika ingin menyingkat nama bulan.
• atau anda bisa mengkombinasikan nilai ini seperti "mmmm yyyy" untuk menghasilkan nama bulan (format nama bulan panjang) dan di akhiri dengan tahun.

Finish.... dan silahkan lihat hasil dari tutorial ini

Sekarang Anda sudah berhasil mengetahui bagaimana caranya menampilkan nama beberapa bulan terakhir ke dalam jendela ListBox ataupun ComboBox menggunakan Macro VBA. Semoga belajar Macro VBA excel bersama excelive untuk edisi ini ada manfaatnya.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, See you soon.

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :