07 December 2018

Cara Menampilkan Data Ke Listbox Menggunakan Optionbutton VBA Excel

Sahabat Excel kali ini saya akan share bagaimana Cara Menampilkan Data Ke Listbox Menggunakan Optionbutton di VBA Excel.

Listbox, VBA, Optionbutton, Excel
Sekilas tentang Option button adalah merupakan tool box yang tersedia pada VBA Excel berupa tombol berbentuk bulat yang di gunakan untuk menentukan satu pilihan saja bagi penggunanya dari beberapa opsi yang telah ditentukan.
Penampakan OptionButton.

Baca juga: 

Ok langsung saja ikuti tutorial dibawah ini. 
  • Buka Microsoft Excel 
  • Buatlah Datanya Seperi gambar di bawah ini. 
Listbox, VBA, Optionbutton, Excel
  • Kemudian sobat buka VBA Excel dan tambahkan userformnya 
  • Klik userform tersebut maka komponen tool box nya akan keluar
  • Kemudian tambahkan 3 buah Optionbutton dan 1 buah Listbox 
Listbox, VBA, Optionbutton, Excel
  • Silahkan sobat Copy Paste Coding dibawah ini
Sub TampilkanSemua()
If OptionButton1.Value = True Then
    Set Tmp = Sheets("Sheet1")
ElseIf OptionButton2.Value = True Then
    Set Tmp = Sheets("Sheet2")
ElseIf OptionButton3.Value = True Then
    Set Tmp = Sheets("Sheet3")
End If
ListBox1.Clear
With ListBox1 'Judul Data Pemasok
    .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 = Tmp.Range("A3", Tmp.Range("A3").End(xlDown))
Set rgTampil = Status.SpecialCells(xlCellTypeVisible)
For Each sTampil In rgTampil
    With ListBox1 'Menampilkan Data Ke Listb
        .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
  • Selanjutnya Klik Optionbutton copy Paste coding di bawah ini satu persatu.
Private Sub OptionButton1_Click()
Call TampilkanSemua
End Sub
Private Sub OptionButton2_Click()
Call TampilkanSemua
End Sub
Private Sub OptionButton3_Click() 
Call TampilkanSemua
End Sub
Tombol Keluar
Private Sub CmbKeluar_Click()
Unload Me
End Sub
Fungsi coding Sub TampilSemua Ketika Optionbutton di klik maka data yang ada di Sheet1, Sheet2, Sheet3 akan tampil. 
Coba jalankan program nya. 
Bagi yang mau Filenya silahkan download link di bawah ini. 
Atau
Link2
itulah Cara Mudah Menampilkan Data Ke Listbox Menggunakan Optionbutton di VBA Excel. 
Semoga berhasil.

Share This

SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

0 Comments:

Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.