• Skrip Macro VBA Untuk Memilih Beberapa Daftar ListBox Dan Mengekstrak ke Lembar Kerja

    Multiselect ListBox ItemsIstilah 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 :
    Membuat MultiSelect ListBox
    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:
      desain userform multiselect
    2. Lanjutkan dengan cara klik kanan object UserForm kemudian pilih ViewCode dari menu popup yang muncul
      view code UserForm
    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

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger