• Memilih Isi Daftar ListBox Dengan Menggunakan Tombol Enter

    Fill Form ListBox 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:
    nama karyawan

    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:
    memilih listbox dengan enter

    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

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger