VBA MACRO EXCEL EDIT DATA LISTBOX KE TEXTBOX – MTsS. Baitul Muttaqin adalah artikel pilar untuk membantu para pengguna Excel dalam menggunakan VBA Macro untuk mengedit data pada Listbox dan kemudian menampilkannya pada Textbox. Artikel ini berisi informasi yang berguna bagi para pengguna Excel yang ingin mempercepat pekerjaan mereka dalam mengedit data dan menampilkan hasil yang lebih baik dan lebih efisien.
Menampilkan Data Pada Listbox
Sebelum membahas mengenai cara mengedit data pada Listbox, ada baiknya kita membahas terlebih dahulu bagaimana cara menampilkan data pada Listbox. Berikut adalah langkah-langkahnya:
- Buka Excel dan buatlah sebuah workbook baru.
- Pilih Developer tab di ribbon bar dan klik Insert pada Controls.
- Pilih Listbox dari Controls dan drag ke dalam worksheet.
- Dalam Properties Window, atur Name untuk Listbox dan klik pada ListFillRange untuk menentukan range dari sumber datanya.
- Isikan range yang ingin digunakan pada ListFillRange dan klik OK. Data dari range tersebut akan muncul pada Listbox.
Mengedit Data Pada Listbox
Sekarang, mari kita bahas mengenai cara mengedit data pada Listbox menggunakan VBA Macro. Berikut adalah langkah-langkahnya:
- Buka Visual Basic Editor dengan cara menekan Alt + F11. Kemudian, klik Insert pada menu bar dan pilih Module.
- Masukkan kode berikut untuk mendefinisikan variable yang akan digunakan:
- Masukkan kode berikut untuk menyimpan data dari Listbox pada array, dan kemudian membaca dan menampilkan data tersebut:
- Jangan lupa untuk mengganti ListBox1 dan Data dengan nama Listbox dan range yang digunakan pada workbook Anda.
- Masukkan kode berikut untuk mengedit data pada Listbox:
Dim lb As MSForms.ListBox
Dim i As Integer
Set lb = ActiveSheet.ListBox1
Dim arrData() As String
Dim rngData As Range
Set rngData = ActiveSheet.Range("Data")
ReDim arrData(rngData.Rows.Count - 1)
For i = 0 To rngData.Rows.Count - 1
arrData(i) = rngData.Cells(i + 1, 1).Value
lb.AddItem arrData(i)
Next i
With lb
If .ListIndex < 0 Then
MsgBox "No item selected"
Else
arrData(.ListIndex) = "New Data"
.Clear
For i = 0 To UBound(arrData)
.AddItem arrData(i)
Next i
End If
End With
Menampilkan Data Di Textbox
Selain menampilkan data pada Listbox, kita juga dapat menampilkan data pada Textbox menggunakan VBA Macro. Berikut adalah langkah-langkahnya:
- Buat sebuah UserForm dengan cara menekan Alt + F11 dan kemudian memilih Insert pada menu bar, lalu pilih UserForm.
- Pilih TextBox dari toolbox dan drag ke dalam UserForm.
- Atur Name untuk Textbox dan klik pada Properties Window untuk menentukan Property yang berhubungan dengan Textbox.
- Pilih MultiLine pada Property Window untuk mengatur Textbox menjadi multiline. Atau, Anda juga dapat mengatur Textbox supaya tidak bisa diedit dengan mengubah nilai pada Property “Locked” menjadi True.
- Kemudian, masukkan kode berikut untuk menampilkan data pada Textbox:
Dim lb As MSForms.ListBox
Dim i As Integer
Set lb = ActiveSheet.ListBox1
Dim arrData() As String
Dim rngData As Range
Set rngData = ActiveSheet.Range("Data")
ReDim arrData(rngData.Rows.Count - 1)
For i = 0 To rngData.Rows.Count - 1
arrData(i) = rngData.Cells(i + 1, 1).Value
lb.AddItem arrData(i)
Next i
Dim txtBox As MSForms.TextBox
Set txtBox = UserForm1.TextBox1
txtBox.Value = arrData(lb.ListIndex)
FAQ
1. Apa itu VBA Macro pada Excel?
VBA Macro pada Excel adalah sebuah bahasa pemrograman yang digunakan untuk mengotomatisasi tugas-tugas pada Excel. Selain itu, VBA Macro juga dapat mengatur dan mengedit data pada Excel.
2. Bagaimana cara menggunakan VBA Macro pada Excel?
Untuk menggunakan VBA Macro pada Excel, Anda perlu membuka Visual Basic Editor dengan cara menekan Alt + F11 dan kemudian memasukkan kode VBA yang ingin digunakan.
Contoh Video Youtube:
Berikut adalah contoh video Youtube yang dapat membantu Anda dalam menggunakan VBA Macro pada Excel: