Memilih Isi Daftar ListBox Dengan Menggunakan Tombol Enter

Jika masih bertanya tentang bagaimana cara mengisi daftar ListBox, maka silahkan lihat beberapa tutorial terkait cara mengisi ListBox - karena saya tidak akan menjelaskannya di postingkan kali ini agar bisa lebih fokus terhadap tutorial yang akan kita bahas saja.

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 :
Daftar ListBox

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
Kode UserForm
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

Penjelasan singkat rangkaian kode di atas :

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

Setelah anda selesai menulis baris kode untuk UserForm, sekarang saatnya menuliskan kode di dalam module.

Kode 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 di menubar, maka akan tampak seperti tampilan berikut:

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. Adios

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