Pokud pracujete na více sešitech současně a potřebujete makro, které vám pomůže skrýt všechny neaktivní sešity, pak vám tento článek určitě pomůže.
V tomto článku se zaměříme na to, jak můžeme skrýt více sešitů, které právě nepoužíváte.
Otázka: Potřebuji rychle skrýt všechny soubory aplikace Excel kromě toho, který právě používám, abych mohl plynule přepínat mezi jinými aplikacemi. Chtěl bych hledat kód VBA pro tento můj jedinečný požadavek.
Abychom získali kód pro skrytí všech neaktivních sešitů, musíme ke spuštění editoru VB postupovat podle následujících kroků
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Zkopírujte následující kód do modulu listu
Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win as Window For each win in Application.Windows win.Visible = False Next win aWin.Visible = True Application.ScreenUpdating = True End Sub
- Výše uvedený kód okamžitě skryje všechny neaktivní sešity
Poznámka: výše uvedené makro neskrývá aktivní sešit.
Chcete -li zobrazit všechny sešity, musíme postupovat podle následujících kroků:
- Klikněte na kartu Zobrazit
- Klikněte na Odkrýt
- Zobrazí se nezobrazené sešity
- Výběrem každého z nich a kliknutím na tlačítko Ok se sešit odkryje
Závěr: Pomocí výše uvedeného kódu makra můžeme skrýt stovky sešitů, které nejsou aktivní, jediným kliknutím.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail