7/06/2015

ComboBox Dinamis

Tags

Membuat ComboBox menjadi dimasis
ComboBox Dinamis

Selamat Sore. . .
Selamat Menjalankan Ibadah Puasa bagi yang menjalankan, , ,
Mumpung Bisa Update. . .
Kali ini Bahas tentang ComboBox yuukk....Hehehee...
ComboBox Bertingkat Pada UserForm. . .
'ComboBox Bertingkat
'______________________________________________________
'Created By Afe
'Semarang, 1 Juli 2015
'Belajar Excel Ga Nyesel
'Kunjungi afe.belajarexcel.org
'______________________________________________________
Private Sub ComboBox1_Change()
Dim i As Integer
ComboBox2.Clear
For i = 2 To 6
With Sheet1.Range("B" & i)
If .Offset(0, -1) = ComboBox1.Value Then ComboBox2.AddItem .Value
End With
Next
End Sub
Private Sub ComboBox2_Change()
Dim i As Integer
ComboBox3.Clear
For i = 2 To 6
With Sheet1.Range("C" & i)
If .Offset(0, -1) = ComboBox2.Value Then ComboBox3.AddItem .Value
End With
Next
End Sub
Private Sub UserForm_Initialize()
    Dim i As Long
    Dim tmp As String
    With Sheet1
        For i = 2 To 6
        If InStr(1, tmp, .Range("A" & i) & ";") = 0 Then
        ComboBox1.AddItem .Range("A" & i)
        tmp = tmp & .Range("A" & i) & ";"
            End If
        Next i
    End With
End Sub
Kalo Scriptnya ada diatas, , ,Mau diterapkan Pada Sheet ataupun UserForm Bisa2 aja tinggal atur dan kembangkan sendiri ya. . .lihat Sendiri aja ya disini
Download Combobox Dinamis

Salam,Afe...
BelajarExcelGaNyesel....

5 komentar

okehhsay apelajari lebih lanjut mas.. hehhehe ..

kalo bisa, dijelaskan masing2 maksud kode diatas,
dan kalo bisa, dikasih screenshotnya

Mantap mas agung izin sedot...

ReUpload dong mas @Agung..
Link nya mati... Atu kirim di email aja yah..
Thank's B4


EmoticonEmoticon