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..!!