Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik excel vba

Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik excel vba

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..!!
Baca Juga  Belajar Microsoft Excel: Pivottable Excel 2003 - Menghasilkan Summary Dengan Sekejap

Tinggalkan Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Need Help? Chat with us