Multiple Select pada ListBox

Multiple Select pada ListBox

Listbox lagi dan listbox lagi, padahal penggunaan ListView lebih baik dan keren dibandingkan menggunakan Listbox. Sebenarnya unggul mana antara listbox dengan ListView tergantung dari apa yang akan ditampilkan, jika hanya ingin menampilkan data tidak lebih dari 10 baris maka saya rasa listbox menjadi pilihan yang lebih tepat dari pada harus pakai ListView, namun untuk menampilkan ratusan atau ribuan baris maka saya rasa ListView pilihan yang lebih tepat meski sebenarnya saya pribadi lebih suka dengan Listbox yang lebih luwes secara interface

Multiple Select pada ListBox

Listox merupakan salah satu kontrol yang mampu menampilkan tabel data secara vertical dan horizontal, salah satu kekurangan dari listbox adalah tidak adanya baris (border) sebagai pemisah antar kolom dan antar baris, jadi kalau dipandang dengan mata rabun sebanyak apapun tabel data yang ditampilkan akan seperti satu baris dan satu kolom, saya tidak ingin berlama lama membahas tentang kekurangan Listbox karena pastinya setiap apapun itu punya kekurangan dan hanya manusia yang lagi jatuh cinta saja yang mau menerima kekurangan bahkan bangga dengan kekurangan

DIkarenakan diatas saya sudah banyak ngobrol giliran kita sudahi obrolanya, sekarang saatnya ketopik pembahasan yaituMultiple Select pada ListBox , apa pula maksudnya ?? saya sendiri kurang begitu mahir untuk menjelaskanya akan tetapi hal ini merupakan jawaban untuk salah satu pembaca setia iparengan.com yang semoga kalai ini beliau membacanya.

Multiple Select pada ListBox maksudnya data yang ditampilkan pada listbox bisa dipilih lebih dari satu baris, jadi anda bisa memilih dua atau tiga atau lebih pada data yang ditampilan dengan listbox, tidak sampai disitu anda bisa memindahkan data terpilih tadi kedalam listbox lain, proses ini mirip dengan artikel sebelumnya yaitu Memindahkan isi antar dua listbox

+ Saya berasumsi pembaca sudah mempunyai pengetahuan yang cukup tentang microsoft excel visual basic for application (VBA)
+ Untuk menerapkan teori yang saya sebutkan diatas silahkan design form sebagaimana gambar form dibawah ini



No Kontrol Nama
1 Listbox Listbox1
2 Listbox Listbox2
3 CommandButton CommandButton1
4 CommandButton CommandButton2
5 CheckBox CheckBox1
6 CheckBox CheckBox2
7 OptionButton OptionButton1
8 OptionButton OptionButton2
9 OptionButton OptionButton3

+ Jika sudah selesai tinggal masukan baris kode macro ini dimasing masing kontrol
+ Userform
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "Sales"
.AddItem "Production"
.AddItem "Logistics"
.AddItem "Human Resources"
End With
OptionButton3.Value = True
End Sub

+ CommandButton1_Click
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub

+ CommandButton2_Click
Private Sub CommandButton2_Click()
Dim counter As Integer
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
CheckBox2.Value = False
End Sub

+ CheckBox1_Click
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i
End If
If CheckBox1.Value = False Then
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End If
End Sub

+ CheckBox2_Click
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = True
Next i
End If
If CheckBox2.Value = False Then
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next i
End If
End Sub

+ OptionButton1_Click
Private Sub OptionButton1_Click()
ListBox1.MultiSelect = 0
ListBox2.MultiSelect = 0
End Sub

+ OptionButton2_Click
Private Sub OptionButton2_Click()
ListBox1.MultiSelect = 1
ListBox2.MultiSelect = 1
End Sub

+ OptionButton3_Click
Private Sub OptionButton3_Click()
ListBox1.MultiSelect = 2
ListBox2.MultiSelect = 2
End Sub

+ Simpan dan jalankan

Saya minta maaf tidak bisa menjabarkan lebih detail cara Multiple Select pada ListBox , untuk menebus kesalahan saya ini silahkan anda download Multiple Select pada ListBox pada link download dibawah ini, sebelumnya silahkan anda joint terlebih dahulu kegrup facebook Iparengan

Demikianlah cara Multiple Select pada ListBox dengan microsoft excel visua basic for application ( VBA / VBE ), jika ada pertanyaan seputar Microsoft excel silahkan oret oret pada kolom komentar, jika tidak ada respon silahkan gabung atau joint ke grup Excel Iparengan di facebook, semoga bermanfaat dan terimakasih

Share this: