Memasukan Data Textbox ke Listbox dengan Tombol pada UserForm

Mengentri data atau memasukan data ke listbox melalui data textbox yang kita entri tentu harus melalui CommandButton sebagai tombol perintah untuk memasukan data dari textbok ke listbox. Hal ini dilakukan melalui UserForm yang dirancang hanya memasukan data sementara agar mudah terlihat oleh User.

Perlu diketahui bahwa tombol perintah memasukan data dari textbox ke listbox ini sifatnya hanya sementara artinya jika userform di close maka data yang telah ada pada listbox tidak akan tersimpan dan jika Anda membukanya kembali userform tersebut maka data akan hilang. Baiklah seperti apa contoh tampilannya? Lihatlah gambar berikut ini

Gambar diatas merupakan hasil dari entri Nama anak, tempat lahir, dan tanggal lahir. Prosedurnya ketika Anda klik tombol +Tambah maka data yang ada pada ketiga textbox tersebut akan dimasukan ke dalam listbox dan data baru akan dimasukan pada akhir listbox.

Bagaimana langkah untuk membuat hal tersebut?
Langkah pertama Anda harus membuat satu buah UserFom dan disini dengan 3 buah label, 3 buat textbox, 1 buat listbox, dan 1 buah Combobox. Berikut Properties yang harus Anda lakukan

Label1 ganti Caption menjadi "Nama Anak"
Label2 ganti Caption menjadi "Tempat Lahir"
Label3 ganti Caption menjadi "Tanggal Lahir"
Textbox1, Textbox2, Textbox3 Name biarkan default saja jangan dirubah
Listbox1 Name biarkan juga default saja jangan dirubah
Commanbutton1 ganti Caption menjadi "+Tambah"

Jika Properties sudah dibuat mari kita membuat coding nya.
Buat Codding untuk UserForm_Active

Private Sub UserForm_Activate()
With ListBox1
    .ColumnCount = 3
    .ColumnWidths = 95 & " , " & 90 & "," & 30
End With
End Sub

Artinya Listbox akan diberi jumlah kolom sebanyak 3 dan ukuran per kolom yaitu kolom 1 berukuran 95, kolom 2 berukuran 90, dan kolom 3 berukuran 30 Sebenarnya hal ini bisa Anda lakukan dengan menggunakan atau merubah properties. Untuk ukuran silakan sesuaikan dengan kebutuhan misalnya ada nama yang panjang berarti untuk kolom ke1 bisa Anda rubah menjadi 150.

Langkah Kedua kita akan membuat prosedur untuk CommandButton1 yaitu jika di klik maka data akan dimasukan kedalam listbox dan berikut script VBA nya.

Private Sub CommandButton1_Click()
UserForm_Activate
With ListBox1
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        MsgBox "Masukan Nama Anak"
        Exit Sub
    End If
    If Trim(Me.TextBox2.Value) = "" Then
        Me.TextBox2.SetFocus
        MsgBox "Masukan Tempat Lahir Anak"
        Exit Sub
    End If
    If Trim(Me.TextBox3.Value) = "" Then
        Me.TextBox3.SetFocus
        MsgBox "Masukan Tanggal Lahir Anak"
        Exit Sub
    End If

.AddItem
.List(.ListCount - 1, 0) = TextBox1.Value
.List(.ListCount - 1, 1) = TextBox2.Value
.List(.ListCount - 1, 2) = TextBox3.Value
End With

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox1.SetFocus
End Sub

Artinya jika Ada salah satu textbox yang dikosongkan perintah "+Tambah" tidak akan berfungsi atau akan menampilkan pesan untuk memasukan data. dan jika semua textbox berisi data maka jika di klik tombol tambah data maka semua data dari masng-masing textbox akan dimasukan kedalam listbox sesuai dengan kolomnya.

Silakan Anda belajar membuat UserForm untuk menambah wawasan

[23] Pengenalan Dasar Membuat UserForm VBA Excel

Tweet