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 :

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

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