CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

tvc Seniormester

15. marts 2013 - 09:21 Der er 6 kommentarer og
2 løsninger

OnKey i Userform

Hej

Jeg har en Userform som aktiveres ved at trykke F1. Jeg vil gerne have, at Userformen lukkes ved at trykke på Esc.

Jeg har forsøgt at sætte nedenstående ind i såvel ThisWorkbook og i Userformen, men den kan kun aktiveres hvis jeg klikker i arket og trykker - ikke når uderformen er i fokus.

Application.OnKey "{Esc}", "Help_Hide"

Er der nogen der har en ide?

Synes godt om

Thorp Praktikant

15. marts 2013 - 09:57 #1

Har du prøvet denne:

UserForm_KeyDown

Synes godt om

supertekst Ekspert

15. marts 2013 - 10:51 #2

#1 - det virker ..

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
Unload UserForm1
End If
End Sub

Synes godt om

tvc Seniormester

20. marts 2013 - 10:45 #3

Tak for det, men hvor skal den indsættes?

I et ark, modul eller userform?

Betyder 27 Esc?

Synes godt om

Thorp Praktikant

20. marts 2013 - 10:51 #4

Du kan sagtens kalde den fra dit modul, sålænge du anvender den fulde syntakst.

Synes godt om

Thorp Praktikant

20. marts 2013 - 10:53 #5

27 er ASCII koden for ESC

Synes godt om

tvc Seniormester

20. marts 2013 - 12:14 #6

Jeg får den ikke til at virke.

Jeg har forsøgt at indsætte:

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
Unload frmHelp1
End If
End Sub

i såvel modul, userformen og ThisWorkbook.

Hvordan er det af ovenstående skal blive aktiveret?

Synes godt om

tvc Seniormester

23. marts 2013 - 22:20 #7

Tak for hjælpen begge. Jeg har brugt superteksts kode og har indsat den i userformens code.

Supertekst lægger du også et svar så kan I dele dem?

Synes godt om

supertekst Ekspert

23. marts 2013 - 23:12 #8

Selv tak

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Fortsæt i nyt lopslag ved fejl ved det første Af Roland i Excel	2	I går 12:58	I går 15:10
VBA Excel Af ingeman i Excel	17	12/02/202515:42	14/02/202511:44
Tjekke redigering af delt Excel fil Af cyperbent i Excel	3	06/02/202522:51	08/02/202518:16
Kæder til eksternt regneark Af mira96ac i Excel	5	05/02/202515:21	06/02/202511:41
Stablede søjlediagrammer Af Michel998 i Excel	1	05/02/202512:18	05/02/202512:33

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS