< 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 23x)
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 28x)
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 33x)
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 IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09