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