Istilah ini secara umum di sebut dengan nama MultiSelect, dimana pengguna bisa memilih beberapa isi atau daftar yang ada di dalam ListBox sekaligus sehingga bisa mempercepat pekerjaan atau setidaknya dapat digunakan untuk keperluan lain yang dituntut untuk memilih beberapa item dalam satu waktu.

Dalam beberapa keperluan misalnya, kita memilih beberapa daftar item yang terdapat di ListBox kemudian menempelkan hasil dari beberapa pilihan tersebut ke dalam lembar kerja yang diinginkan. Jika diterjemahkan maka hasil akhir yang akan kita buat dalam tutorial kali ini adalah seperti tampilan berikut :

Secara lengkap, langkah-langkah untuk membuatnya adalah sebagai berikut :

1. Buka Visual Basic Editor dengan cara menekan tombol Alt+F11 kemudian silahkan buat sebuah UserForm melalui menu Insert --> UserForm dan lanjutkan dengan meletakkan beberapa beberapa Control seperti tampilan berikut:
   
2. Lanjutkan dengan cara klik kanan object UserForm kemudian pilih ViewCode dari menu popup yang muncul
   
3. Copy paste kode-kode berikut ke dalamnya
   Kode 1 - UserForm Activate
   

   Private Sub UserForm_Activate()
      ListBox1.List = Array("Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh")
      ListBox1.MultiSelect = fmMultiSelectMulti
   End Sub

   Penjelasan singkatnya Kode ini akan langsung mengisi daftar ListBox sesuai dengan data array ketika UserForm dibuka atau diaktifkan.
   Tutorial terkait bisa anda lihat disini
   Kode 2 - Tombol CommandButton1 (Tambah)
   

   Private Sub CommandButton1_Click()
   Dim Pilih As String
   Dim Isi As Long
   Dim Pemisah As String
   Dim Insert As String
   
   On Error Resume Next
   Pemisah = ", "
   
   With Me.ListBox1
      For Isi = 0 To .ListCount - 1
         If .Selected(Isi) Then
            Insert = .List(Isi)
         Else
            Insert = ""
         End If
         
         If Pilih = "" Then
            Pilih = Insert
         Else
            If Insert <> "" Then
               Pilih = Pilih & Pemisah & Insert
            End If
         End If
      Next Isi
   End With
   
   With ActiveCell
       .Value = ""
      If .Value <> "" Then
         .Value = ActiveCell.Value & Pemisah & Pilih
      Else
         .Value = Pilih
      End If
   End With
   
   Unload Me
   End Sub

   Penjelasan singkatnya Sekilas kode ini tampak rumit, namun sebenarnya tidak demikian, karena pada dasarnya ia membaca beberapa jumlah item yang dipilih di ListBox - ketika jumlah yang dipilih lebih dari satu maka hasil yang ditempelkan di lembar kerja adalah nama atau nilai-nilai tersebut dengan disertai tanda baca koma (,)
   Kode 3 - Tombol CommandButton2 (Tutup/Batal)
   

   Private Sub CommandButton1_Click()
       Unload me
   End Sub

   Penjelasan singkatnya Ini adalah kode yang sangat sederhana dari tutorial ini, yakni berfungsi untuk menutup jendela userform tanpa menyimpan informasi apapun di lembar kerja
   
   Dari sini anda sudah bisa menguji apakah kode-kode yang sudah ditulis berhasil atau tidak dengan cara menekan tombol yang terdapat di menubar atau bisa juga dengan menekan tombol F5 yang ada di keyboard Anda. Dan hasilnya bisa anda lihat seperti tampilan di atas.
   
   
   
   
   Selanjutnya adalah kode pilihan yang bisa anda masukkan ketika anda ingin agar UserForm muncul secara otomatis ketika pengguna memilih alamat sel-sel tertentu, misalnya ketika pengguna mengklik rentang sel A1 hingga sel B5. dan berikut kode yang bisa anda masukkan ke dalam prosedur Worksheet_SelectionChange
   Kode 4 - Optional
   

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:B5")) Is Nothing Then
       UserForm1.Show
   End If
   End Sub

Selamat...Anda sudah berhasil mengekstrak beberapa isi atau nilai yang terdapat di ListBox ke dalam lembar kerja Microsoft Excel melalui sebuah UserForm. Jika tutorial ini memberikan manfaat kepada anda, silahkan bantu share ke media sosial. Thank you for visiting

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :