Přejít k hlavnímu obsahu

Jak přidat nový list s aktuálním datem v aplikaci Excel?

Někteří finanční a prodejní pracovníci mohou pro statistiku denní práce vyžadovat každý den vkládání nového listu s aktuálním datem. Pokud vložíte nový list a poté jej přejmenujete ručně, bude to těžkopádné. Dnes vám představím několik rychlých triků, jak se s tímto problémem vypořádat.

Přidejte nový list s aktuálním datem pomocí kódu VBA

Přidejte nové listy s postupným datem pomocí Kutools pro Excel


šipka modrá pravá bublina Přidejte nový list s aktuálním datem pomocí kódu VBA

Následující kód VBA vám pomůže vložit nový list s aktuálním datem při každodenním spuštění kódu.

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu.

Kód VBA: Přidejte nový list s aktuálním datem

Sub AddSheets_TodayDate()
'Updateby20140717
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmm-dd-yyyy")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub
MakeSheet:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = szTodayDate
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a za stávající listy byl vložen nový list s dnešním datem. Viz screenshot:

doc-add-sheet-with-date-1

Poznámka: Když tento sešit uložíte a zavřete, uložte jej jako Sešit se zvýšeným makra Excel formát kliknutím Soubor > Uložit jako. A když sešit spustíte další den, nezapomeňte kliknout Povolit obsah, takže můžete úspěšně spustit kód a přidat nový list s datem.


šipka modrá pravá bublina Přidejte nové listy s postupným datem pomocí Kutools pro Excel

Výše uvedený kód vám může pomoci vložit pouze jeden list s aktuálním datem dne najednou, pokud chcete vložit více listů s postupným datem, tento nástroj Vytvořte pracovní listy sekvence of Kutools pro Excel udělá vám laskavost.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.

Pokud jste nainstalovali program Kutools pro Excel, postupujte takto:

1. V prázdné buňce zadejte dnešní datum a potom přetažením úchytu vyplňte buňky podle potřeby podle data.

doc-add-sheet-with-date-1

2. Pak klikněte na tlačítko Enterprise > Nástroje listu > Vytvořte pracovní listy sekvence, viz screenshot:

doc-add-sheet-with-date-1

3. V Vytvořte pracovní listy sekvence V dialogovém okně zadejte list, ze kterého mají být založeny nové listy Základní pracovní list rozbalovací seznam. A poté vyberte Data v rozsahu možnost pod Názvy listů založené na části vyberte rozsah dat, který chcete použít jako názvy listů. Viz screenshot:

doc-add-sheet-with-date-1

4. Pak klikněte na tlačítko OK, a bude vytvořen nový sešit s názvy listů, které jsou datové sekvence. Viz screenshot:

doc-add-sheet-with-date-1

Další informace o této funkci Vytvořit pracovní listy sekvence.


Související článek:

Jak vytvořit pracovní listy sekvence z řady buněk v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a 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...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami 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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations