[Excel] Imam problem sa Formom koja ima 3 ComboBoxa (1 ,2 i 3). U prvom boxsu imam listu od 18 vrednosti (A,B,C..) u drugom listu od 6 vrednosti (1,2,3…), a trecem listu od 10 vrednosti (T1,T2, T3…). U prvi Box se samo izabere vrednost. Drugi zavisi od prvog i ako je npr 1 ili 5 treba da ostane prazan, a ako je npr 2 ili 4 .. treba treba da uzme neku vrednost (A, B,C…). Treci Box takodje zavisi od 1 odnosno moze biti prazan ili da uzme neku vrednost iz opsega (T1,T2,T3…).
[Excel] Uslovno 3 ComboBox-a
Zaključano
Zakačeno
O problemu povezanih comboboxova bilo je govora u temi http://www.elitesecurity.org/t...-Excel-Data-Validation-problem.
Ako se radi o formi u VBA treba da zavisni kombo popuniš na događaj OnChange primarnog kombo boksa, npr. koristeći Case strukturu. Za dodavanje stavke na kombo koristiš metod Add, a za izbacivanje stavke metod Remove
Ako se radi o formi u VBA treba da zavisni kombo popuniš na događaj OnChange primarnog kombo boksa, npr. koristeći Case strukturu. Za dodavanje stavke na kombo koristiš metod Add, a za izbacivanje stavke metod Remove
Code:
Private Sub cmbPrim_Change()
' Primer popunjavanja liste za zavisni combobox
' P.Jovanovic za elitesecurity.org
' Izbacuje sve iz liste za drugi kombo
For i = Me.cmbSecond.ListCount - 1 To 0 Step -1
Me.cmbSecond.RemoveItem i
Next i
' Popunjava drugi kombo sa vrednostima zavisno od prvog
Select Case cmbPrim.Text
Case "A", "B"
Me.cmbSecond.AddItem 1 ' Dodaj šta treba
Me.cmbSecond.AddItem 2
Case "D"
Me.cmbSecond.AddItem 4
End Select
End Sub
Private Sub cmbPrim_Change()
' Primer popunjavanja liste za zavisni combobox
' P.Jovanovic za elitesecurity.org
' Izbacuje sve iz liste za drugi kombo
For i = Me.cmbSecond.ListCount - 1 To 0 Step -1
Me.cmbSecond.RemoveItem i
Next i
' Popunjava drugi kombo sa vrednostima zavisno od prvog
Select Case cmbPrim.Text
Case "A", "B"
Me.cmbSecond.AddItem 1 ' Dodaj šta treba
Me.cmbSecond.AddItem 2
Case "D"
Me.cmbSecond.AddItem 4
End Select
End Sub
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?