Salam kenal semua..,
Saya pemula untuk di excel., dan kebetulan sedang ada tugas yang mengharuskan menggunakan excel (biar mudah)., nah kasus yang terjadi seperti ini :
Saya membuat sebuah project VBA untuk menampilkan data sebuah worksheet di list box. saya kurang begitu paham, sudah cari referensi sono sini tapi belum ketemu caranya., mohon bantuan pencerahan para Master untuk memberikan solusi yang saya alami., untuk file project ang sedang saya buat saya lampirkan agar lebih jelas., Terima Kasih., (Raytama, Bandung)

Saya Akan Coba Menjawab

Buatlah Terlebih Dahulu Database Yang diinginkan
Di Sheet1, Kolom A2=Nomor, B2=Tanggal, C3=Nama Siswa, D4=Keterangan

Kemudian Siapkan Tombol CommandButton di sheet1
Masuk Ke VBA dengan cara ALT+F11, Buatalah UserForm

Kemudian Masukan Code VBA Ke UserForm Tersebut, Dengan MengCopas Script Di Bawah Ini
Private Sub UserForm_Activate()
'https://belajarexcel.org/
'Membuat Listbox
'=========================================================================
'Menampilkan Judul Header di Kolom Listbox
Set Sh = Sheets("Sheet1")
ListBox1.Clear
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "NOMOR"
.List(.ListCount - 1, 1) = "TANGGAL"
.List(.ListCount - 1, 2) = "NAMA"
.List(.ListCount - 1, 3) = "KETERANGAN"
.ColumnWidths = 60 & ";" & 90 & ";" & 115 & ";" & 120
End With
'Menampilkan Nilai Kedalam Listboc
Set rgTampil = Sh.Range("A3:A12"). _
SpecialCells(xlCellTypeVisible)
For Each sTampil In rgTampil
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = sTampil.Value
.List(.ListCount - 1, 1) = sTampil.Offset(0, 1).Value
.List(.ListCount - 1, 2) = sTampil.Offset(0, 2).Value
.List(.ListCount - 1, 3) = sTampil.Offset(0, 3).Value
End With
Next sTampil
End Sub

Sekarang simpan dan silahkan lihat hasilnya