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.

Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode. Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan

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

Tombol Simpan VBA Excel
UserForm Muncul Otomatis Saat Excel Dibuka
Range Dinamis
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.



Berlangganan update artikel terbaru via email:

12 Responses to "Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik"

  1. 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 :)

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

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

    ReplyDelete
    Replies
    1. Mohon bersabar... kita sama2 belajar.. saya cuma otodidak juga..

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

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

      Delete
  4. Replies
    1. Zul LJB Lombok... Terimakasih sudah berkunjung...

      Delete
  5. Replies
    1. "ListDB" sama dengan memanggil data pada range yang telah dibuat pada sheet..

      pastikan pada langkah ini
      http://www.senbakusen.com/2015/12/range-dinamis.html

      dan pada langkah ini
      https://www.senbakusen.com/2015/12/listbox-di-userform-vba-excel.html

      sudah dilakukan dengan benar..

      Delete
  6. slamat malam pak saya ingin mengedit file database dengan data yang di tampilkan pada listview,,, saya sudah coba mencari beberapa referensi namum saya bigung pak,, mohom pencarehannya pak untuk ini. tanks

    ReplyDelete
    Replies
    1. Saya juga bingung masalah listview ne....

      Delete

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel