[es] - [Excel] Uslovno 3 ComboBox-a

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.co.yu.

+2 Profil

^{14.08.2007. u 11:16 - pre 203 meseci}

[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…).

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Uslovno 3 ComboBox-a

^{22.08.2007. u 10:42 - pre 203 meseci}

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

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu