Jednou z nepříjemnějších věcí v Excelu je zavírání mnoha sešitů najednou. Pro každý sešit, který jste otevřeli, je potřeba dílo aktivovat, zavřít a potvrdit uložení změn. Excel nemá snadný způsob, jak je všechny najednou zavřít. Toto malé makro se o tu nepříjemnost postará.
Jak makro funguje
V tomto makru prochází kolekce sešitů všechny otevřené sešity. Když makro prochází každým sešitem, uloží je a zavře:
Dílčí makro1()
'Krok 1: Deklarujte své proměnné
Dim wb Jako sešit
'Krok 2: Procházejte sešity, uložte a zavřete
Pro každý wb v sešitech
wb.Close SaveChanges:=True
Další wb
End Sub
Krok 1 deklaruje proměnnou Object, která představuje objekt sešitu. To vám umožní provést výčet všech otevřených sešitů a zaznamenat jejich názvy.
Krok 2 jednoduše prochází otevřenými sešity, ukládá je a zavírá. Pokud je nechcete uložit, změňte argument SaveChanges z True na False.
Jak používat makro
Nejlepší místo pro uložení tohoto makra je ve vašem osobním sešitu maker. Takto máte makro vždy k dispozici. Osobní sešit maker se načte při každém spuštění aplikace Excel. V okně projektu VBE má název personal.xlsb.
Aktivujte Editor jazyka Visual Basic stisknutím Alt+F11.
Klepněte pravým tlačítkem myši na personal.xlb v okně projektu.
Vyberte Vložit → Modul.
Zadejte nebo vložte kód do nově vytvořeného modulu.
Pokud v okně projektu nevidíte personal.xlb, zatím neexistuje. Budete muset zaznamenat makro pomocí osobního sešitu maker jako cíle.
Chcete-li zaznamenat makro do osobního sešitu maker, otevřete dialogové okno Záznam makra. V rozevíracím seznamu Uložit makro do vyberte Osobní sešit maker. Poté jednoduše zaznamenejte několik kliknutí na buňky a zastavte nahrávání. Zaznamenané makro můžete zahodit a nahradit ho tímto.