< návrat zpět

MS Excel


Téma: Listindex v Combobox rss

Zaslal/a 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 7x)
Zaslat odpověď >

#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 Sub
citovat
#043354
Stalker
Načíst hodnoty do ComboBoxu při otevření sešitu.
Příloha: zip43354_kopie-listindex.zip (20kB, staženo 10x)
citovat
#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 15x)
43359_fillrangelb.png
citovat
#043366
avatar
Díky pánové. Fungují všechna uvedená řešení :-) 1citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Přidané řádky a checkbox

LosPablos • 13.12. 21:33

Zkopírování buněk z řádku do jiného listu

Vejvik • 13.12. 21:06

Zkopírování buněk z řádku do jiného listu

mepexg • 13.12. 19:45

Zkopírování buněk z řádku do jiného listu

Vejvik • 13.12. 18:36

tabulka - pridať riadok VYRIEŠENÉ

kabaka • 13.12. 15:41

tabulka - pridať riadok VYRIEŠENÉ

marjankaj • 13.12. 15:33

tabulka - pridať riadok VYRIEŠENÉ

kabaka • 13.12. 14:18