Hoe alle geopende werkboeken in een lijst weergeven en eenvoudig tussen werkboeken wisselen in Excel?

Microsoft Excel stelt u in staat om meerdere werkboeken tegelijkertijd te openen, maar het is niet eenvoudig om tussen alle geopende werkboeken te wisselen. Daarom kunt u ervoor kiezen om alle geopende werkboeken in een lijst weer te geven om gemakkelijk tussen die werkboeken in Excel te wisselen. In dit artikel laten we u zien hoe u alle geopende werkboeken voor eenvoudige navigatie in Excel kunt weergeven.

Alle geopende werkboeken gewoon met VBA weergeven
Alle geopende werkboeken weergeven en eenvoudig naar een werkboek wisselen met VBA
Alle geopende werkboeken weergeven en eenvoudig naar een werkboek wisselen met een geweldig hulpmiddel

Alle geopende werkboeken gewoon met VBA weergeven

In deze sectie leert u hoe u een VBA-code kunt gebruiken om alle geopende werkboeken in Excel weer te geven.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module.

2. Kopieer en plak vervolgens de onderstaande VBA-code in de code-editor.

VBA: alle namen van geopende werkboeken in Excel weergeven

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. Voer de VBA-code uit door op de F5-toets te drukken. Geef in het dialoogvenster KutoolsforExcel een cel op waarin de lijst met werkboeken moet worden geplaatst en klik vervolgens op de knop OK. Zie screenshot:

Alle geopende werkboeken met bijbehorende werkbladen worden dan weergegeven.

Moeilijk om VBA-code te hanteren? U kunt het ook bereiken via de derde methode met een paar klikken.

Alle geopende werkboeken weergeven en eenvoudig naar een werkboek wisselen met VBA

Als u alle werkboeken wilt weergeven om eenvoudig tussen werkboeken te wisselen, probeer dan de volgende VBA-code te gebruiken:

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module.

2. Kopieer en plak de volgende VBA-code in het geopende modulevenster.

VBA-code: alle geopende werkboeken weergeven en naar een werkboek wisselen

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. Druk op de F5-toets om de code uit te voeren. Er verschijnt een KutoolsforExcel-dialoogvenster met een lijst van alle geopende werkboeken. Als u naar een specifiek werkboek wilt wisselen, voert u de naam van dat werkboek in het vak in en klikt u op de knop OK. Zie screenshot:

Alle geopende werkboeken weergeven en eenvoudig naar een werkboek wisselen met een geweldig hulpmiddel

Met het Navigatievenster van Kutools voor Excel worden alle geopende werkboeken automatisch in een venster weergegeven, zodat u eenvoudig tussen alle geopende werkboeken kunt navigeren. U hoeft alleen maar op een van de geopende werkboeken te klikken en het zal onmiddellijk naar dat werkboek navigeren.