• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: ComboBox

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ěď >

---

Poki(3.9.2010 13:45)#002363

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse