< návrat zpět

MS Excel

Téma: Listindex v Combobox rss

Zaslal/a Imh0tep 16.5.2019 21:25

Dobrý večer,

jak prosím docílit toho, aby hodnota listindexu byla k dispozici hned po otevření sešitu?

Např pokud vyberu z rozbalovacího menu francouzštinu a soubor uložím, tak po znovuotevření souboru chci po kliknutí na commandbutton zobrazení hlášky (msgboxu) "francouzština".

Uvedené mi funguje pouze v případě, že po otevření souboru prvně vyberu příslušný jazyk z rozbalovacího menu a poté kliknu na commandbutton.

Zkoušel jsem použít worksheet.activate ale bez úspěchu.

Díky za pomoc

Private Sub ComboBox1_GotFocus()
ComboBox1.List = Worksheets("List1").Range("A10" & ":" & "A13").Value
End Sub

Private Sub CommandButton1_Click()
poradi_jazyka = ComboBox1.ListIndex
If poradi_jazyka = 0 Then
MsgBox "čeština"
ElseIf poradi_jazyka = 1 Then
MsgBox "angličtina"
ElseIf poradi_jazyka = 2 Then
MsgBox "němčina"
ElseIf poradi_jazyka = 3 Then
MsgBox "francouzština"
End If
End Sub

Příloha: zip43350_listindex.zip (19kB, staženo 24x)
Zaslat odpověď >
Rejpal(17.5.2019 11:44)#043353
avatar
Dobrý den.
Zkuste doplnit:
Private Sub CommandButton1_Click()

poradi_jazyka = ComboBox1.ListIndex

If poradi_jazyka = -1 Then
MsgBox (ComboBox1.Value)

ElseIf poradi_jazyka = 0 Then
MsgBox "čeština"

ElseIf poradi_jazyka = 1 Then
MsgBox "angličtina"

ElseIf poradi_jazyka = 2 Then
MsgBox "němčina"

ElseIf poradi_jazyka = 3 Then
MsgBox "francouzština"

End If
End Subcitovat
Stalker(17.5.2019 11:54)#043354
Stalker
Načíst hodnoty do ComboBoxu při otevření sešitu.
Příloha: zip43354_kopie-listindex.zip (20kB, staženo 29x)
citovat
elninoslov(18.5.2019 12:08)#043359
elninoslov
Nastavte si v "Režim návrhu" vo vlastnostiach oblasť na vyplnenie ListBoxu (ListFillRange) a bunku pre odloženie hodnoty (LinkedCell), aby si ju pamätal. A potom nieje problém a stačí už iba:
Private Sub CommandButton1_Click()
Select Case ComboBox1.ListIndex
Case 0: MsgBox "čeština"
Case 1: MsgBox "angličtina"
Case 2: MsgBox "němčina"
Case 3: MsgBox "francouzština"
End Select
End Sub
Příloha: png43359_fillrangelb.png (3kB, staženo 34x)
43359_fillrangelb.png
citovat
Imh0tep(19.5.2019 6:17)#043366
avatar
Díky pánové. Fungují všechna uvedená řešení :-) 1citovat

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