Membuat Form Input Data VBA Pada Excel

Pada kesempatan kali ini akan mencoba berbagi ilmu bagaimana membuat aplikasi input sederhana dengan memanfaatkan Visual Basic pada Microsoft excel. 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. Untuk lebih jelasnya berikut ini langkah pembuatannya :

1. Buka lembar kerja Microsoft Excel, Persiapan awal pada Sheet1 tuliskan data berikut.

Langkah 1 Membuat Form Input Data VBA Pada Excel2. Buka Sheet2 dan buatlah judul kolom seperti berikut.

Langkah 2 Membuat Form Input Data VBA Pada Excel3. Menambahkan tombol Input pada Sheet1, caranya Klik tab menu Developer, Klik Design mode dalam group Controls, Klik Insert pilih  dan klik Command button dalam group ActiveX Controls, kemudian Tempatkan Command button dalam lembar kerja sheet1.

Langkah 3 Membuat Form Input Data VBA Pada Excel4.        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″)

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”)

Call Range(“D4″).Select

ElseIf info.Range(“D4″).Value <> “” And info.Range(“D6″).Value <> “” Then pesan = MsgBox(“Masukkan data sekarang?”, vbYesNo + vbInformation, “Informasi Data”)

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

dbs.Cells(linenext, 2).Value = Range(“D4″).Value

dbs.Cells(linenext, 3).Value = Range(“D6″).Value

End If

End If

End Sub

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

6. Simpan file dengan nama Input.xlsm (Excel Macro-Enabled Workbook), untuk mencobanya masukan kode barang dan nama barang, kemudian klik Input

Langkah 4 Membuat Form Input Data VBA Pada Excel7. Maka akan muncul hasil pada sheet2, seperti pada tampilan berikut.

Langkah 5 Membuat Form Input Data VBA Pada ExcelDemikian cara membuat input data dengan menggunakan VBA pada Excel, hak ini sangat membantu Anda untuk memasukan data secara cepat dan tepat, tanpa harus mengedit lagi. Semoga Bermanfaat.

Add a Comment

Your email address will not be published. Required fields are marked *

* Copy this password:

* Type or paste password here: