Definujte kombinace kláves v aplikaci Excel a přiřaďte funkce
V následujícím příkladu kombinace kláves Ctrl + ü kalkulačku lze vyvolat z příslušenství Windows.
Chcete -li nastavit klávesovou zkratku, použijte následující postup:
Nastavení dílčí klávesové zkratky ()
Application.OnKey "ü", "CallCalculator"
End Sub
Uložené makro vypadá takto:
Sub callCalculator ()
Dim x jako varianta
x = shell ("calc.exe")
End Sub
Pokud kombinaci kláves již nebudete používat, spusťte následující postup:
Kombinace dílčích klíčů Zrušit ()
Application.OnKey "ü"
End Sub
Poznámka:
Nastavení klávesových zkratek se často provádí při otevírání konkrétního sešitu. Chcete-li to provést, poklepejte na položku Tento sešit v Průzkumníku projektů ve vývojovém prostředí a uložte následující událost:
Soukromý dílčí sešit_Otevřít ()
Zkratka nastavení
End Sub
Událost Workbook_Open se automaticky spustí (pokud je nastavena) při otevření sešitu. V našem případě se zde nazývá postup Nastavení kombinace kláves.
To je užitečné, pokud při zavření této složky odstraníte dříve nastavenou kombinaci kláves. Událost Workbook_BeforeClose se automaticky spustí, když je složka zavřená. V tomto případě se nazývá procedura Odemknout klíč:
Soukromý dílčí sešit_BeforeClose (Zrušit jako booleovský)
Kombinace kláves Zrušit
End Sub
To znamená, že máte v aplikaci Excel vždy své klávesové zkratky pod kontrolou.