Jak zobrazit seznam všech otevřených sešitů a snadno přepínat mezi sešity v aplikaci Excel?
Microsoft Excel umožňuje otevřít více sešitů najednou, ale není pro vás snadné přepínat mezi všemi otevřenými sešity. Možná budete chtít zobrazit seznam všech otevřených sešitů v seznamu, abyste mohli snadno přecházet mezi těmito sešity v aplikaci Excel. V tomto článku vám ukážeme, jak zobrazit seznam všech otevřených sešitů pro snadnou navigaci v aplikaci Excel.
Stačí uvést seznam všech otevřených sešitů pomocí VBA
Seznam všech otevřených sešitů a snadný přechod na sešit pomocí VBA
Seznamte všechny otevřené sešity a snadno se přesuňte na sešit pomocí úžasného nástroje
Stačí uvést seznam všech otevřených sešitů pomocí VBA
V této části se naučíte, jak používat kód VBA pro výpis všech otevřených sešitů v aplikaci Excel.
1. lis Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul.
2. Poté zkopírujte a vložte níže uvedený kód VBA do editoru kódu.
VBA: seznam všech otevřených názvů sešitů v aplikaci Excel
Sub ListWorkbooks()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Range("A1")
xNum1 = Application.Workbooks.Count
For i = 1 To xNum1
xNum2 = Application.Workbooks(i).Sheets.Count
WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
For j = 1 To xNum2
WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
Next
Next
End Sub3. Spusťte kód VBA stisknutím tlačítka F5 klíč. V Kutools pro Excel V dialogovém okně zadejte buňku pro umístění seznamu sešitu a poté klikněte na OK knoflík. Viz screenshot:
Potom jsou uvedeny všechny otevřené sešity s odpovídajícími listy.
Je těžké zpracovat kód VBA? Můžete to dosáhnout prostřednictvím třetí metoda s kliknutími.
Seznam všech otevřených sešitů a snadný přechod na sešit pomocí VBA
Pokud chcete zobrazit seznam všech sešitů pro snadné přepínání mezi sešity, zkuste použít VBA následujícím způsobem:
1. zmáčkni Další + F11 k otevření Microsoft Visual Basic pro aplikace okno. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul.
2. Zkopírujte a vložte následující kód VBA do otevřeného okna modulu.
Kód VBA: seznam všech otevřených sešitů a přechod na sešit
Sub SelectWB()
Dim xWBName As String
Dim xWb As Workbook
Dim xSelect As String
For Each xWb In Application.Workbooks
xWBName = xWBName & xWb.Name & vbCrLf
Next
xTitleId = "KutoolsforExcel"
xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
Application.Workbooks(xSelect).Activate
End Sub3. zmáčkni F5 klíč ke spuštění kódu. Pak Kutools pro Excel Zobrazí se dialogové okno se seznamem všech otevřených sešitů. Pokud chcete přejít na zadaný sešit, zadejte do pole název tohoto sešitu a klikněte na OK knoflík. Viz screenshot:
Seznamte všechny otevřené sešity a snadno se přesuňte na sešit pomocí úžasného nástroje
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
S Navigační panel of Kutools pro Excel, všechny otevřené sešity budou automaticky uvedeny v podokně, abyste mohli snadno procházet mezi všemi otevřenými sešity. Musíte jen kliknout na jeden z otevřených sešitů a okamžitě přejde do tohoto sešitu.
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
