Hoe maakt u een nieuw werkblad met een specifiek aantal werkbladen?
Standaard bevat een nieuwe werkmap in Excel één werkblad. Hoewel u handmatig bladen kunt toevoegen of verwijderen, hoe zit het als u vanaf het begin een nieuwe werkmap wilt maken met een specifiek aantal werkbladen? Deze handleiding laat u zien hoe u automatisch een werkmap instelt met het gewenste aantal bladen.
Maak een Nieuw werkblad met een specifiek aantal werkbladen met behulp van VBA-code
Maak een Nieuw werkblad met een specifiek aantal werkbladen met behulp van Kutools voor Excel
Maak een Nieuw werkblad met een specifiek aantal werkbladen met behulp van VBA-code
U kunt de volgende VBA-code gebruiken om een nieuw werkblad te maken met een specifiek aantal tabbladen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Maak een Nieuw werkblad met een specifiek aantal werkbladen
Sub MakeWorkbook()
'update Extendoffice
Dim xOldCount As Integer
Dim xNewCount As Variant
xOldCount = Application.SheetsInNewWorkbook
xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Kutools for Excel", , , , , , 1)
If xNewCount = False Then Exit Sub
If (xNewCount < 1) Or (CLng(xNewCount) > 255) Then
MsgBox "The number must be between 1 and 255!"
Exit Sub
End If
With Application
.SheetsInNewWorkbook = xNewCount
.Workbooks.Add
.SheetsInNewWorkbook = xNewCount
End With
End Sub
3. Nadat u de code hebt geplakt, drukt u op de toets F5 om deze code uit te voeren. Voer in het dialoogvenster het gewenste aantal bladen voor de werkmap in (zie screenshot):
4. Klik daarna op de knop OK; het nieuwe werkblad is nu aangemaakt met het opgegeven aantal bladen.
Maak een Nieuw werkblad met een specifiek aantal werkbladen met behulp van Kutools voor Excel
Bent u niet bekend met VBA-code? Gebruik dan de handige tool Kutools voor Excel! Met de functie Werkbladen met reeks maken maakt u in een handomdraai nieuwe werkbladen met standaard bladnamen, aangepaste bladnamen en meer.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op Enterprise > Werkblad > Reekswerkblad maken (zie screenshot):
2.Voer in het dialoogvenster Werkbladen met reeks makende volgende stappen uit:
(1.) Selecteer Leeg werkbladin de keuzelijst onder Gebaseerd op werkblad;
(2.) Voer het gewenste aantal bladen binnen de Nieuw werkblad in bij het tekstvak Aantal te maken werkbladen;
(3.) Selecteer in het gedeelte Werkbladnaam gebaseerd op de optie Standaard Excel-naam.
3. Klik vervolgens op de knop OK; er wordt dan een nieuw werkblad gemaakt met het gewenste aantal werkbladen.
Klik hier voor meer informatie over deze functie Reekswerkblad maken…
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Gerelateerde artikelen:
Hoe maak je werkbladen met een reeks op basis van een celbereik in Excel?
Hoe voegt u een nieuw werkblad met de huidige datum toe in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins