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 Sub

3. 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 Sub

3. 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

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.