Pilar dalam membuat sebuah aplikasi terutama pada Excel, salah satunya adalah pembuatan form input data melalui VBA. Form input data sangat penting karena memudahkan proses input data pada aplikasi sehingga tidak perlu mengedit secara langsung pada database. Form input data dapat disesuaikan dengan kebutuhan aplikasi, mulai dari tampilan, pengaturan dan pengolahan datanya.
Pada pembuatan form input data melalui VBA, terdapat beberapa langkah yang perlu dilakukan. Pertama, buat file baru pada aplikasi Excel, kemudian pilih tab “Developer” dan klik “Visual Basic”. Setelah itu pada jendela VBA, klik kanan pada Project dan pilih “Insert” -> “Userform”. Userform akan berisi elemen-elemen yang nantinya akan digunakan pada form input data.
Setelah berhasil membuat Userform, langkah selanjutnya adalah menambahkan elemen-elemen pada Userform tersebut, diantaranya adalah Label, Textbox, ComboBox, OptionButton, CheckBox, dan CommandButton. Label berfungsi sebagai penanda label pada form, Textbox sebagai kolom untuk memasukkan data, ComboBox sebagai kolom untuk memilih data dari daftar pilihan, OptionButton dan CheckBox berfungsi sebagai pilihan tandai atau tidak, dan CommandButton berfungsi sebagai tombol untuk menyimpan data.
Misalnya pada aplikasi Excel, dibuatkan form input data untuk data barang, berikut langkah-langkahnya:
1. Buat file baru pada aplikasi Excel.
2. Pilih tab “Developer” dan klik “Visual Basic”.
3. Pada jendela VBA, klik kanan pada Project dan pilih “Insert” -> “Userform”.
4. Pilih elemen-elemen yang ingin ditambahkan pada Userform, seperti Label, Textbox, dan CommandButton.
5. Pada Label, tambahkan Label “Kode Barang”, pada Textbox tambahkan Textbox “KodeBarang” dan pada CommandButton tambahkan CommandButton “Simpan”.
6. Atur posisi elemen-elemen pada Userform sesuai keinginan.
7. Klik dua kali pada CommandButton “Simpan”, sehingga muncul jendela VBA untuk menambahkan kode program.
8. Input kode program untuk menyimpan data pada database, seperti contoh berikut:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & ThisWorkbook.Path & “\DataBarang.xlsx;Extended Properties=””Excel 12.0 Xml;HDR=YES”””
cn.Open
rs.Open “SELECT * FROM [Sheet1$]”, cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields(“KodeBarang”) = Me.KodeBarang.Value
rs.Update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Contoh kode program pada langkah ke-8 menggunakan provider Microsoft.ACE.OLEDB.12.0 untuk mengkoneksikan Excel dengan database. Pada materi selanjutnya akan dijelaskan tentang provider lain yang bisa digunakan untuk melakukan koneksi ke database.
Selain pembuatan form input data melalui VBA, terdapat pula pembuatan listbox pada aplikasi Excel. Listbox berfungsi sebagai daftar pilihan yang dapat dipilih oleh pengguna pada saat melakukan input data. Pembuatan listbox dapat dilakukan dengan cara sebagai berikut:
1. Buat file baru pada aplikasi Excel.
2. Pilih tab “Developer” dan klik “Visual Basic”.
3. Pada jendela VBA, klik kanan pada Project dan pilih “Insert” -> “Userform”.
4. Pilih elemen-elemen yang ingin ditambahkan pada Userform, seperti Label, Listbox, dan CommandButton.
5. Pada Label, tambahkan Label “Kode Barang”, pada Listbox tambahkan Listbox “ListBarang”, dan pada CommandButton tambahkan CommandButton “Simpan”.
6. Atur posisi elemen-elemen pada Userform sesuai keinginan.
7. Klik dua kali pada CommandButton “Simpan”, sehingga muncul jendela VBA untuk menambahkan kode program.
8. Input kode program untuk menyimpan data pada database, seperti pada contoh sebelumnya.
9. Klik dua kali pada Listbox “ListBarang”, sehingga muncul jendela VBA untuk menambahkan kode program.
10. Input kode program untuk menampilkan daftar barang pada Listbox, seperti contoh berikut:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & ThisWorkbook.Path & “\DataBarang.xlsx;Extended Properties=””Excel 12.0 Xml;HDR=YES”””
cn.Open
rs.Open “SELECT * FROM [Sheet1$]”, cn, adOpenKeyset, adLockOptimistic
If rs.EOF = False Then
Do While Not rs.EOF
Me.ListBarang.AddItem rs.Fields(“NamaBarang”).Value
rs.MoveNext
Loop
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Contoh kode program pada langkah ke-10 menggunakan perintah “AddItem” untuk menambahkan item pada Listbox. Pada materi selanjutnya akan dijelaskan cara untuk menghapus dan mengedit item pada Listbox.
FAQ:
1. Apakah pembuatan form input data melalui VBA hanya bisa dilakukan pada aplikasi Excel?
Tidak, pembuatan form input data melalui VBA juga bisa dilakukan pada aplikasi-aplikasi Microsoft Office lainnya, seperti Microsoft Word, Microsoft Access, dan Microsoft PowerPoint.
2. Apakah penyimpanan data pada Excel selalu menggunakan provider Microsoft.ACE.OLEDB.12.0?
Tidak, penyimpanan data pada Excel dapat menggunakan provider-provider lainnya, seperti ODBC, DAO, dan ADODB.
Include video Youtube:
Berikut merupakan video tutorial pembuatan form input data pada Excel menggunakan VBA:
[https://www.youtube.com/watch?v=uTz69i2LD20]
Demikianlah pembahasan mengenai pembuatan form input data melalui VBA pada aplikasi Excel dan pembuatan listbox pada Excel. Dengan pembuatan form input data dan listbox yang sesuai kebutuhan aplikasi, input data pada aplikasi Excel akan menjadi lebih mudah dan efisien. Kami harap materi ini bermanfaat bagi pembaca.
