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.
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 |
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.
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
BalasHapusMhn pnjlsannya pak, trm ksh :)
wwaaach.. kenapa bisa gtu yeah..!! bisa dikirimkan aplikasinya ke email saya.. saya coba untuk lihat..!!
Hapusemail saya : senbakusen@gmail.com
Apl sdh sy krm ke email pak, kiranya mhn koreksinya agar sy bs bljr ke step slnjtnya, trma ksh :)
BalasHapusMohon bersabar... kita sama2 belajar.. saya cuma otodidak juga..
HapusTrma ksh pak hehe trnyta sy slh penempatan tulisan y,, yep sy msh hrs bnyk bljr nich,,
BalasHapusSama2 kita belajar mas.. !! saya juga hasil copy paste dari aplikasi orang lain...
HapusMantap bang!, Sangat bermanfaat
BalasHapusZul LJB Lombok... Terimakasih sudah berkunjung...
HapuslistDB itu apa ya?
BalasHapus"ListDB" sama dengan memanggil data pada range yang telah dibuat pada sheet..
Hapuspastikan 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..
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
BalasHapusSaya juga bingung masalah listview ne....
HapusTerima kasih atas ilmunya pak, tapi di permasalahan saya ada 4 OptionButton dan ketika setelah di double klik data OptionButtonnya tidak tercentang
BalasHapusini 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
Option button digunakan untuk menentukan pilihan dari beberapa pilihan dari satu kategori.. pada contoh satu kategori jenis kelamin...
Hapusjika ada beberapa kategori lain jangan gunakan option button.. tp gunakan CheckBox..
hmmm maksud saya bagaimana jika kategori jenis kelamin itu terdiri dari 4 pilihan ? sedangkan yang dicontoh hanya terdiri dari 2 pilihan.
Hapusmaaf merepotkan terima kasih pak!
Kirimkan filenya ke whatsapp saya..
Hapus