Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik

Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik - Yang akan kita pelajari pada artikel ini akan sangat bermanfaat bagi kita yang suka mengembangkan aplikasi Excel.

menampilkan data dari listbox ke textbox dengan perintah double klik menggunakan mouse. Perhatikan gambar di bawah.!! begitulah maksud saya dengan judul posting ini. 
Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
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.

Video Cara Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik

Semoga bermanfaat bagi anda yang belajar otodidak seperti admin yang juga mempelajari membuat aplikasi Excel secara otodidak juga. 

Jika ada hal-hal yang tidak jelas mohon dapat di tanyakan pada kolom komentar yang tersedia di bawah artikel ini.

Sampaikan juga saran serta kritikan yang membangun dengan cara bijaksana agar admin dapat mengembangkan blog ini menjadi lebih baik lagi.

Jika artikel ini dirasakan ada manfaat dan berguna mohon dapat dishare ke teman-teman lainnya pengguna Excel melalui media sosial.

16 komentar untuk "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 :)

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

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

    BalasHapus
    Balasan
    1. Mohon bersabar... kita sama2 belajar.. saya cuma otodidak juga..

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

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

      Hapus
  4. Mantap bang!, Sangat bermanfaat

    BalasHapus
    Balasan
    1. Zul LJB Lombok... Terimakasih sudah berkunjung...

      Hapus
  5. listDB itu apa ya?

    BalasHapus
    Balasan
    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..

      Hapus
  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

    BalasHapus
    Balasan
    1. Saya juga bingung masalah listview ne....

      Hapus
  7. Terima kasih atas ilmunya pak, tapi di permasalahan saya ada 4 OptionButton dan ketika setelah di double klik data OptionButtonnya tidak tercentang
    ini Kode nya :
    If .List(daftar, 6) = "Done" Then OptionButton1.Value = True:
    OptionButton2.Value = False: OptionButton3.Value = False: OptionButton4.Value = False
    If .List(daftar, 6) = "OnProses" Then OptionButton2.Value = True:
    OptionButton1.Value = False: OptionButton3.Value = False: OptionButton4.Value = False
    If .List(daftar, 6) = "Closed" Then OptionButton3.Value = True:
    OptionButton1.Value = False: OptionButton2.Value = False: OptionButton4.Value = False
    If .List(daftar, 6) = "Hold" Then OptionButton4.Value = True:
    OptionButton1.Value = False: OptionButton2.Value = False: OptionButton3.Value = False
    Mohon Pencerahannya pak

    BalasHapus
    Balasan
    1. Option button digunakan untuk menentukan pilihan dari beberapa pilihan dari satu kategori.. pada contoh satu kategori jenis kelamin...
      jika ada beberapa kategori lain jangan gunakan option button.. tp gunakan CheckBox..

      Hapus
    2. hmmm maksud saya bagaimana jika kategori jenis kelamin itu terdiri dari 4 pilihan ? sedangkan yang dicontoh hanya terdiri dari 2 pilihan.
      maaf merepotkan terima kasih pak!

      Hapus
    3. Kirimkan filenya ke whatsapp saya..

      Hapus

Komentar Anda Sangat Menentukan Kelangsungan Blog ini