Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe alle openstaande werkmappen in een lijst op te nemen en eenvoudig te schakelen tussen werkmappen in Excel?

Met Microsoft Excel kunt u meerdere werkmappen tegelijkertijd openen, maar het is niet gemakkelijk voor u om te schakelen tussen alle openstaande werkmappen. U wilt dus mogelijk alle geopende werkmappen in een lijst weergeven om eenvoudig te schakelen tussen die werkmappen in Excel. In dit artikel laten we u zien hoe u alle geopende werkmappen in een lijst opneemt voor eenvoudige navigatie in Excel.

Noteer alle geopende werkmappen met VBA

Maak een lijst van alle geopende werkmappen en ga eenvoudig naar een werkmap met VBA

Maak een lijst van alle geopende werkmappen en ga met Kutools voor Excel naar een werkmap

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.


pijl blauwe rechterbel Noteer alle geopende werkmappen met VBA

In deze sectie leert u hoe u een VBA-code gebruikt om alle open werkmappen in Excel op te nemen.

1. druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module.

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

VBA: geef een lijst met alle geopende werkmapnamen in 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. Voer de VBA-code uit door op te drukken F5 sleutel. In de KutoolsforExcel dialoogvenster, geef een cel op voor het plaatsen van de werkmappenlijst en klik op de OK knop. Zie screenshot:

Vervolgens worden alle geopende werkmappen met bijbehorende werkbladen weergegeven.

Moeilijk te hanteren VBA-code? Je kunt het bereiken via de derde methode met klikken.

pijl blauwe rechterbel Maak een lijst van alle geopende werkmappen en ga eenvoudig naar een werkmap met VBA

Als u alle werkmappen wilt weergeven om eenvoudig tussen werkmappen te schakelen, probeert u de VBA als volgt te gebruiken:

1. druk de anders + F11 om de te openen Microsoft Visual Basic voor toepassingen venster. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module.

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

VBA-code: geef een overzicht van alle geopende werkmappen en ga naar een werkmap

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 de F5 sleutel om de code uit te voeren. Dan een KutoolsforExcel dialoogvenster verschijnt met een lijst met alle geopende werkmappen. Als u naar een opgegeven werkboek wilt overschakelen, voert u deze werkmapnaam in het vak in en klikt u op de OK knop. Zie screenshot:


pijl blauwe rechterbel Maak een lijst van alle geopende werkmappen en ga met Kutools voor Excel naar een werkmap

Met de Navigatie paneel of Kutools for Excel, alle geopende werkmappen worden automatisch in een venster weergegeven zodat u gemakkelijk kunt navigeren tussen alle geopende werkmappen. U hoeft alleen maar op een van de geopende werkmappen te klikken en deze zal onmiddellijk naar die werkmap navigeren.

Als dit hulpprogramma nuttig is, kunt u download en probeer nu de gratis proefversie!

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.