Contoh cara membuat aplikasi sederhana dengan VBA M.S Excel (Data Barang)

Berikut ini langkah pembuatannya :

1. Ubah nama sheet 1 menjadi  FormDataBarang,atau bisa nama lain sesuain kebutuhan

2. Seperti langkah pertama,nama sheet2 kita ubah menjadi DataBarang

3. Di sheet FormDataBarang kita buat ikon seperti contoh dibawah ini menggunakan shape.    

4. Pada sheet2,buatlah judul dan kolom seperti contoh di bawah ini :

5. kemudian aktifkan VBA editor dengan menekan kombinasi keyboar ALT+F11 kemudian cari menu Insert dan klik UserForm.kemudian lakukan lagi,namun kali ini kita insert Module

6.Untuk langkah berikutnya setelah menyisipkan sebuah form baru maka kita edit ukuran form nya sesuai dengan kebutuhan kemudian buat sebuah label dengan menggunakan Toolbox, TextBox, ComboBox, dan CommandButton lalu letakkan pada Form kemudian ganti (Name) dan Captionnya.kita juga bisa mengganti picture,mengubah jenis,ukuran font,d.l.l. di properties window.

7.Pada gambar di atas,judul,kode barang,nama barang,satuan barang,dan harga barang dibuat menggunakan ToolBox. Sedangkan untuk kotak di sampingnya dibuat dengan TextBox kecuali satuan barang yang dibuat dengan ComboBox. Lalu untuk tambah data dan selesai menggunakan CommandButton

8. Kemudian setiap kotak kita klik dan ubah namanya pada properties,seperti berikut :

KODE BARANG = Textkodebarang

kotak disamping KODE BARANG = Textkode

NAMA BARANG = Textnamabarang

Kotak disamping NAMA BARANG = Textnama

SATUAN BARANG = Cbosatuanbarang

Kotak disamping SATUAN BARANG = Cbosatuan

HARGA BARANG = Texthargabarang

Kotak disamping HARGA BARANG = Textharga

TAMBAH DATA = CMDTAMBAH

SELESAI = CMDSELESAI

 9.Setelah selesai,selanjutnya adalah coding.klik kanan pada userform1 dan pilih View Code,lalu ketikkan codenya

10. Kemudian double Click pada TAMBAH DATA dan SELESAI.lalu isikan kodenya

 

11. Lalu klik modules,pilih modules 1 dan isi kodenya

 

12. Setelah selesai jangan lupa menekan tombol save

 13.Kemudian kita kembali  ke sheet FormDataBarang. Lalu ikon yang kita buat di awal tadi kita jadikan tombol entry data dengan cara,klik kanan lalu pilih Assign macro,pilih nama macro yang sesuai,klik ok
14.Untuk mengetahui hasilnya,dapat dilakukan dengan meng-klik Run atau F5. Bisa juga dengan meng-klik tombol entry yang telah kita buat tadi. Hasilnya adalah

15.Isilah aplikasi entry data barang tersebut dengan contoh data barang,misalnya

16.Maka di sheet DataBarang akan tertulis seperti yang kita masukkan di Aplikasi Entry Data Barang

Filenya dapat di lihat di sini
Semoga Bermanfaat.....................