Definiera tangentkombinationer i Excel och tilldela funktioner
I följande exempel, nyckelkombinationen Ctrl + ü räknaren kan anropas från Windows -tillbehören.
Använd följande procedur för att ställa in kortkommandot:
Inställning av underknappsgenväg ()
Application.OnKey "ü", "CallCalculator"
Avsluta Sub
Det lagrade makrot ser ut så här:
Sub callCalculator ()
Dim x som variant
x = shell ("calc.exe")
Avsluta Sub
Om tangentkombinationen inte längre ska användas, starta följande procedur:
Undertangentkombination Avbryt ()
Application.OnKey "ü"
Avsluta Sub
Notera:
Ofta görs tangentbordsgenvägar när du öppnar en viss arbetsbok. För att göra detta, dubbelklicka på posten Denna arbetsbok i projektutforskaren i utvecklingsmiljön och spara följande händelse:
Private Sub Workbook_Open ()
Inställningsgenväg
Avsluta Sub
Händelsen Workbook_Open körs automatiskt (om den är inställd) när arbetsboken öppnas. I vårt fall kallas proceduren Nyckelkombination Setup här.
Detta är användbart om du tar bort den tidigare konfigurerade tangentkombinationen när du stänger den här mappen. Händelsen Workbook_BeforeClose körs automatiskt när mappen stängs. I det här fallet kallas proceduren Unlock key:
Private Sub Workbook_BeforeClose (Avbryt som booleskt)
Tangentkombination Avbryt
Avsluta Sub
Det betyder att du alltid har dina kortkommandon under kontroll i Excel.