Jak vytvořit nový sešit se specifickým počtem pracovních listů?
Normálně při vytváření nového sešitu bude ve výchozím nastavení obsahovat tři listy v aplikaci Excel 2007/2010 nebo jeden list v aplikaci Excel 2013. Později můžete podle potřeby přidat nebo odstranit karty. Ale už jste někdy zkoušeli vytvořit nový sešit s konkrétním počtem pracovních listů pokaždé, když potřebujete?
Vytvořte nový sešit se specifickým počtem listů pomocí kódu VBA
Vytvořte nový sešit s konkrétním počtem listů pomocí Kutools for Excel
Vytvořte nový sešit se specifickým počtem listů pomocí kódu VBA
Následující kód VBA můžete použít k vytvoření nového sešitu obsahujícího konkrétní počet karet.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Vytvořte nový sešit se specifickým počtem pracovních listů
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 between 1 and 255!"
Exit Sub
End If
With Application
.SheetsInNewWorkbook = xNewCount
.Workbooks.Add
.SheetsInNewWorkbook = xNewCount
End With
End Sub
3. Po vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a do pole s výzvou zadejte počet listů, které chcete v sešitu, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko, nový sešit byl vytvořen se zadaným počtem listů, které potřebujete.
Vytvořte nový sešit s konkrétním počtem listů pomocí Kutools for Excel
Pokud nejste obeznámeni s kódem VBA, můžete použít užitečný nástroj - Kutools for Excel, S jeho Vytvořte pracovní listy sekvence nástroj, můžete rychle vytvořit nový sešit s výchozími názvy listů, vlastními názvy listů atd.
| Kutools for Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools for Excel, postupujte následovně:
1, klikněte Enterprise > Pracovní list > Vytvořte Sequence Worksheet, viz screenshot:
2. v Vytvořte pracovní listy sekvence dialogové okno, proveďte následující operace:
(1.) Vyberte Prázdný list pod Základní pracovní list rozbalovací seznam;
(2.) Zadejte počet listů v novém sešitu pod Počet vytvoření Textové pole;
(3.) Z Názvy listů založené na vyberte část Výchozí název aplikace Excel volba.
3. Pak klikněte na tlačítko OK tlačítko a nový sešit bude vytvořen s vaším konkrétním počtem listů.
Kliknutím se dozvíte více o tomto nástroji Vytvořit list sekvence ...
Stažení zdarma Kutools for Excel Teď
Související články:
Jak vytvořit pracovní listy sekvence z řady buněk v aplikaci Excel?
Jak přidat nový list s aktuálním datem v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela 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áší rozhraní s kartami do Office 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!
