Membuat Aplikasi input data barang dengan menggunakan excel 2007

  Bagaimana membuat aplikasi input barang menggunakan excel 2007, anda bisa memasukan data pada kolom pengusian barang dan secara automatis data akan masuk ke data tersebut, anda cukup menggunakan form barang yang tersedia pada sheet input barang, dan anda bisa menggunakan input tersbut tanpa merepotkan dengan memasukan data barang dan memindahkan kolom secara satu-satu, aplikasi sederhana ini bisa anda gunakan secara mudah dan anda bisa modifikasi aplikasi tersebut sesuai dengan keinginan anda,

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

Label:
Cara Membuat Aplikasi Sederhana Dengan Ms Excel,
Membuat Aplikasi Kasir Sederhana
Membuat Aplikasi Form Sederhana Di Ms Excel
Tutorial Sederhana Macro Di Msexcel
Membuat Aplikasi Form Sederhana Di Excel Finish
Tutorial Membuat Quiz Di Microsoft Excel
Membuat Aplikasi Form Dengan Ms Excel Bagian
Membuat Laporan Keuangan Menggunakan Microsoft Excel
Cara Membuat Data Penjualan Sederhana Dengan Microsoft Excel
Membuat Nota Otomatis Ms Excel 2007
Cara Membuat Program Software Sederhana
Cara Membuat Program Absen Siswa Dengan Ms Access