Combobox Multy list

               Combobox List

Beragam cara yang digunakan dalam menampilkan data pada Combobox baik pada userfrom yang menggunakan 1 combobox atau Multy Combobox
Berikut Pilihan yang dapat dipastekan pada Userform

1. List dengan data Horisontal

Private Sub UserForm_Initialize()
ComboBox1.List = Application.Transpose(Sheet1.Range("D5:P5").Value)
End Sub

2. List dengan AddItem

Private Sub UserForm_Initialize()
ComboBox2.AddItem "GANJIL"
ComboBox2.AddItem "GENAP"
end sub

3. List dengan data Sheet

Private Sub UserForm_Initialize()
ComboBox3.List = Sheet1.Range("B5:B20").Value
End Sub



4.List Combobox   (sesuai data  1 kolom)

Private Sub UserForm_Initialize()
For Jmlh = 3 To 12
Nilai = Range("L" & Jmlh)
ComboBox1.AddItem Nilai
Next Jmlh
End Sub

5,List Multi Combobox   (sheet data  multy  kolom)

Private Sub UserForm_Initialize()
For Jmlh = 1To 10
Tanggal = Range("A" & Jmlh)
Bulan = Range("B" & Jmlh)
Tahun = Range("C" & Jmlh)
Pasien = Range("D" & Jmlh)
ComboBox1.AddItem Tanggal
ComboBox2.AddItem Bulan
ComboBox3.AddItem Tahun
Next Jmlh
End Sub

6.  List dengan data Filter

Dengan List  data Filter data kolom yang menjadi acuan akan difilter otomatis dan menampilkan item bila ada data yang sama atau ganda
Kode Lengkapnya sebagai berikut

Dim Tbl As Range
Private Sub UserForm_Initialize()
   Dim Cabang As Range, UniqCabang, n As Long
   Set Tbl = Sheets("Sheet1").Cells(4, 1).CurrentRegion
   Set Cabang = Tbl.Offset(2, 1).Resize(Tbl.Rows.Count - 2, 1)
   UniqCabang = LOUV(Cabang)
   ComboBox1.Clear
   For n = LBound(UniqCabang) To UBound(UniqCabang)
      ComboBox1.AddItem UniqCabang(n)
   Next n
End Sub

Dapat ditulis Mode multy list lengkap dalam 1 userform berikut cara penulisannya

Private Sub UserForm_Initialize()
For Jmlh = 1 To 10
Tanggal = Range("A" & Jmlh)
Bulan = Range("B" & Jmlh)
Tahun = Range("C" & Jmlh)
Pasien = Range("D" & Jmlh)
ComboBox1.AddItem Tanggal
ComboBox2.AddItem Bulan
ComboBox3.AddItem Tahun
Next Jmlh
ComboBox4.List = Sheet1.Range("E1:E10").Value
ComboBox5.AddItem "GANJIL"
ComboBox5.AddItem "GENAP"
ComboBox6.List = Application.Transpose(Sheet1.Range("D5:P5").Value)
End Sub



selesai
Semoga bermanfaat

Silahkan klik halaman Download dibawah ini


 Combobox List

Dapatka Buku Pintar full VBA

 Cover Buku Pintar