![Cara Menampilkan Data Ke Listbox Menggunakan Optionbutton VBA Excel Cara Menampilkan Data Ke Listbox Menggunakan Optionbutton VBA Excel](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnu2CQHxH21o1egsLy1I6IaZ5f_vU8hSC_EmCghCiWc7nhPxwLOm_iZYfkmb-jvmzplYRWX3dw6uXkcYBcm7v-qwHd6wG4dCSWLNOT5z5qVRUVAHgBcvDS1F0ubZtUkXKpdhIqAkZEizo/w600/op.gif)
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.
- 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 KeluarPrivate 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 :
0 komentar