Menampilkan data worksheet di Listbox dengan perintah Combobox

  1. 3 tahun lalu

    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)

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

 

atau Mendaftar untuk ikut berdiskusi!