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.
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.
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: