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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Excel åbner fil i kæmpe format Af Aske i Excel	8	I dag 06:10	I dag 11:56
Summere beløb pr. dato Af TTA i Excel	2	I går 12:37	I går 15:30
Betinget formattering af flere celler vandret og lodret. Af Sussie i Excel	10	30/10/202408:41	30/10/202417:18
Ombrydning af tekst i en celle efter et tegn Af FinnLauridsen i Excel	8	29/10/202411:50	29/10/202414:18
Tidsintervaller i Excel Af Karsten KTL i Excel	3	29/10/202411:47	30/10/202414:20

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

01/11

Test af Apple Watch Series 10: Apples jubilæums-model er blevet lidt af en mester af det hele

01/11

Google Clouds netop fratrådte topchef har fundet sit nye job: Bliver en af de mest magtfulde personer hos ServiceNow

01/11

Nu går OpenAI efter struben på Google: ChatGPT fungerer nu også som en AI-søgemaskine

01/11

Nørgaard: Agenterne kommer, og jeg er klar: Måske bliver min gamle drøm snart virkelighed

01/11

Staten vil selv udvikle kæmpe it-system til 650 millioner kroner: Nu tvinges regeringen til at lægge vigtige dokumenter frem

01/11

Det går fantastisk på det danske Dynamics-marked: NNIT-selskabet Scales kan vælge og vrage mellem opgaver

01/11

Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre

01/11

Skelsættende GDPR-sag ændrer definitionen af 'følsomme oplysninger'

01/11

Google indlemmer sin AI Gemini i Google Maps, Google Earth og Waze: Det kommer det til at betyde

01/11

Microsoft: Tvungen skift til Windows 11 kan udskydes med et år, hvis du betaler os 200 kroner

01/11

Sådan blev Margrethe Vestager ’Silicon Valleys største fjende’

Vis flere artikler

IT-JOB

DEIF A/S

DevOps Engineer

Svendborg Kommune

Vi søger en engageret og kompetent IT-konsulent, der skal være med til at løfte Cybersikkerheden i Svendborg Kommune

Saphe A/S

Quality Assurance Engineer

Koda

Bliv webudvikler i Koda og vær med til at skabe et stærkere musikliv

Unik System Design A/S

Ansvarlig UX’er med grafisk talent søges

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 06:10	Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00	Datafordeler Af Lsk i PHP
I går 12:37	Summere beløb pr. dato Af TTA i Excel
31/1022:44	Tilslutte chassic fans Af viking69 i PC
31/1020:28	LED lysstofrør Af ErikHg i Fri debat