Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik excel vba
Perhatikan gambar di atas.!! begitulah maksud saya dengan judul posting ini. Double klik pada data yang ada di ListBox, Data pada ListBox vba excel akan di tampilkan pada TextBox.
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..!!