
Oke, saya berasumsi bahwa anda sudah cukup mahir mengisi daftar-daftar ListBox yang bisa anda pelajari melalui link yang sudah saya sediakan di atas. Selanjutnya adalah, kita akan mencoab memilih daftar-daftar yang terdapat dalam ListBox dengan menggunakan tombol Enter dan menampilkan informasi yang terkait dengan data tersebut.
Sebelumnya, silahkan buat sebuah tabel yang berisi data-data yang diletakkan di sebuah lembar kerja untuk nantinya diletakkan di ListBox. Dan untuk tutorial ini, saya sudah menyiapkan data sebagai berikut:
Jika anda perhatikan, maka daftar yang tampil di ListBox harusnya persis seperti apa yang tertulis di lembar kerja, yakni sejumlah 3 kolom dan berisi 5 buah baris yang memuat nama-nama karyawan. Sehingga jika di desain dalam sebuah UserForm maka akan terlihat seperti berikut :
Dari tampilan di atas, terdapat sebuah kotak yang terdapat di sebelah ListBox. Kegunaan dari kotak ini (TextBox) adalah sebagai tempat untuk menampilkan informasi dari setiap baris atau nilai yang dipilih di ListBox, juga bisa digunakan sebagai tempat untuk merubah data yang terkait dengan daftar yang terpilih.
Untuk langkah selanjutnya adalah kita menuliskan serangkaian baris kode berikut
Untuk menempatkan kode berikut ini, silahkan klik kanan objek UserForm yang sudah didesain kemudian pilih view code untuk langsung menuju jendela kode. Selanjutnya copy paste kode berikut ini yang sudah dilengkapi dengan even dan prosedur untuk masing-masing kontrol
Private Sub UserForm_Activate() ListBox1.RowSource = "A2:C6" ListBox1.ListIndex = 0 End Sub '-------------- Private Sub ListBox1_Click() TextBox1 = ListBox1.Column(2) TextBox1.SetFocus End Sub '-------------- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then If ListBox1.ListIndex + 1 = ListBox1.ListCount Then Cells(ListBox1.ListIndex + 2, 3) = TextBox1 If MsgBox("Anda sudah berada di daftar paling akhir" & vbCr & _ "Klik tombol YES jika ingin mengulang dari awal", vbYesNo) = vbYes Then ListBox1.ListIndex = 0 TextBox1.SetFocus Call aa Else Call aa End If Else Cells(ListBox1.ListIndex + 2, 3) = TextBox1 ListBox1.ListIndex = ListBox1.ListIndex + 1 Call aa tb1 = "" End If End If End Sub
- Menentukan isi daftar ListBox yang berasal dari range A2:C6 serta memilih daftar pertama yang terdapat di ListBox. Dua baris kode ini akan berjalan otomatis ketika UserForm dibuka
- Disaat yang bersamaan pula, ketika isi ListBox terpilih maka kursor otomatis menuju kotak TextBox
- Ketika kursor sudah berada di dalam kotak TextBox maka selanjutnya even yang saya pilih adalah KeyDown, artinya ketika pengguna menekan tombol-tombol yang terdapat di keyboard maka akan menjalankan perintah sebagai berikut :
- Menentukan tombol yang hanya berlaku untuk even ini adalah tombol ENTER (keycode = 13)
- Jika ternyata urutan daftar yang terpilih adalah sama dengan jumlah banyaknya daftar yang ada dalam ListBox, maka sebuah jendela informasi akan muncul. Dijendela informasi ini juga saya menyematkan sebuah logika yang bertujuan apakah pengguna ingin mengulangi dari awal atau tidak
- Jika urutan daftar yang terpilih bukan data terakhir maka perintah atau kode yang akan dieksekusi adalah kode
aa yang berikutnya saya tulis dalam sebuah module
untuk meletakkan kode ini, maka yang harus anda lakukan terlebih dahulu adalah dengan membuat module baru dengan cara klik menu Insert kemudian klik Module, selajutnya copy-paste kode ini di dalamnya
Sub aa() Application.OnTime Now + TimeValue("00:00:01"), "bb" End Sub '-------------- Sub bb() With UserForm1 .TextBox1.SetFocus .TextBox1 = .ListBox1.Column(2) End With End Sub
Jika anda mengikuti langkah-langkah di atas secara tepat, hasil yang akan anda dapatkan ketika menekan tombol
Selamat...anda sudah berhasil memilih item-item yang terdapat di dalam daftar ListBox dengan menggunakan tombol Enter yang terdapat di keyboard, juga anda bisa langsung merubah informasi yang terkait dengan item tersebut melalui kotak TextBox yang tersedia.
semoga tutorial yang cukup singkat ini memberikan manfaat untuk anda.
Incoming Search Terms
Menampilkan data dari listbox ke textbox vba excel Merubah langsung isi daftar ListBox melalui TextBox
Cara menggunakan dan membuat Module On-Time
Menggunakan even KeyDown untuk menentukan tombol Keyboard yang digunakan
Mengenal kode-kode yang digunakan dalam prosedur KeyDown
Terimakasih sudah membaca
Tutorial: Memilih Isi Daftar ListBox Dengan Menggunakan Tombol Enter
Label: ListBox - Author: excelive
Tutorial: Memilih Isi Daftar ListBox Dengan Menggunakan Tombol Enter
Label: ListBox - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :