Cara Menampilkan Data Ke Listbox Menggunakan Optionbutton VBA Excel

Posted by Admin

Sahabat Excel kali ini saya akan share bagaimana Cara Menampilkan Data Ke Listbox Menggunakan Optionbutton di VBA 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: 

Cara Membuat Coding Simpan di Userform Excel 

Ok langsung saja ikuti tutorial dibawah ini. 

• Buka Microsoft Excel 
• Buatlah Datanya Seperi gambar di bawah ini. 

• 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 

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

Link1

Atau

Link2

itulah Cara Mudah Menampilkan Data Ke Listbox Menggunakan Optionbutton di VBA Excel. 

Semoga berhasil.

Excel

Share This :