< návrat zpět

MS Excel

Téma: ComboBox rss

Zaslal/a carno 3.9.2010 9:10

Dobrý den,

snažím se přijít na to jak naprogramovat ComboBox2 tak aby když zvolím jednu z možností v comboboxu1 načetli se hodnoty jen pro danou hodnotu v CB1 tak za A) pokud nic nebude CB2 vidět B)Hodnota podle CB1

Snad jsem to popsal dobře. Nahodím i kod aspoň mi budete schopni říct kde dělám chybu

Private Sub userForm_Initialize()
ComboBox1.AddItem ""
ComboBox1.AddItem "Litoměřice"
ComboBox1.AddItem "Louny"
ComboBox1.AddItem "Mimoň"
ComboBox3.AddItem "Fyzická osoba"
ComboBox3.AddItem "Právnická osoba"
End Sub

Private Sub Combobox2_Change()
If ComboBox1.Value = 0 Then
ComboBox2.Visible = False
ElseIf ComboBox1.Value = "Litoměřice" Then
ComboBox2.AddItem ""
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
ElseIf ComboBox1.Value = "Louny" Then
ComboBox2.AddItem ""
ComboBox2.AddItem "Sekundární rozvod TTO"
ComboBox2.AddItem "Sekundární rozvod ZP"
ElseIf ComboBox.Value = "Mimoň" Then
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
End If
End Sub

Zaslat odpověď >
icon Poki(3.9.2010 13:45)#002363
Poki
Snad jsem to dobre pochopil a mam dve procedury:Sub ukaz()
UserForm1.ComboBox1.AddItem ""
UserForm1.ComboBox1.AddItem "Litoměřice"
UserForm1.ComboBox1.AddItem "Louny"
UserForm1.ComboBox1.AddItem "Mimoň"
' UserForm1.ComboBox3.AddItem "Fyzická osoba"
' UserForm1.ComboBox3.AddItem "Právnická osoba"
UserForm1.ComboBox2.Visible = False
UserForm1.Show
End Sub

Private Sub ComboBox1_Change()

If ComboBox1.Value = "" Then
ComboBox2.Clear
ComboBox2.Visible = False

ElseIf ComboBox1.Value = "Litoměřice" Then
ComboBox2.Clear
ComboBox2.AddItem ""
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
ComboBox2.Visible = True

ElseIf ComboBox1.Value = "Louny" Then
ComboBox2.Clear
ComboBox2.AddItem ""
ComboBox2.AddItem "Sekundární rozvod TTO"
ComboBox2.AddItem "Sekundární rozvod ZP"
ComboBox2.Visible = True


ElseIf ComboBox1.Value = "Mimoň" Then
ComboBox2.Clear
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
ComboBox2.Visible = True
End If
End Sub]citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje