Membuat Aplikasi Input Barang Sederhana Dengan Ms. Excel

Membuat Aplikasi Input Barang Sederhana Dengan Ms. Excel ~ Sudah kita kethaui bahwa microsoft excel tidak hanya sebagai aplikasi kantor biasa yang hanya bisa mengolah data angka. Akan tetapi juga bisa untuk membuat sebuah aplikasi dengan bantuan Visual Basic fot Aplication (VBA).

Di bawah ini saya share panduan membuat aplikasi sederhana dengan ms. excel, tapi sebelum anda baca dan anda praktikkan, saya kasih catatan penting bahwa tutorial di bawah ini bukan hasil karya saya dan saya sendiri belum mempraktikkannya. Saya share di sini hanya untuk mengisi kekosongan ide untuk menulis saja. Terus terang, dalam beberapa hari terakhir saya seperti kehilangan ide mau menulis apa, jadi agar blog tidak terlalu lama tidak diupdate saya ambil langkah copy paste artikel dari blog lain. Sumbernya saya sertakan di bawah nanti, agar kalau ada masalah anda bisa langsung bertanya ke penulisnya langsung.

Tutorial Membuat Aplikasi Sederhana Dengan  VBA Microsoft Excel
Pada kesempatan kali ini saya mencoba berbagi ilmu bagaimana membuat aplikasi input sederhana dengan memanfaatkan Visual Basic pada Microsoft excel 2007. Sebagai sedikit gambaran mengenai sistem kerja aplikasi input data sederhana ini yaitu data yang dimasukkan dalam Sheet1 (Form Input) dikirim ke dalam Sheet2 sebagai database.

Berikut ini langkah pembuatannya :

1. Buka lembar kerja Microsoft Excel

2. Persiapan awal pada Sheet1 :

     - sel B2 Ketikkan INPUT BARANG
     - sel B4 Ketikkan Kode Barang
     - sel B6 Ketikkan Nama Barang

gambar 1

3. Buka Sheet2 dan buatlah judul kolom pada sel A1 = No, sel B1 = Kode barang, sel C1 = Nama barang
gambar 2
 

 4. Menambahkan tombol Input pada Sheet1

- Klik tab menu Developer

- Klik Design mode dalam group Controls

- Klik Insert pilih dan klik Command button dalam group ActiveX Controls
   Tempatkan Command button dalam lembar kerja sheet1 dan atur propertis Name = cmbInput dan Captions = Input

gambar 3

5. Klik dua kali tombol insert yang sudah terbentuk dan ketikkan kode berikut ini pada lembarkerja Visual Basic Editor yang terbuka

Private Sub cmbInput_Click()

Set info = Worksheets("sheet1")

'jika sel D4 atau D6 masih kosong
If info.Range("D4").Value = "" Or info.Range("D6").Value = "" Then

    pesan = MsgBox("PERHATIAN!!!" & vbCrLf & "Kolom nama/kode barang masih kosong!", vbOKOnly + vbCritical, "INPUT GAGAL")

    'pilih sel D4

    Call Range("D4").Select

'jika sel D4 atau D6 sudah terisi

ElseIf info.Range("D4").Value <> "" And info.Range("D6").Value <> "" Then

    pesan = MsgBox("Masukkan data sekarang?", vbYesNo + vbInformation, "Informasi Data")



'jalankan perintah jika tombol yes di klik

If pesan = vbYes Then

Set dbs = Worksheets("sheet2")

linenext = dbs.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

dbs.Cells(linenext, 1).Value = Range("F1").Value + 1    'No urut

dbs.Cells(linenext, 2).Value = Range("D4").Value        'Kode Barang

dbs.Cells(linenext, 3).Value = Range("D6").Value        'Nama Barang

    End If
    End If
End Sub
6. Membuat counter jumlah barang yang sudah dimasukkan
- Tulis “ Jumlah barang terdaftar : “ pada sel E1 (tanpa tanda petik)
- Pada sel F1 masukkan formula =COUNTA(Sheet2!A2:A100)
7. Simpan file dengan nama Input.xlsm (Excel Macro-Enabled Workbook)


gambar Sheet 1

gambar Sheet 2

Selamat mencoba dan semoga bermanfaat...