Definujte kombinácie klávesov v programe Excel a priraďte funkcie
V nasledujúcom príklade kombinácia klávesov Ctrl + ü kalkulačku je možné vyvolať z príslušenstva systému Windows.
Na nastavenie klávesovej skratky použite nasledujúci postup:
Nastavenie pomocnej klávesovej skratky ()
Application.OnKey "ü", "CallCalculator"
Koniec pod
Uložené makro vyzerá takto:
Sub callCalculator ()
Dim x ako variant
x = shell ("calc.exe")
Koniec pod
Ak kombináciu klávesov už nebudete používať, spustite nasledujúci postup:
Kombinácia čiastkových klávesov Zrušiť ()
Application.OnKey "ü"
Koniec pod
Poznámka:
Klávesové skratky sa často nastavujú pri otváraní konkrétneho zošita. Ak to chcete urobiť, dvakrát kliknite na položku Tento zošit v Prieskumníkovi projektov vo vývojovom prostredí a uložte nasledujúcu udalosť:
Súkromný čiastkový zošit_Otvorený ()
Skratka nastavenia
Koniec pod
Udalosť Workbook_Open sa automaticky spustí (ak je nastavená) pri otvorení zošita. V našom prípade sa tu nazýva postup Nastavenie kombinácie klávesov.
Je to užitočné, ak pri zatvorení tohto priečinka odstránite predtým nastavenú kombináciu klávesov. Udalosť Workbook_BeforeClose sa automaticky spustí, keď je priečinok zatvorený. V tomto prípade sa nazýva kľúč na odomknutie:
Súkromný čiastkový zošit_BeforeClose (zrušiť ako boolean)
Kombinácia klávesov Zrušiť
Koniec pod
To znamená, že v Exceli máte svoje klávesové skratky vždy pod kontrolou.