rozbalovací seznam - aby byl pořád vidět

[eLCHa]

Kód: Vybrat vše

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    Unload Me
  End If
End Sub

Když už jste šel do formuláře, tak zkoumejte dále - ještě by bylo pěkné ho ořezat, navíc když kliknete na poslední zobrazený řádek, přesahuje Vám přes obrazovku...
Formuláře využívám jako nabídky příkazů v souboru (vytvářel jsem v době, kdy mělo hodně lidí 2003 a 2007 - aby to vypadalo na obou verzích stejně a používám dodnes - snadno přiřadím novou proceduru - jak to vypadá, můžete kouknout zde:
https://www.youtube.com/watch?v=fEN-aZPjdmU

[Reklama]

[atari]

Díky moc, funguje skvěle.
Jenom jsem nějak nepochopil ty dvě deklarace co znamenají.

Co se týče přesahu přes obrazovku, tak s tím zatím zápasím. Řeším rozdíl mezi "target" a "ActiveCell" ("target" funguje v listu ale nefunguje ve formuláři, ActiveCell naopak) . Přes "target" v listu to polohování fungovalo jednoduše.

Na ořezy a estetiku se chystám, až bude hotová funkčnost. Ta ukázka na youtube je super, to rozbalovací menu vlevo, to je perfektní. To je vše přes VBA?

[eLCHa]

Jenom jsem nějak nepochopil ty dvě deklarace co znamenají.
Které deklarace máte na mysli?
KeyCode - obsahuje kód stisknuté klávesy (kukněte)
Shift - 0 nebo 1 - pokud je zároveň stisknuta kláves SHIFT

To je vše přes VBA?
Ano, samozřejmě VBA

[atari]

Myslel jsem tu deklaraci "MSForms.ReturnInteger" nikde jsem nenašel co znamená, ani ten SHIFt jsem nepochopil k čemu je.

Ale objevil jsem logickou závadu. Ten formulář otevírám jakmile se kurzor dostane na sloupec "E". A pokud se do sloupce "E" dostanu stiskem ENTER, tak se formulář otevře a ihned zavře. Nevymyslel jsem jak to vyřešit.

[eLCHa]

Zřejmě jste moc dobře nehledal. Když Vám nestačí mé (ne zcela přesné) vysvětlení, koukněte sem.

Já mám vždy nastaveno, že kurzor zůstane po stisku ENTER na měněné buňce, takže tato situace nenastane. Pro uzavření si můžete nastavit jinou klávesu (např. MEZERNÍK, odkaz na konstanty máte v předešlém příspěvku) nebo kombinaci (např. CTRL+ENTER - k tomu právě slouží ta proměnná Shift). U ENTER budete mít vždy problém. Neříkám, že se tato situace nedá vyřešit, chce to ale čas na výzkum a ten teď nemám.

[atari]

Já to hledal přes Google, ten mě to nenašel.

A díky ta tipy. Změním klávesu, a nebo se pustím do toho výzkumu.