Menampilkan Informasi Nama Bulan Sebelumnya Dari Tanggal Saat Ini

Menampilkan nama bulan terakhir

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 :

Klik BCA
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
Penjelasan Singkat dari kode diatas :
  1. Daftar-daftar yang terdapat di ComboBox tidak ditulis secara manual, akan tetapi ditulis secara otomatis dengan menggunakan perintah pengulangan (Loop For...Next) dengan cara dihitung mundur (Step -1) mulai dari angka 2 sampai dengan angka 0.
    Artinya bahwa kode-kode berikutnya nanti akan mengambil informasi dari nilai ini.
  2. Sementara untuk mengisi nama-nama bulan, menggunakan perintah Month(Date) yang akan menghasilkan nama-nama bulan berdasarkan tanggal yang terdapat dalam system komputer. Namun untuk menampilkan hanya beberapa nama bulan terakhir dari 12 nama bulan tersebut, maka baris perintah ini harus dikurangi dengan nilai a yakni 2 to 0 step -1. Dan hasil sementara dari pembacaan kode ini adalah;
    > bulan sekarang - 2
    > bulan sekarang - 1
    > bulan sekarang - 0 (nama bulan yang saat ini aktif)
    Jika anda tidak ingin menampilkan nama bulan saat ini ke dalam daftar ListBox ataupun ComboBox, silahkan ganti parameter nilai a menjadi 2 to 1 Step -1
  3. Terakhir adalah, menampilkan nama bulan tersebut dengan menggunakan parameter standar untuk mengisi daftar ListBox maupun ComboBox, yakni menggunakan parameter AddItem. Akan tetapi, sekali lagi item atau nama-nama bulan tidak harus diketik secara manual, ia berasal dari parameter b, yakni Month(Date) - a.
    Belum selesai sampai disini, karena parameter Month(Date) - a hanya akan menghasilkan indeks nama bulan, seperti nilai 12 untuk Desember, 7 untuk Juli, 5 untuk bulan Mei, dan seterusnya.

    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
Menampilkan nama bulan terakhir

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.


Tidak ada komentar:
Write komentar

Our Services


design

all the design of each tutorial has passed the test for excel 2007 up

installation

every each codes on this site are provided "as is" and are easy to install

youtube

in order to facilitate you in learning excel, you can visit our channel here

download

to complete all excel lessons, we have provided a download link for you

Interested for our works and services?
Get more of our update !