Definer tastekombinationer i Excel og tildel funktioner
I det følgende eksempel, tastekombinationen Ctrl + ü lommeregneren kan kaldes fra Windows -tilbehør.
Brug følgende procedure til at indstille tastaturgenvejen:
Opsætning af undertastaturgenvej ()
Application.OnKey "ü", "CallCalculator"
Afslut Sub
Den gemte makro ser sådan ud:
UnderopkaldCalculator ()
Dim x som variant
x = shell ("calc.exe")
Afslut Sub
Hvis nøglekombinationen ikke længere skal bruges, skal du starte følgende procedure:
Undertastkombination Annuller ()
Application.OnKey "ü"
Afslut Sub
Bemærk:
Ofte udføres opsætning af tastaturgenveje, når du åbner en bestemt projektmappe. For at gøre dette skal du dobbeltklikke på posten Denne projektmappe i projektudforskeren i udviklingsmiljøet og gemme følgende begivenhed:
Private Sub Workbook_Open ()
Opsætning genvej
Afslut Sub
Hændelsen Workbook_Open udføres automatisk (hvis den er indstillet), når projektmappen åbnes. I vores tilfælde kaldes proceduren Tastkombination Setup her.
Dette er nyttigt, hvis du sletter den tidligere konfigurerede tastekombination, når du lukker denne mappe. Hændelsen Workbook_BeforeClose udføres automatisk, når mappen lukkes. I dette tilfælde kaldes proceduren Unlock key:
Private Sub Workbook_BeforeClose (Annuller som boolsk)
Tastkombination Annuller
Afslut Sub
Det betyder, at du altid har tastaturgenveje under kontrol i Excel.