Cara membuat dropdown combobox

Cara membuat dropdown combobox - Combobox merupakan salah satu kontrol form yang sering digunakan dalam aplikasi,pada umumnya combobox digunakan untuk memilih salah satu option data dimana terdapat banyak option data yang ditamilkan oleh combobox. Data dalam combobox sebenarnya dapat ditulis langsung dalam modul,namun, bagaimana jika data yang ingin ditampilkan sangat banyak atau tergantung pada kondisi tertentu?

Cara pertama membuat dropdown dengan combobox

Combobox1.AddItem "Tes1"
Combobox1.AddItem "Tes2"
Combobox1.AddItem "Tes3"
Combobox1.AddItem "Tes4"

Cara kedua membuat dropdown dengan combobox

Sub Combobox()
Set Iparengan = Sheets("Sheet1")
Dim Sel As Range
Dim NoDupes As New Collection
Set Status = Iparengan.Range("B2", Iparengan.Range("B2").End(xlDown))
For Each Sel In Status
NoDupes.Add Sel.Value, CStr(Sel.Value)
Next Sel
For Each Item In NoDupes
ComboBox2.AddItem Item
Next Item
End Sub

Cara ketiga membuat dropdown dengan combobox

Sub Combobox()
Set Iparengan = Sheets("Sheet1")
For Each sIparengan In Iparengan.Range("B2:B13")
With Me.ComboBox3
.AddItem sIparengan.Value
End With
Next sIparengan
ComboBox3.Value = ComboBox1.List(0)
End Sub