Tampilkan postingan dengan label ComboBox. Tampilkan semua postingan
Tampilkan postingan dengan label ComboBox. Tampilkan semua postingan

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.


Mengisi ListBox Dengan Data Spesifik Dari Sebuah Lembar Kerja

data listbox spesifik

Listbox tidak ubahnya sama dengan Combobox yang mana memiliki fungsi yang sama yaitu menampilkan daftar berupa data-data yang bisa dipilih oleh user, hanya saja secara tampilan keduanya memiliki perbedaan, dimana ComboBox menampilkan daftar data berupa Drop Down yang tampil ketika diklik oleh pengguna, sementara tampilan ListBox berupa daftar yang bisa digulung keatas atau kebawah.

Perbedaan ComboBox dan ListBox
Perbedaan Listbox dan ComboBox
Pada prinsipnya, baik ComboBox maupun ListBox bisa ditempatkan dilembar kerja Microsoft Excel maupun didalam sebuah UserForm serta cara pembuatannya yang sama, yakni tinggal diklik ikon yang mewakili control tersebut.

Setelah mengetahui dasar cara pembuatan serta cara instalasi control tersebut, permasalah berikutnya adalah bagaimana cara mengisi data-data kedalamnya. Dan pada kesempatan kali ini, tutorial Macro VBA Excel yang akan dibahas hanya ListBox saja dan bagaimana menampilkan data-data kedalamnya, dengan catatan data-data yang ditampilkan memiliki kriteria tertentu yang sudah ditentukan sebelumnya.

Sebelum mulai tutorial Macro VBA ini, ada baiknya buat atau siapkan sebuah data-data dalam lembar kerja Microsoft Excel seperti berikut :
excelive : listbox spesifik

Jika Anda lihat dalam lembar kerja excel diatas, terdapat sebuah kolom status yang mana nantinya akan difungsikan sebagai kriteria untuk menampilkan data kedalam ListBox.

Setelah data selesai dibuat, kini saatnya Anda membuat sebuah ListBox dan sebuah CommandButton. Dan untuk tutorial kali ini, saya akan menempatkan control tersebut ke dalam lembar kerja, jadi pastikan dulu Menu Developer sudah Anda aktifkan (silahkan googling cara mengaktifkan menu Developer Microsoft Excel)

Klik menu Developer dan klik ikon Insert untuk menampilkan jendela Control, untuk tutorial ini ada baiknya Anda membuat bahan-bahan yang dibutuhkan dari menu ActiveX Control yang dapat dilakukan dengan cara; memilih ikon yang Anda inginkan dan gambar di lembar kerja.
developer Microsoft Excel

Untuk menampilkan data-data dari lembar kerja kedalam ListBox berdasarkan kriteria tertentu, maka sudah pasti harus menambahkan baris-baris kode yang difungsikan untuk membaca data dan menampilkannya. Dan Anda bisa mulai menuliskan kode-kode berikut ini dengan cara klik 2x tombol CommandButton yang sudah Anda buat sebelumnya untuk langsung menuju jendela Microsoft Visual Basic Editor.
Sebelum menulis kode VBA, pastikan tombol Design Mode yang terdapat di Menu Developer dalam keadaan Aktif
Dim Data As Variant
Dim i As Long

Data = Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
ListBox1.Clear
For i = 1 To UBound(Data)
If Data(i, 2) = "OK" Then
With Me.ListBox1
   .AddItem Data(i, 1)
   .List(.ListCount - 1, 1) = Data(i, 2)
End With
End If
Next i
Dari baris kode diatas dapat dilihat bahwa data yang terdapat di dalam lembar kerja Microsoft Excel akan dibaca terlebih dahulu yang terdapat dalam baris Range("A2:B" karena dalam tutorial ini data mulai terisi di baris A2 hingga B sekian, sementara untuk kriteria berada di kolom status atau kolom B dengan nilai OK.

Jika Anda ingin menghapus atau membersihkan daftar atau isian yang terdapat dalam ListBox, maka dapat dilakukan dengan cara menambahkan satu buah CommandButton dan berikan sebuah perintah atau baris kode Listbox1.Clear
Pastikan Ikon Design Mode yang terdapat dalam Menu Developer sudah tidak Aktif agar tombol CommanButton bisa menerima dan menjalankan perintah yang sudah dibuat diatas.
Download hasil akhir tutorial ini
download

Versi lain dari cara mengerjakan tutorial ini, sudah saya sediakan di channel excelive yang ada di youtube. Kalau mau lihat, silahkan play video berikut


Semoga bermanfaat.


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 !