CARA KOPI DATA DARI LISTBOX KE TEXTBOX VBA EXCEL

Anda sering menggunakan Microsoft Excel? Jika iya, pasti Anda pernah mengalami kesulitan dalam menampilkan data. Salah satu cara untuk menampilkan data di Microsoft Excel adalah menggunakan ListBox dan TextBox.

Baca Cepat show

ListBox

ListBox adalah salah satu kontrol dalam VBA Excel yang digunakan untuk menampilkan daftar data. Dalam ListBox, Anda dapat menambahkan item secara manual atau mengambil data dari range di Excel.

Untuk menambahkan data ke ListBox secara manual, Anda bisa menggunakan kode berikut:

Private Sub UserForm_Initialize()
    ListBox1.AddItem "Data 1"
    ListBox1.AddItem "Data 2"
End Sub

Hasilnya akan terlihat seperti ini:

Sedangkan untuk menambahkan data dari range di Excel, Anda bisa menggunakan kode berikut:

Private Sub UserForm_Initialize()
    Dim arrData As Variant
    arrData = Range("A1:A10").Value
    For i = 1 To UBound(arrData)
        ListBox1.AddItem arrData(i, 1)
    Next i
End Sub

Hasilnya akan terlihat seperti ini:

TextBox

TextBox adalah kontrol dalam VBA Excel yang digunakan untuk menampilkan atau menginputkan data dalam bentuk teks. Dalam TextBox, Anda dapat menampilkan data hasil seleksi di ListBox atau dari range di Excel.

Untuk menampilkan data hasil seleksi di ListBox ke TextBox, Anda bisa menggunakan kode berikut:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = ListBox1.Value
End Sub

Hasilnya akan terlihat seperti ini:

Sedangkan untuk menampilkan data dari range di Excel ke TextBox, Anda bisa menggunakan kode berikut:

Private Sub UserForm_Initialize()
    Dim strData As String
    strData = Range("A1").Value
    TextBox1.Value = strData
End Sub

FAQ

1. Apa itu VBA?

VBA adalah kependekan dari Visual Basic for Applications, yaitu bahasa pemrograman yang digunakan untuk mengembangkan aplikasi macro dalam Microsoft Office.

Baca Juga : CARA MEMBUAT SPASI PADA KOLOM EXCEL

2. Bagaimana cara menampilkan hasil seleksi di ListBox ke TextBox?

Anda bisa menggunakan kode berikut:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = ListBox1.Value
End Sub

Video Tutorial

Berikut adalah video tutorial dari channel Youtube “Belajar Excel Lengkap” yang menjelaskan tentang cara menampilkan data dari ListBox ke TextBox: