Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik

Perhatikan gambar di atas.!! begitulah maksud saya dengan judul posting ini. Double klik pada data yang ada di ListBox, Data pada ListBox akan di tampilkan pada TextBox. 

Ini merupakan penjelasan lanjutan..!! File latihan yang digunakan juga merupakan lanjutan. Jadi perlu diperhatikan posting terdahulu..

1. Tombol Simpan VBA Excel
2. UserForm Muncul Otomatis Saat Excel Dibuka
3. Range Dinamis
4. Tampilkan Data ListBox UserForm VBA Excel

Langkah-langkah menampilkan data dari ListBox ke TextBox dengan Double klik :

• Buka Visual Basic File Aplikasi Data yang pernah di jelaskan (Tombol Simpan VBA Excel)
• Klik kanan pada ListBox dan pilih View Code. Perhatikan gambar dibawah ini 

• Masukkan kode dibawah ini seperti yang terlihat pada gambar diatas 

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim daftar As Long
Dim Ws As Worksheet: Set Ws = Worksheets("DB")
With Me.ListBox1
daftar = .ListIndex
If daftar < 1 Or daftar = .ListCount Then
ListDB
Else
TxtNoInduk.Value = .List(daftar, 1)
TxtNamaSiswa.Value = .List(daftar, 2)
If .List(daftar, 3) = "Laki-Laki" Then OptLaki.Value = True: OptPerempuan.Value = False
If .List(daftar, 3) = "Perempuan" Then OptPerempuan.Value = True: OptLaki.Value = False
End If
TxtAlamat.Value = .List(daftar, 4)
End With
End Sub

• Selesai, Coba jalankan..!! 

Demikian sedikit penjelasan cara menampilkan data yang ada pada ListBox ke TextBox dengan Double Klik. Semoga bermanfaat bagi anda yang belajar otodidak.