Pada postingan ini saya akan berbagi mengenai cara membuat aplikasi dengan VBA Ms. Excel. Aplikasi yang saya buat adalah Aplikasi Data Penjualan Barang yang bertujuan untuk melihat pendapatan dari barang yang telah dijual dan sisa barang yang ada di gudang. Berikut adalah cara membuatnya:
Pertama buka Ms. Excel dan buat 2 tabel seperti dibawah ini:
Tabel dibuat 2 untuk memisahkan antara barang jenis figure dan nendroid. Beri nama pada masing-masing tabel dengan memblok dari A3 sampai G12 dan A16 sampai G25. Klik kanan dan klik menu Define Name. Isi kolom Name dengan 'DaftarFigure' untuk Tabel ke-1 dan 'Daftar_Nendroid_di_Gudang' untuk Tabel ke2. Ganti juga nama Sheet dengan 'Daftar Barang di Gudang'.
Setelah selesai, buka lah Sheet baru dan buat judul tabel seperti berikut:
Masukkan rumus pada masing-masing kolom.
Untuk seterusnya, tarik ujung masing-masing cell ke arah bawah agar semua baris dan satu kolom memiliki fungsi yang sama. IFERROR & ISNA digunakan apabila ada kesalahan data maka nilai akan berupa 0 bukan #N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, atau #NULL!
Lalu, buka menu Developer dan pilih Visual Basic. Pilih menu Insert kemudian pilih Userform.
Ganti nama Userfrom di Caption dengan Form Data Penjualan
Tambahkan 2 Label lalu ganti namanya pada pilihan Caption, ganti dengan Kode Barang dan Jumlah Dibeli (yang berwarna hitam)
Tambahkan 2 TextBox untuk pengisian data nanti. Ganti nama dengan TKD untuk Kode Barang dan TJD untuk Jumlah Dibeli (yang berwarna merah).
Tambahkan 3 CommandButton untuk menyimpan, menambahkan, dan selesai. Ganti nama dengan OK, Baru, dan Selesai. (yang berwarna biru).
Masukkan Coding untuk menjalankan CommandButton. Klik 2 kali pada CommandButton.
Kemudian klik Run. Akan muncul Form seperti dibawah. Isi form tersebut dengan Kode Barang pada Tabel di Data Barang di Gudang. Masukkan juga jumlah barang yang telah terjual di Jumlah Dibeli.
Klik OK dan data akan otomatis masuk ke dalam Data Penjualan. Jika ingin menambah data, klik Baru dan secara otomatis isian form sebelumnya akan hilang dan data akan masuk di barisan berikutnya.
Jika sudah selesai, tekan Selesai dan akan keluar pilihan Yes dan No.
Tabel dibuat 2 untuk memisahkan antara barang jenis figure dan nendroid. Beri nama pada masing-masing tabel dengan memblok dari A3 sampai G12 dan A16 sampai G25. Klik kanan dan klik menu Define Name. Isi kolom Name dengan 'DaftarFigure' untuk Tabel ke-1 dan 'Daftar_Nendroid_di_Gudang' untuk Tabel ke2. Ganti juga nama Sheet dengan 'Daftar Barang di Gudang'.
Setelah selesai, buka lah Sheet baru dan buat judul tabel seperti berikut:
Masukkan rumus pada masing-masing kolom.
Untuk seterusnya, tarik ujung masing-masing cell ke arah bawah agar semua baris dan satu kolom memiliki fungsi yang sama. IFERROR & ISNA digunakan apabila ada kesalahan data maka nilai akan berupa 0 bukan #N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, atau #NULL!
Lalu, buka menu Developer dan pilih Visual Basic. Pilih menu Insert kemudian pilih Userform.
Ganti nama Userfrom di Caption dengan Form Data Penjualan
Tambahkan 2 Label lalu ganti namanya pada pilihan Caption, ganti dengan Kode Barang dan Jumlah Dibeli (yang berwarna hitam)
Tambahkan 2 TextBox untuk pengisian data nanti. Ganti nama dengan TKD untuk Kode Barang dan TJD untuk Jumlah Dibeli (yang berwarna merah).
Tambahkan 3 CommandButton untuk menyimpan, menambahkan, dan selesai. Ganti nama dengan OK, Baru, dan Selesai. (yang berwarna biru).
Masukkan Coding untuk menjalankan CommandButton. Klik 2 kali pada CommandButton.
Kemudian klik Run. Akan muncul Form seperti dibawah. Isi form tersebut dengan Kode Barang pada Tabel di Data Barang di Gudang. Masukkan juga jumlah barang yang telah terjual di Jumlah Dibeli.
Klik OK dan data akan otomatis masuk ke dalam Data Penjualan. Jika ingin menambah data, klik Baru dan secara otomatis isian form sebelumnya akan hilang dan data akan masuk di barisan berikutnya.
Jika sudah selesai, tekan Selesai dan akan keluar pilihan Yes dan No.
Jika pilih No, maka akan keluar tulisan Tidak jadi keluar! Aplikasi Masih akan Beroperasi!. Jika pilih Yes, aplikasi akan otomatis keluar dari Ms. Excel dan otomatis tersimpan.
Sekian penjelasan dari saya mengenai aplikasi Data Penjualan Barang. Semoga bermanfaat. Terima Kasih
Tidak ada komentar:
Posting Komentar