VBA Excel Menampilkan Data Sheet1-Sheet2-Sheet3 di Userform Lisbox Excel

Dolanan Excel - Hai sahabat Dolanan Excel, Bagaimana kabarmu hari ini ? Semoga dalam keadaan sehat dan banyak rizki..

Oke, Pada kesempatan kali ini, kita akan belajar Menampilkan Data Sheet Di Userform tepatnya Menampilkan Data Sheet Excel Kedalam ListBox.

Bagaimana Cara Menampilkan Data Di Sheet Excel Kedalam ListBox Userform ?

Pertanyaan diatas kami dapat dari salah satu anggota Group WA kami yaitu group WA XML Excel Code

Okeh masseh..tanpa panjang lebar, mari kita belajar dan berexperimen

Menampilkan Data Sheet1 Sheet2 Sheet3 Excel Kedalam ListBox By OptionButton

Kami anjurkan langsung praktik ya sobat. Pada kesempatan kali ini Admin menggunakan Win10 dan Office 2007

  1. Buka Excel Anda
  2. Buatlah Data Sheet / Tabel Seperti Gambar Dibawah Ini
  3. Kemudian Masuk Ke Jendela VBA Dengan Menekan Alt+F11 atau Menu Developer - Visual Basic
  4. Buatlah Userform Seperti Gambar Dibawah ini
  5. Masukan Kode Macro Dibawah ini Kedalam Userform
  6. Sub TampilkanSemua()
    
    If OptionButton1.Value = True Then
        Set ipa = Sheets("Sheet1")
    ElseIf OptionButton2.Value = True Then
        Set ipa = Sheets("Sheet2")
    ElseIf OptionButton3.Value = True Then
        Set ipa = Sheets("Sheet3")
    End If
    
    ListBox1.Clear
    
    With ListBox1
        .AddItem
        .ColumnCount = 4
        .List(.ListCount - 1, 0) = "Kode"
        .List(.ListCount - 1, 1) = "Nama"
        .List(.ListCount - 1, 2) = "Alamat"
        .List(.ListCount - 1, 3) = "Kota"
        .ColumnWidths = 55 & ";" & 120 & ";" & 200 & ";" & 110
    End With
    
    Set Status = ipa.Range("A3", ipa.Range("A3").End(xlDown))
    
    Set rgTampil = Status.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
    
    Private Sub OptionButton1_Click()
    Call TampilkanSemua
    End Sub
    
    Private Sub OptionButton2_Click()
    Call TampilkanSemua
    End Sub
    Private Sub OptionButton3_Click()
    Call TampilkanSemua
    End Sub
  7. Selesai dan Silahkan Coba Run atau Tekan F5
  8. Simpan Dengan File Name : Menampilkan Data Sheet1-Sheet2-Sheet3 Kedalam ListBox By OptionButton Dengan Extensi Excel Enable Macros (.xlsm) atau Excel Binary Workbook (.xlsb)

Jika Anda melakukan langkah-langkah diatas dengan benar maka sistem akan berjalan dengan normal dan hasilnya akan seperti gambar dibawah ini.

Kemudian Bagaimana Cara Menampakan/Menampilkan Garis Sheet Kedalam ListBox Excel ?

Nantikan kelanjutannya ya :)

Dari alur yang sudah admin jelaskan diatas, apabila Bapak/Ibu Guru masih belum paham dan mengalami kendala/eror dalam mengerjakan katrol nilai siswa, silahkan tuliskan di kolom komentar atau Bapak/Ibu bisa menghubungi kami melalui email : aplikasisyaref@gmail.com

Demikianlah pembahasan dari kami seputar VBA Excel Menampilkan Data Sheet1-Sheet2-Sheet3 di Userform Lisbox Excel, Semoga artikel ini yang admin bagikan disini bisa berguna dan bermanfaat.

2017 | Dolanan Excel

Post a Comment for "VBA Excel Menampilkan Data Sheet1-Sheet2-Sheet3 di Userform Lisbox Excel"