MS Excel

Téma: UserForm pomoc

Zaslal/a nio313 18.11.2010 20:39

Ahoj
Potreboval by som poradit pri kliknuti na Zobraz sa vam ukaze Userform vnom su dva Comboboxi
1. je na zadanie Typu 2. Zadana znacenie.

Ja by som potreboval aby pri zadani do Comboboxu jedna sa v 2comboboxe zobrazoval iba stlpec F.
Pri zadani 2 iba stlbec G a 3 iba H

Viem ze to mozem cele naplacat do jedneho ale zadane hodnoty sa my pak nechcu stale aktualizovat.
Neustale nieco pridavat a odoberat takto by som to menil iba v tychto stlpcoch.

Ak niekto vie budem vdacni za kazdy napad

Příloha: rar

3202_userform.rar (10kB, staženo 24x)

Zaslat odpověď >

Lano(19.11.2010 16:37)#003227

Co takhle:
Private Sub ComboBox1_Change()
ComboBox2.Clear
Dim x
x = ComboBox1.Value
If x = 1 Then
ComboBox2.AddItem "111111"
End If
If x = 2 Then
ComboBox2.AddItem "222222"
ComboBox2.AddItem "333333"
End If
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"

End Subcitovat

archangel(18.10.2013 14:17)#015741

nebo takto:
Private Sub UserForm_Activate()
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
End Sub

Private Sub ComboBox1_Change()
ComboBox2.Value = ""
Dim x
x = ComboBox1.Value

If x = 1 Then
ComboBox2.RowSource = "sheet1!F3:F11"
End If

If x = 2 Then
ComboBox2.RowSource = "sheet1!G3:G11"
End If

If x = 3 Then
ComboBox2.RowSource = "sheet1!H3:H11"
End If
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

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.