@Evan D. Nugraha ... Mohon izin download filenya mas ...
Silahkan mas Evan ... :)
@Evan D. Nugraha ... jika ingin menambahkan data yang tampil pada listbox gimana ...
Ada beberapa cara untuk menambahkan data ke dalam kontrol Listbox. Antara lain dengan:
[1]. Menggunakan prosedur AddItem dari kontrol ListBox. Contoh script:
With ListBox1
.AddItem "Data Ke-1"
.AddItem "Data Ke-2"
.AddItem "Sekarang ini menjadi data Ke-1", 0
.AddItem "Dan ini menjadi data Ke-3", 2
End With
Script di atas biasanya digunakan untuk menambahkan item pada Single Column ListBox, atau pada kolom pertama untuk Multiple Column ListBox. Pada Multiple Column ListBox, apabila ListBox sudah terisi data, maka item data dapat diakses dengan menggunakan property List dari kontrol ListBox. Contoh script:
With ListBox1
.ColumnCount = 3
.ColumnWidths = "50, 90, 130"
.AddItem "Data Ke-1"
.AddItem "Data Ke-2"
.AddItem "Data Ke-3"
.List(0, 1) = "Contoh isi ke-1"
.List(1, 1) = "Contoh isi ke-2"
.List(2, 1) = "Contoh isi ke-3"
.List(0, 2) = "Tambahan isi ke-1"
.List(1, 2) = "Tambahan isi ke-2"
.List(2, 2) = "Tambahan isi ke-3"
End With
[2]. Menggunakan properti List dari kontrol ListBox. Contoh script:
Dim xArray()
ReDim xArray(2, 1)
xArray(0, 0) = 1
xArray(0, 1) = "Ini Satu"
xArray(1, 0) = 2
xArray(1, 1) = "Ini Dua"
xArray(2, 0) = 3
xArray(2, 1) = "Ini Tiga"
With ListBox1
.ColumnCount = 2
.ColumnWidths = "30, 90"
.List = xArray
End With
[3]. Menggunakan properti RowSource dari kontrol ListBox. Contoh script:
With ListBox1
.ColumnCount = 3
.ColumnWidths = "30, 90, 120"
.RowSource = Sheet2.Range("A2:D7").Address
End With
@Evan D. Nugraha ... Ketika saya menambahkan tabel pada sheet4 dan mengubah kode ... Namun, hasilnya tetap sama atau tidak ada perubahan mas. Gimana solusinya ...
Maaf mas Evan, saya tidak tahu bagaimana tabel data yang dimaksud. Kalau hanya menggunakan script seperti yang mas gunakan:
With lstResult
.ColumnCount = 6
.ColumnWidths = "100, 160, 55, 95, 40, 30"
End With
jelas tidak akan menampilkan apapun karena pada script tersebut tidak ada perintah untuk mengisi data ke dalam kontrol ListBox. Script tersebut hanya akan mengatur tampilan dari kontrol ListBox. Coba gunakan dan kembangkan contoh script yang saya berikan di atas:
With ListBox1
.ColumnCount = 3
.ColumnWidths = "30, 90, 120"
.RowSource = Sheet2.Range("A2:D7").Address
End With
jika sumber data akan diambil dari range tertentu pada Worksheet.
Sangat saya sarankan, lebih baik mas Evan membuat diskusi baru jika pertanyaan yang ingin disampaikan tidak berkaitan dengan topik dari diskusi yang sudah ada, meskipun hal yang ditanyakan berawal dari diskusi yang sudah ada.
Demikian.