Membuat Aplikasi Input Sederhana Dengan VBA Microsoft Excel 2007 Bagian 1

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...