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.

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.

CARA KOPI DATA DARI LISTBOX KE TEXTBOX VBA 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:

Hasil ListBox

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:

Hasil ListBox dengan data dari range Excel

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.

TextBox

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:

Hasil TextBox

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 HURUF BESAR DI 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: