Határozza meg a billentyűkombinációkat az Excelben, és rendeljen hozzá funkciókat
A következő példában a billentyűkombináció Ctrl + ü a számológép a Windows tartozékokból hívható le.
A billentyűparancs beállításához tegye a következőket:
Albillentyűparancs beállítása ()
Application.OnKey "ü", "CallCalculator"
End Sub
A tárolt makró így néz ki:
Sub callCalculator ()
Dim x változatként
x = shell ("calc.exe")
End Sub
Ha a billentyűkombináció már nem használható, indítsa el a következő eljárást:
Albillentyűkombináció Mégse ()
Application.OnKey "ü"
End Sub
Jegyzet:
Gyakran a billentyűparancsok beállítása egy adott munkafüzet megnyitásakor történik. Ehhez kattintson duplán a Fejlesztői környezetben a Project Explorer programban ez a munkafüzet bejegyzésre, és mentse a következő eseményt:
Privát almunkafüzet_nyitva ()
Beállítási parancsikon
End Sub
A Workbook_Open esemény automatikusan végrehajtódik (ha be van állítva) a munkafüzet megnyitásakor. Esetünkben itt hívjuk meg a billentyűkombináció beállítása eljárást.
Ez akkor hasznos, ha a mappa bezárásakor törli a korábban beállított billentyűkombinációt. A Workbook_BeforeClose esemény automatikusan végrehajtódik a mappa bezárásakor. Ebben az esetben az eljárás feloldási kulcsát hívják:
Privát almunkafüzet_BeforeClose (Mégse logikai értékként)
Billentyűkombináció Mégse
End Sub
Ez azt jelenti, hogy az Excelben a billentyűparancsokat mindig kézben tartja.