Cara Menampilkan Data Di Listbox Dengan Macro Excel

Listbox adalah salah satu elemen yang penting dari Visual Basic for Applications (VBA). Anda dapat menggunakannya untuk menampilkan daftar item dari database atau sumber lainnya, dan memilih item pada daftar yang akan digunakan oleh program VBA Anda. Dalam tutorial ini, kita akan membahas cara menampilkan data dari database ke listbox menggunakan VBA Excel.

Baca Cepat show

Menampilkan Data Dari Listbox Ke Textbox Vba Excel

Langkah-langkahnya sebagai berikut:

Pertama, buka file Excel yang akan digunakan untuk menampilkan data dari database ke listbox.
Selanjutnya, buka Visual Basic Editor dengan menekan tombol Alt + F11 pada keyboard Anda.
Buat form baru dengan menekan tombol Ctrl + Shift + F11 dan klik Insert > Userform.
Dalam Userform, gunakan Toolbox untuk menambahkan Listbox dan Textbox pada Userform.
Kemudian, klik tombol Properties pada Toolbox untuk membuka properti Listbox dan Textbox, dan beri nama masing-masing sbList dan TbSel.

Cara Menampilkan Listview Di Userform Vba Excel | Dubai Khalifa

Untuk menampilkan Listview di Userform VBA Excel, Anda dapat mengikuti langkah-langkah berikut:

Buka Visual Basic Editor dengan menekan tombol Alt + F11.
Klik Insert > Userform untuk membuat Userform baru.
Pada Toolbox, klik Listview control dan tambahkan ke Userform.
Klik Properti pada Toolbox untuk membuka properti Listview.
Pada Listviews, pilih Kolom 1 dan atur propertinya sebagai berikut:

Text: ID
Lebar: 50

Baca Juga : cara membuat kotak checklist di excel 2016 How to create a todo list in excel + progress bar

Pada Listviews, pilih Kolom 2 dan atur propertinya sebagai berikut:

Text: Nama
Lebar: 100

Pada Listviews, pilih Kolom 3 dan atur propertinya sebagai berikut:

Text: Alamat
Lebar: 150

Cara Menampilkan Data Di Listbox Userform Excel – Aplikasi Excelku

Cara menampilkan data di Listbox Userform Excel:

Buka file Excel dan aktifkan VBE dengan menekan Alt + F11 pada keyboard.
Buat Userform baru dengan menekan Ctrl + Shift + F11 pada keyboard.
Tambahkan Listbox dan Textbox ke Userform.
Buka Properties Window dan beri nama ke Listbox dengan sbList.
Buat label dengan nama “Pilih Item” dan letakkan di atas Listbox.
Buat label baru dengan nama “Hasil” dan letakkan di sebelah kanan Textbox.
Masukkan kode berikut:

Private Sub UserForm_Initialize()
    Dim r As Range
    For Each r In Range("A2:A10")
        Me.sbList.AddItem r.Value
    Next
End Sub

Private Sub sbList_Click()
    Me.TbSel.Value = Me.sbList.Value
End Sub

Cara Menampilkan Data Di Listbox Userform Excel (Versi 2) – Aplikasi

Pada tutorial ini, kita akan membahas cara menampilkan data di Listbox Userform Excel (versi 2).

Buat Userform baru dengan menekan Ctrl + Shift + F11 pada keyboard Anda.
Tambahkan Listbox, CommandButton, dan TextBox ke Userform.
Pilih Listbox dan buka Properties Window.
Tambahkan Item ke Listbox dengan mengetikkan kode berikut:

Private Sub UserForm_Initialize()
    Dim MyRange As Range

    Set MyRange = Worksheets("Sheet1").Range("A1:A10")

    For Each Cell In MyRange
        Me.ListBox1.AddItem Cell.Value
    Next Cell
End Sub

Tambahkan sebuah CommandButton ke Userform dan tambahkan juga kode berikut:

Private Sub CommandButton1_Click()
    Dim ListIndex As Integer

    ListIndex = Me.ListBox1.ListIndex

    If ListIndex <> -1 Then
        Me.TextBox1.Value = Me.ListBox1.List(ListIndex)
    End If
End Sub

Simpan kode di atas dan cobalah mengeksekusi program VBA Anda dengan menekan F5 pada keyboard. Ini akan menampilkan data dari Listbox ke Textbox.

Baca Juga : Cara Menghitung Lama Inap Pada Excel

Cara menggunakan listbox pada visual basic excel

Untuk menggunakan listbox pada Visual Basic Excel, Anda dapat mengikuti langkah-langkah berikut:

Pertama, buat file baru dan klik Developer > Visual Basic pada Menu.
Di bawah Project Explorer, klik Klik kanan pada file Excel dan pilih Insert > Userform.
Tambahkan Listbox ke Userform dan pilih Textbox untuk membuat Kolom.
Buka Properties Window dan beri Nama “LstData” ke Listbox dan “TxtData” ke Textbox.
Selanjutnya, masukkan kode berikut:

Private Sub UserForm_Initialize()
    With LstData
        .AddItem "Ruangan 1"
        .AddItem "Ruangan 2"
        .AddItem "Ruangan 3"
    End With
End Sub

Private Sub LstData_Click()
    TxtData.Value = LstData.Value
End Sub

FAQ

1. Apa itu Listbox dalam VBA Excel?

Listbox adalah elemen VBA Excel yang memungkinkan pengguna untuk menampilkan daftar item dari database atau sumber lainnya dan memilih item yang akan digunakan oleh program VBA mereka.

2. Apa yang dimaksud dengan Userform?

Userform adalah elemen VBA Excel yang memungkinkan pengguna untuk membuat formulir yang akan digunakan untuk memasukkan dan mengambil data dari database atau sumber lainnya.

Video Tutorial

Berikut ini adalah video tutorial tentang cara menggunakan Listbox pada VBA Excel: