< návrat zpět
MS Excel
Téma: Listindex v Combobox 
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
Rejpal(17.5.2019 11:44)#043353 
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 SubcitovatStalker(17.5.2019 11:54)#043354 
Načíst hodnoty do ComboBoxu při otevření sešitu.
citovatelninoslov(18.5.2019 12:08)#043359 
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 SubcitovatImh0tep(19.5.2019 6:17)#043366 Díky pánové. Fungují všechna uvedená řešení :-)
citovat
RSS nejnovější články