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