Definer tastekombinasjoner i Excel og tilordne funksjoner
I det følgende eksemplet, tastekombinasjonen Ctrl + ü kalkulatoren kan kalles fra Windows -tilbehøret.
Bruk følgende fremgangsmåte for å angi hurtigtasten:
Oppsett av hurtigtast ()
Application.OnKey "ü", "CallCalculator"
Slutt Sub
Den lagrede makroen ser slik ut:
Sub callCalculator ()
Dim x som variant
x = shell ("calc.exe")
Slutt Sub
Hvis tastekombinasjonen ikke lenger skal brukes, starter du følgende prosedyre:
Sub -tastekombinasjon Avbryt ()
Application.OnKey "ü"
Slutt Sub
Merk:
Ofte er det å sette opp hurtigtaster når du åpner en bestemt arbeidsbok. For å gjøre dette, dobbeltklikker du på oppføringen Denne arbeidsboken i prosjektutforskeren i utviklingsmiljøet og lagrer følgende hendelse:
Private Sub Workbook_Open ()
Oppsett snarvei
Slutt Sub
Hendelsen Workbook_Open utføres automatisk (hvis den er angitt) når arbeidsboken åpnes. I vårt tilfelle kalles prosedyren Tastekombinasjon Oppsett her.
Dette er nyttig hvis du sletter den tidligere konfigurerte tastekombinasjonen når du lukker denne mappen. Hendelsen Workbook_BeforeClose kjøres automatisk når mappen lukkes. I dette tilfellet kalles prosedyren Unlock key:
Private Sub Workbook_BeforeClose (Avbryt som boolsk)
Tastekombinasjon Avbryt
Slutt Sub
Dette betyr at du alltid har hurtigtaster under kontroll i Excel.
