Jedním ze způsobů, jak získat kód do modulu VBA, je zaznamenávání vašich akcí pomocí záznamníku maker Excel. Jedna věc, kterou si musíte zapamatovat, je, že můžete zaznamenávat pouze věci, které můžete dělat přímo v Excelu. Zobrazení okna se zprávou není v běžném repertoáru Excelu. (Je to věc VBA.) Makrorekordér je užitečný, ale v mnoha případech budete pravděpodobně muset zadat alespoň nějaký kód ručně.
Zde je podrobný příklad, který ukazuje, jak zaznamenat makro, které vloží nový list a skryje všechny řádky kromě prvních deseti a všechny kromě prvních deseti sloupců. Pokud chcete vyzkoušet tento příklad, začněte s novým, prázdným sešitem a postupujte takto:
Aktivujte list v sešitu.
Postačí jakýkoli pracovní list.
Klikněte na kartu Vývojář a ujistěte se, že není zvýrazněno Použít relativní odkazy .
Toto makro bude zaznamenáno pomocí Absolutních referencí.
Vyberte Vývojář → Kód → Nahrát makro nebo klikněte na ikonu vedle indikátoru Připraveno na levém konci stavového řádku.
Excel zobrazí dialogové okno Záznam makra.
V dialogovém okně Záznam makra pojmenujte makro TenByTen a stiskněte Shift+T pro klávesovou zkratku.
Makro lze spustit stisknutím Ctrl+Shift+T.
Klepnutím na OK zahájíte nahrávání.
Excel automaticky vloží do projektu nový modul VBA, který odpovídá aktivnímu sešitu. Od tohoto okamžiku Excel převede vaše akce na kód VBA. Během nahrávání se ikona ve stavovém řádku změní na malý čtvereček. Toto je připomínka, že je spuštěn záznam maker. Záznam maker můžete také zastavit kliknutím na tuto ikonu.
Klepněte na ikonu Nový list napravo od poslední karty listu.
Excel vloží nový list.
Vyberte celý sloupec K (11. sloupec) a stiskněte Ctrl+Shift+šipka vpravo; potom klepněte pravým tlačítkem na libovolný vybraný sloupec a z místní nabídky vyberte Skrýt.
Excel skryje všechny vybrané sloupce.
Vyberte celý řádek 11 a stiskněte Ctrl+Shift+šipka dolů; potom klepněte pravým tlačítkem na libovolný vybraný řádek a v místní nabídce vyberte příkaz Skrýt.
Excel skryje všechny vybrané sloupce.
Vyberte buňku A1.
Vyberte Vývojář → Kód → Zastavit nahrávání nebo klikněte na tlačítko Zastavit nahrávání na stavovém řádku (malý čtvereček).
Excel přestane zaznamenávat vaše akce.
Chcete-li zobrazit toto nově zaznamenané makro, stiskněte Alt+F11 pro aktivaci VBE. V okně projektu vyhledejte název sešitu. Vidíte, že projekt má uveden nový modul. Název modulu závisí na tom, zda jste při zahájení záznamu makra měli v sešitu nějaké další moduly. Pokud tak neučiníte, modul se bude jmenovat Module1. Dvojitým kliknutím na modul zobrazíte okno Kód pro modul.
Zde je kód vygenerovaný vašimi akcemi:
Sub TenByTen()
'
Makro TenByTen
'
' Klávesová zkratka: Ctrl+Shift+T
'
Sheets.Add After:=ActiveSheet
Columns(“K:K”).Vyberte
Rozsah(Výběr, Výběr.Konec(xlDoprava)).Vybrat
Selection.EntireColumn.Hidden = Pravda
Řádky („11:11“). Vyberte
Rozsah(Výběr, Výběr.Konec(xlDolů)).Výběr
Selection.EntireRow.Hidden = Pravda
Rozsah („A1“). Vyberte
End Sub
Chcete-li toto makro vyzkoušet, aktivujte libovolný list a stiskněte klávesovou zkratku, kterou jste přiřadili v kroku 4: Ctrl+Shift+T.
Pokud jste makru nepřiřadili klávesovou zkratku, nemějte obavy. Zde je návod, jak zobrazit seznam všech dostupných maker a spustit to, které chcete:
Vyberte Vývojář → Kód → Makra.
Fanoušci klávesnice mohou stisknout Alt+F8. Každá z těchto metod zobrazí dialogové okno se seznamem všech dostupných maker.
Vyberte makro v seznamu (v tomto případě TenByTen).
Klepněte na tlačítko Spustit.
Excel spustí makro a získáte nový list s deseti viditelnými řádky a deseti viditelnými sloupci.
Když je záznam maker spuštěn, můžete provádět libovolný počet příkazů a provádět libovolný počet akcí. Excel poslušně převádí vaše akce myši a stisky kláves do kódu VBA.
A makro můžete samozřejmě po nahrání také upravit. Chcete-li otestovat své nové dovednosti, zkuste upravit makro tak, aby vložilo list s devíti viditelnými řádky a sloupci – ideální pro puzzle Sudoku.