Dobrý den,
potřeboval bych poradit, jestli jde v Excelu 2010 měnit klávesové kratky - abych si je mohl udělat stejné jako v Byznysu.
Konkrétně CTRL+D nahradit F12
Excel 2010 - změna klávesové zkratky Vyřešeno
-
- nováček
- Příspěvky: 14
- Registrován: březen 13
- Pohlaví:
- Stav:
Offline
-
- Pohlaví:
Re: Excel 2010 - změna klávesové zkratky
Úvodem...
Řekněme, že víte, do čeho se pouštíte.
Pokud si představujete, že si někde v Excelu otevřete nastavení a v seznamu zkratek provedete změny, tak na to zapomeňte. Přemapování klávesových zkratek můžete provádět prostřednictvím VBA.
a) Makrem a k němu přiřazenou klávesovou zkratkou (z listu ALT+F8, tlačítko Možnosti)
b) Zpracováním události OnKey při otevírání a zavírání sešitu.
V obou případech by pak přidružené makro obsahovalo instrukci SendKeys "{F12}", což ovšem nebude fungovat. F12 je běžná klávesová zkratka pro Uložit jako. Bohužel pod VBA je nejspíš v programu bug, protože se spouští dialog Otevřít. Tudíž na SendKeys můžete zapomenout a muselo by se to nasimulovat přes kolekci Dialogs.
Řekněme, že víte, do čeho se pouštíte.
Pokud si představujete, že si někde v Excelu otevřete nastavení a v seznamu zkratek provedete změny, tak na to zapomeňte. Přemapování klávesových zkratek můžete provádět prostřednictvím VBA.
a) Makrem a k němu přiřazenou klávesovou zkratkou (z listu ALT+F8, tlačítko Možnosti)
b) Zpracováním události OnKey při otevírání a zavírání sešitu.
V obou případech by pak přidružené makro obsahovalo instrukci SendKeys "{F12}", což ovšem nebude fungovat. F12 je běžná klávesová zkratka pro Uložit jako. Bohužel pod VBA je nejspíš v programu bug, protože se spouští dialog Otevřít. Tudíž na SendKeys můžete zapomenout a muselo by se to nasimulovat přes kolekci Dialogs.
-
- nováček
- Příspěvky: 14
- Registrován: březen 13
- Pohlaví:
- Stav:
Offline
Re: Excel 2010 - změna klávesové zkratky
Popravdě nevím do čeho se pouštím.
Dělám s Excelem a Byznysem a každý program má jiné klávesové zkratky. To znamená, že musím pořád myslet na to, ve kterém programu jsem a které zkratky zrovna platí. V Excelu často potřebuji CTRL+D a to se v Byznyse dělá F12.
Dá se s tím dělat, ale přesto jsem se začal zajímat o nějaké řešení, které by vše zjednodušilo, alespoň u této zkratky. (Uplatnit rčení, že počítače za nás řeší problémy - hlavně ty, které nám samy způsobily.)
Ptal jsem se na Byznys a tam jsou zkratky asi napevno. V Excelu jsem se trochu navnadil možnostmi u klávesy ENTER a opravdu si myslel, že to bude snažší. Vypadá to že ne.
Dík za každý nápad.
Dělám s Excelem a Byznysem a každý program má jiné klávesové zkratky. To znamená, že musím pořád myslet na to, ve kterém programu jsem a které zkratky zrovna platí. V Excelu často potřebuji CTRL+D a to se v Byznyse dělá F12.
Dá se s tím dělat, ale přesto jsem se začal zajímat o nějaké řešení, které by vše zjednodušilo, alespoň u této zkratky. (Uplatnit rčení, že počítače za nás řeší problémy - hlavně ty, které nám samy způsobily.)
Ptal jsem se na Byznys a tam jsou zkratky asi napevno. V Excelu jsem se trochu navnadil možnostmi u klávesy ENTER a opravdu si myslel, že to bude snažší. Vypadá to že ne.
Dík za každý nápad.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel 2010 - změna klávesové zkratky Vyřešeno
Do modulu ThisWorkBook v excelu (Alt+F11) nakopírovat tuto
Do obyčejného modulu (přidat lze přes pravé tl.myši na modul ThisWorkbook) vložit zase tuto
Kód: Vybrat vše
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'reset vypnuti kontroly stisku klaves (F12)
Application.OnKey "{F12}"
End Sub
Private Sub Workbook_Open()
'zakazani stisku klaves (F12)
Application.OnKey "{F12}", "ZmenaKlZkratky"
End Sub
Do obyčejného modulu (přidat lze přes pravé tl.myši na modul ThisWorkbook) vložit zase tuto
Kód: Vybrat vše
Private Sub ZmenaKlZkratky()
Application.SendKeys ("^d")
End Sub
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel 2010 - věc, co asi nemá řešení... Příloha(y)
od Story-Long » 10 srp 2023 15:30 » v Kancelářské balíky - 0
- 1454
-
od Story-Long
Zobrazit poslední příspěvek
10 srp 2023 15:30
-
-
- 2
- 635
-
od rhsCZ
Zobrazit poslední příspěvek
01 úno 2024 22:43
-
- 3
- 1551
-
od Alferi
Zobrazit poslední příspěvek
07 říj 2023 22:08
-
- 11
- 2302
-
od petr22
Zobrazit poslední příspěvek
15 zář 2023 12:48
-
- 0
- 1373
-
od draxxx
Zobrazit poslední příspěvek
25 říj 2023 20:49
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů