Siang Agan-Agan,

Di sini saya mau share penggunaan ListBox berkolom lebih dari 1, untuk entry di Excell.
Bukan bermaksud untuk gaya-gayaan, tetapi sebagai wujud terima kasih saya ke agan DH7karena sudah kasih saya pencerahan di Thread Ini. Semoga Bermanfaat bagi yang membutuhkan.




Saya buat GUI seperti di bawah ini, mirip dengan idenya agan DH7:


Untuk Kode Input Data ke Listbox (Tombol Tambah) sbb:

Private Sub TambahCmd_Click()

 

 With ListBox1

 .AddItem CboBln.Value & "/" & CboTgl.Value & "/" & CboThn.Value

 .List(.ListCount - 1, 1) = TxtPO.Value

 .List(.ListCount - 1, 2) = CboToko.Value

 .List(.ListCount - 1, 3) = ComboBox1.Value

 .List(.ListCount - 1, 4) = ComboBox2.Value

 .List(.ListCount - 1, 5) = TextBox1.Value

 End With

 ComboBox1.Value = "Kode"

 ComboBox2.Value = "Ukuran"

 TextBox1.Value = ""

 

End Sub

Untuk Kode Hapus Data yang salah Input di ListBox (Tombol Hapus) sbb:

Private Sub DelCmd_Click()

 If ListBox1.ListIndex >= 0 Then

 ListBox1.RemoveItem ListBox1.ListIndex

 End If

End Sub

Untuk Kode Ekspor/Input Data ke Excell (Tombol Input) sbb:

Private Sub CmdInput_Click()

 Sheets("Order").Select

 Dim ws As Worksheet

 ' create a results sheets if you do not already have one

 Set ws = Sheets("Order")



 Dim nextAvailableRow As Long

 Dim I As Long

 For I = 0 To ListBox1.ListCount - 1

 nextAvailableRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1

 ws.Range("A" & nextAvailableRow) = ListBox1.Column(0, I)

 ws.Range("B" & nextAvailableRow) = ListBox1.Column(1, I)

 ws.Range("C" & nextAvailableRow) = ListBox1.Column(2, I)

 ws.Range("D" & nextAvailableRow) = ListBox1.Column(3, I)

 ws.Range("E" & nextAvailableRow) = ListBox1.Column(4, I)

 ws.Range("F" & nextAvailableRow) = ListBox1.Column(5, I)

 Next I

 

End Sub

Jika ada agan-agan yang mau kasih masukan atau ide, silakan. Siapa tahu dapat saya pakai untuk pengembangan Program Macro sederhana saya ini.

Terima kasih,
Salam,
Jojo8228