√ 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 supaya gampang terlihat oleh User.

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

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

Bagaimana langkah untuk menciptakan hal tersebut?
Langkah pertama Anda harus menciptakan 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 dibentuk mari kita menciptakan 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 yakni kolom 1 berukuran 95, kolom 2 berukuran 90, dan kolom 3 berukuran 30 Sebenarnya hal ini dapat Anda lakukan dengan memakai atau merubah properties. Untuk ukuran silakan sesuaikan dengan kebutuhan contohnya ada nama yang panjang berarti untuk kolom ke1 dapat Anda rubah menjadi 150.

Langkah Kedua kita akan menciptakan mekanisme untuk CommandButton1 yakni kalau 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 kalau Ada salah satu textbox yang dikosongkan perintah "+Tambah" tidak akan berfungsi atau akan menampilkan pesan untuk memasukan data. dan kalau semua textbox berisi data maka kalau di klik tombol tambah data maka semua data dari masng-masing textbox akan dimasukan kedalam listbox sesuai dengan kolomnya.

Silakan Anda belajar menciptakan UserForm untuk menambah wawasan

[23] Pengenalan Dasar Membuat UserForm VBA Excel





Sumber http://www.excel-id.com/