Wednesday, December 16, 2015

Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik

Perhatikan gambar di bawah.!! begitulah maksud saya dengan judul posting ini. Double klik pada data yang ada di ListBox, Data pada ListBox akan di tampilkan pada TextBox. Cukup mudah membuat perintah tersebut. Sesuaikan segala properties dari tiap element. Ambil Kode Vbanya dan tempatkan pada tempat yang benar. 


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.



8 komentar

Slmt sore pak, sy baru bljr nich koq scriptnya debug y, sy dh coba ikuti sesuai script di atas. Compile error end with without with
Mhn pnjlsannya pak, trm ksh :)

wwaaach.. kenapa bisa gtu yeah..!! bisa dikirimkan aplikasinya ke email saya.. saya coba untuk lihat..!!
email saya : senbakusen@gmail.com

Apl sdh sy krm ke email pak, kiranya mhn koreksinya agar sy bs bljr ke step slnjtnya, trma ksh :)

Mohon bersabar... kita sama2 belajar.. saya cuma otodidak juga..

Trma ksh pak hehe trnyta sy slh penempatan tulisan y,, yep sy msh hrs bnyk bljr nich,,

Sama2 kita belajar mas.. !! saya juga hasil copy paste dari aplikasi orang lain...

Zul LJB Lombok... Terimakasih sudah berkunjung...

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon