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.
2. Buka Sheet2 dan buatlah judul kolom seperti berikut.
3. 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.
4. 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
7. Maka akan muncul hasil pada sheet2, seperti pada tampilan berikut.
Demikian 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.
Mohon bantuan dan Bimbingannya Gan
saya nyoba ga bisa jalan Gan. Mohon bimbingannya
mau tanya saat di complie code berikut errorbox bunyinya “else without if ”
ElseIf info.Range(“D4″).Value “” And info.Range(“D6″).Value “” Then
keblok hitam. maksudnya digimana ya? soalnya say baru belajar vb dan excel.
dak jalan gan apa ada yg salah padahal saya copy paste
biar berhasil coba dibuat seperti ini
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
“end if” nya hilangkan satu, dijamin berhasil
Kenapa tidak bs di execute dan selalu compile error yah? pdahal sudah mengikuti ralat yang disebutkan di atas?
mohon penjelasan lebih lanjut, trims
Mas mau nanya,,itu koding program simpan nya kan di sheet1 kolom nya horizontal,,kalau kolomnya vertikal di kolom sheet 1,,bagaimana koding nya di tombol simpan mas.,,mohon bantuannya mas
Mohon bantuannya Gan, klo data yang kita input GANDA gimana caranya agar data tersebut tidak tersimpan dan muncul popup “DATA GANDA”, terimakasih sebelumnya.