Toetscombinaties definiëren in Excel en functies toewijzen
In het volgende voorbeeld is de toetsencombinatie Ctrl + ü de rekenmachine kan worden opgeroepen vanuit de Windows-accessoires.
Gebruik de volgende procedure om de sneltoets in te stellen:
Sub-sneltoetsen instellen ()
Application.OnKey "ü", "CallCalculator"
Einde sub
De opgeslagen macro ziet er als volgt uit:
SuboproepRekenmachine ()
Dim x als variant
x = shell ("calc.exe")
Einde sub
Als de toetsencombinatie niet meer gebruikt wordt, start u de volgende procedure:
Subtoetscombinatie Annuleren ()
Application.OnKey "ü"
Einde sub
Opmerking:
Vaak wordt het instellen van sneltoetsen gedaan bij het openen van een bepaalde werkmap. Dubbelklik hiervoor in de projectverkenner in de ontwikkelomgeving op het item Deze werkmap en sla de volgende gebeurtenis op:
Privé subwerkboek_Open ()
Snelkoppeling instellen
Einde sub
De Workbook_Open-gebeurtenis wordt automatisch uitgevoerd (als deze is ingesteld) wanneer de werkmap wordt geopend. In ons geval wordt hier de procedure Toetscombinatie Setup aangeroepen.
Dit is handig als u de eerder ingestelde toetsencombinatie verwijdert wanneer u deze map sluit. De gebeurtenis Workbook_BeforeClose wordt automatisch uitgevoerd wanneer de map wordt gesloten. In dit geval wordt de procedure Ontgrendelsleutel aangeroepen:
Private Sub Workbook_BeforeClose (Annuleren als Boolean)
Toetscombinatie Annuleren
Einde sub
Dit betekent dat u uw sneltoetsen altijd onder controle heeft in Excel.