Form Input sekaligus sebagai Form Output

Dalam mengerjakan tugas sehari-hari di sekolah, seringkali kita berhubungan dengan DATA. Akan lebih mudah bagi operator data jika data tersebut didesain secara simple. Secara umum, desain Data terdiri dari tiga bagian, yakni Input, Proses, Output.
Tulisan kali ini membahas tentang pembuatan Form Input yang sekaligus juga digunakan sebagai Form menampilkan output dari data yang sudah kita simpan sebelumnya. Form yang berfungsi ganda ini biasanya digunakan untuk: Rekap Absen, Formulir Pendaftaran Siswa, Pengisian Nilai, dan lain sebagainya.
Untuk contoh kita kali ini, disajikan Form pengisian Data Siswa per kelas.

Pada gambar di atas, form digunakan sebagai input data siswa per kelas. Jadi, jika ingin memasukkan data baru untuk kelas X-a, langsung kita tulis di tabel, kemudian setelah menekan tombol 'Simpan', maka data yang kita tulis disimpan di tabel penyimpanan. 
Untuk mengisi data kelas yang lain, maka kita pilih kelasnya melalui Combo Box, kita tuliskan datanya lalu klik 'Simpan'. 


Karena form tadi juga berfungsi sebagai Output, maka ketika kita pilih suatu kelas, maka tabel yang tampil di layar akan menampilkan data dari kelas tersebut sesuai yang sudah tersimpan.


Untuk membuat form yang bisa berfungsi ganda tersebut, setidaknya kita butuh 2 objek. Yakni objek untuk menyimpan data termasuk data baru, dan objek untuk menampilkan data yang sudah ada. Dalam contoh ini, untuk menyimpan data kita menggunakan Shape yang diberi Macro. Coding macro untuk menyimpan data di sheet yang sesuai adalah:



       Sub Simpan()

Dim Kls As String
Dim Jml As Single


NoKls = Range("D5").Value
Kls = Choose(NoKls, "a", "b", "c", "d")
Jml = 7 + Application.WorksheetFunction.CountA("c7:c1000")
   
Application.ScreenUpdating = False
    Range("B7:E" & Jml).Copy
    Sheets("X-" & Kls).Range("A4").PasteSpecial xlPasteValues
Application.CutCopyMode = False


Call ShowNilai


End Sub

Metode yang digunakan macro di atas adalah mengkopi data di tabel ke sheet yang sesuai. (Untuk tiap kelas kita buat Sheet khusus sesuai dengan nama kelas).

Sedangkan kode Macro untuk menampilkan data siswa sesuai dengan kelas yang dipilih adalah:

Sub ShowNilai()

NoKls = Range("D5").Value
Kls = Choose(NoKls, "a", "b", "c", "d")
Application.ScreenUpdating = False
    Sheets("X-" & Kls).Range("A4:D1000").Copy
    Range("Form!B7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
ThisWorkbook.Save
Application.ScreenUpdating = True
Range("B7").Select
End Sub

Metode yang digunakan adalah kebalikan dari yang pertama, yakni mengkopi data di sheet yang sesuai, kemudian mem-paste-kan di form.

Sebenarnya metode yang bisa dipakai untuk menampilkan atau menyimpan data tidak hanya menggunakan Copy-Paste sebagaimana coding di atas. Tapi bagi pemula dalam belajar VBA seperti saya, penggunakan metode Copas terasa lebih mudah dan sederhana.

Nah, file contoh Form yang berfungsi ganda bisa didownload di BoxNet pada sidebar atau di sini

Artikel Terkait: