Combobox Bertingkat

            Combobox Bertingkat

Pembahasan kali ini adalah bagaimana Menampilkan Isian List pada Beberapa Combobox yang saling berkaitan antar combobox satu dengan yang lain dan memenuhi kretria yg sdh ditentukan
Misalnya list yang tampil di combobok2 harus sesuai pilihan yg diberikan oleh combobox1
Demikian pula list yang tampil di combobox3 harus sesuai dengan pilihan yg diberikan oleh combobox2
Sistem Seperti ini disebut Orang dengan “ Combobox Bertingkat “

Cara Membuatnya  mari ikuti langkah – langkah berikut :
Buatlah sebuah Userform dan  Sebuah Tabel di sheet1 seperti gambar1 dan gambar2 diatas kemudian buatlah 3 combobox Yang terdiri dari

ComboBox1
ComboBox2
ComboBox3

Buatlah Tabel listdi sheet1 seperti gambar2 diatas

Pastekan Kode berikut pada ComboBox1

Private Sub ComboBox1_Change()
ComboBox2.Text = ""
ComboBox3.Text = ""
If ComboBox1.Text = Sheets("sheet1").Range("a2").Value Then
ComboBox2.List = Sheet1.Range("B5:B7").Value
ElseIf ComboBox1.Text = Sheets("sheet1").Range("a3").Value Then
ComboBox2.List = Sheet1.Range("b8:b10").Value
ElseIf ComboBox1.Text = Sheets("sheet1").Range("a4").Value Then
ComboBox2.List = Sheet1.Range("b11:b13").Value
End If
End Sub

Pastekan Kode berikut pada ComboBox2


Private Sub ComboBox2_Change()
ComboBox3.Text = ""
If ComboBox2.Text = Sheets("sheet1").Range("B5").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d5:m5").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B6").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d6:m6").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B7").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d7:m7").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B8").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d8:m8").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B9").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d9:m9").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B10").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d10:m10").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B11").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d11:m11").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B12").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d12:m12").Value)

ElseIf ComboBox2.Text = Sheets("sheet1").Range("B13").Value Then
ComboBox3.List = Application.Transpose(Sheet1.Range("d13:m13").Value)
End If
End Sub

Pastekan Kode berikut pada useform

Private Sub UserForm_Initialize()
ComboBox1.List = Sheet1.Range("a2:a4").Value
End Sub

Selesai
Semoga bermanfaat
Sampel file dapat di unduh pada link dibawah ini





 Combobox Bertingkat